[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.26,1.27

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19615/win32forth/apps/Win32ForthIDE

Modified Files:
	Main.f 
Log Message:
gah:Minor mods and tidy up

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** Main.f	3 Aug 2006 22:47:45 -0000	1.26
--- Main.f	4 Aug 2006 09:43:27 -0000	1.27
***************
*** 969,974 ****
  [defined] sysgen [IF]
  
! : InitDir current-dir$ ( -- )
!                 count SetDir: SourceFileOpenDialog ;
  Initialization-chain Chain-add InitDir
  
--- 969,975 ----
  [defined] sysgen [IF]
  
! : InitDir       ( -- )
!                 current-dir$ count SetDir: SourceFileOpenDialog ;
! 
  Initialization-chain Chain-add InitDir