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]
|
