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

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26784/apps/SciEdit

Modified Files:
	ScintillaMDI.f 
Log Message:
Jos: The stack was not right when a non existing file was opened using ctrl-shift-o

Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ScintillaMDI.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ScintillaMDI.f	10 Jul 2006 21:35:55 -0000	1.9
--- ScintillaMDI.f	15 Jul 2006 16:08:07 -0000	1.10
***************
*** 545,550 ****
                  then ;
  
! :m OpenHighlightedFile: { \ buf$ path$ org-path-ptr -- }
!                 0 GetSelText: ChildWindow MAXSTRING CHARS <
                  if   MAXSTRING CHARS 1+ LocalAlloc: buf$
                       buf$ 1+ GetSelText: ChildWindow 1- 255 min buf$ c!
--- 545,550 ----
                  then ;
  
! :M OpenHighlightedFile: { \ buf$ path$ org-path-ptr -- }
!              0 GetSelText: ChildWindow MAXSTRING CHARS <
                  if   MAXSTRING CHARS 1+ LocalAlloc: buf$
                       buf$ 1+ GetSelText: ChildWindow 1- 255 min buf$ c!
***************
*** 567,572 ****
                            then
                       then
!                 else drop beep
!                 then ;M
  
  Record: scn \ struct SCNotification
--- 567,573 ----
                            then
                       then
!                 else 2drop beep
!                 then
!   ;M
  
  Record: scn \ struct SCNotification