Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19615/win32forth/apps/SciEdit
Modified Files:
Main.f
Log Message:
gah:Minor mods and tidy up
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Main.f 27 Jul 2006 07:29:31 -0000 1.23
--- Main.f 4 Aug 2006 09:43:27 -0000 1.24
***************
*** 704,707 ****
--- 704,712 ----
[defined] sysgen [IF]
+ : InitDir ( -- )
+ current-dir$ count SetDir: SourceFileOpenDialog ;
+
+ Initialization-chain Chain-add InitDir
+
: my-hello ( -- )
init-console
|
