[Win32forth-cvs] win32forth/apps/WinEd WinEd.f,1.9,1.10

[Dirk B. <db...@us...>]

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

Modified Files:
	WinEd.f 
Log Message:
Changed SciEdit and WinEd, so that they can be compiled from within the IDE without messing up te remote I/O. So F12 will still work after these apps are compiled.

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** WinEd.f	12 Jul 2006 11:23:09 -0000	1.9
--- WinEd.f	23 Jul 2006 09:27:14 -0000	1.10
***************
*** 14,18 ****
  anew -wined.f
  
- 
    1 value CreateTurnkey
  \ 1 value (WinEdDbg)     \ Enable to debug
--- 14,17 ----
***************
*** 118,133 ****
  
  
- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
- \ 76    The defaults
- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
- 
- : init-defaults ( -- )
-                 current-dir$ count path-ptr place
-                 find-buf off ;
- 
- init-defaults
- 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ 77    Create WinEd.exe 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
--- 117,122 ----
  
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
! \ 77    Create WinEd.exe
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
***************
*** 138,154 ****
  [then]
          CreateTurnkey [if]
!         
                  forth-msg-chain off     \ disable WinEd's ability to recognize windows
                                          \ messages through the console.
                                          \ We don't want the editor trying to insert a breakpoint
                                          \ into itself.
                  .free                   \ how much memory did we really use?
                  -1 ed-forth-count +!    \ remove myself from Forth count
                  0 0 ' wined APPLICATION WinEd.exe   \ save WinEd.exe
                  s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
                  1 pause-seconds bye
          [else]
!               s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
!               WinEd
          [then]
  [then]
--- 127,150 ----
  [then]
          CreateTurnkey [if]
! 
!                 forth-msg-chain @       nostack
                  forth-msg-chain off     \ disable WinEd's ability to recognize windows
                                          \ messages through the console.
                                          \ We don't want the editor trying to insert a breakpoint
                                          \ into itself.
+ 
                  .free                   \ how much memory did we really use?
                  -1 ed-forth-count +!    \ remove myself from Forth count
                  0 0 ' wined APPLICATION WinEd.exe   \ save WinEd.exe
                  s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
+ 
+                 1 ed-forth-count +!
+                 forth-msg-chain !
+                 \ make shure that the remote I/O will still work after WinEd was compiled
+                 also hidden ' uninit-shared-forth is uninit-shared-type previous
                  1 pause-seconds bye
          [else]
!                 s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon
!                 WinEd
          [then]
  [then]