[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdImageWindow.f, 1.4, 1.5 Main.f, 1.69, 1.70

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv7816/Win32ForthIDE

Modified Files:
	EdImageWindow.f Main.f 
Log Message:
Updated url for radio plus minor mods to IDE

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.69
retrieving revision 1.70
diff -C2 -d -r1.69 -r1.70
*** Main.f	28 Apr 2011 18:02:49 -0000	1.69
--- Main.f	19 Aug 2011 12:59:47 -0000	1.70
***************
*** 18,22 ****
  only forth also editor definitions \ put all words into the EDITOR vocabulary
  
!   true  value sysgen
  
  s" apps\win32forthIDE" "fpath+
--- 18,22 ----
  only forth also editor definitions \ put all words into the EDITOR vocabulary
  
!  true  value sysgen
  
  s" apps\win32forthIDE" "fpath+
***************
*** 838,842 ****
                  IF   ExitScintillaControl \ terminate the Scintilla control
                       AccelTable DisableAccelerators \ free the accelerator table
!                      bye                  \ then terminate the program
                  ELSE 1                    \ else abort program termination
                  THEN ;M
--- 838,842 ----
                  IF   ExitScintillaControl \ terminate the Scintilla control
                       AccelTable DisableAccelerators \ free the accelerator table
!                      DestroyWindow: Self   \ Destroy the window
                  ELSE 1                    \ else abort program termination
                  THEN ;M
***************
*** 845,852 ****
  		Delete: TabFont
  		IDT_FILETIME GetHandle: self Call KillTimer drop
! \ (( [cdo] to be removed when SAVE & TURNKEY are ok
! \ [cdo] actually : is not TURNNKEYed ... but is harmless when SAVEd
!                 Turnkeyed? IF 0 call PostQuitMessage drop THEN
! \ ))
                  On_Done: Super ;M
  
--- 845,849 ----
  		Delete: TabFont
  		IDT_FILETIME GetHandle: self Call KillTimer drop
! \+ sysgen       0 call PostQuitMessage drop
                  On_Done: Super ;M
  
***************
*** 1634,1638 ****
  
  [defined] sysgen [if]
- 
         : InitDir ( -- ) current-dir$ count SetDir: SourceFileOpenDialog ;
         Initialization-chain Chain-add InitDir
--- 1631,1634 ----

Index: EdImageWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdImageWindow.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** EdImageWindow.f	13 Oct 2006 03:55:11 -0000	1.4
--- EdImageWindow.f	19 Aug 2011 12:59:47 -0000	1.5
***************
*** 1,3 ****
! \ EdImageWindow.f
  
  cr .( Loading Image Viewer...)
--- 1,3 ----
! \ $Id$
  
  cr .( Loading Image Viewer...)