From: George H. <geo...@us...> - 2005-05-03 12:21:18
|
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 + |