[Win32forth-cvs] win32forth/apps/SciEdit Main.f,1.23,1.24

[George H. <geo...@us...>]

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