Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10682/apps/SciEdit
Modified Files:
ScintillaMDI.f
Log Message:
- Fixed some smal search path problems in SciEdit and the IDE.
- Added new Menu entry "Set search path for build..." in the Project menu of the IDE
- Fixed some smal bugs in the toolbars of the IDE.
Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ScintillaMDI.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ScintillaMDI.f 15 Jul 2006 16:08:07 -0000 1.10
--- ScintillaMDI.f 16 Jul 2006 11:54:34 -0000 1.11
***************
*** 545,549 ****
then ;
! :M OpenHighlightedFile: { \ buf$ path$ org-path-ptr -- }
0 GetSelText: ChildWindow MAXSTRING CHARS <
if MAXSTRING CHARS 1+ LocalAlloc: buf$
--- 545,549 ----
then ;
! :M OpenHighlightedFile: { \ buf$ old-path$ -- }
0 GetSelText: ChildWindow MAXSTRING CHARS <
if MAXSTRING CHARS 1+ LocalAlloc: buf$
***************
*** 559,568 ****
if \ search for the file in the Forth search path
buf$ count "to-pathend" buf$ place
! path-ptr program-path-init
! buf$ count "path-file \ search through the Forth path
! 0= if buf$ place
! buf$ IDM_OPEN_RECENT_FILE DoCommand
! else 2drop beep
! then
then
then
--- 559,574 ----
if \ search for the file in the Forth search path
buf$ count "to-pathend" buf$ place
!
! MAXSTRING CHARS 1+ LocalAlloc: old-path$
! path-ptr count old-path$ place \ save current path
!
! path-ptr program-path-init \ init forth search path
! buf$ count "path-file 0= \ search through the Forth path
! if buf$ place
! buf$ IDM_OPEN_RECENT_FILE DoCommand
! else 2drop beep
! then
!
! old-path$ count path-ptr place \ restore path
then
then
|
