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
|
