[Win32forth-cvs] win32forth/apps/SciEdit ScintillaMDI.f,1.10,1.11

[Dirk B. <db...@us...>]

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