Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16899/win32forth/apps/SciEdit
Modified Files:
ClassBrowser.f ScintillaMDI.f
Log Message:
gah: minor optimizations
Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ClassBrowser.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ClassBrowser.f 21 Dec 2004 00:18:47 -0000 1.1
--- ClassBrowser.f 3 May 2005 12:21:09 -0000 1.2
***************
*** 277,281 ****
:M StartSize: ( -- w h )
! RegPath$ LoadWindowPos 2swap 2drop
;M
--- 277,281 ----
:M StartSize: ( -- w h )
! RegPath$ LoadWindowPos 2nip
;M
Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ScintillaMDI.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ScintillaMDI.f 21 Dec 2004 00:18:48 -0000 1.1
--- ScintillaMDI.f 3 May 2005 12:21:09 -0000 1.2
***************
*** 315,319 ****
buf$ swap 2dup
BEGIN 2dup bl scan dup
! WHILE 2swap 2drop
bl skip
REPEAT 2drop drop 2 pick - dup dup>r
--- 315,319 ----
buf$ swap 2dup
BEGIN 2dup bl scan dup
! WHILE 2nip
bl skip
REPEAT 2drop drop 2 pick - dup dup>r
***************
*** 512,513 ****
--- 512,514 ----
;Class
+ |
