[Win32forth-cvs] win32forth/apps/WinEd WinEd.f,1.19,1.20

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	WinEd.f 
Log Message:
Jos: To simplify console applications. Saving boring cut and past actions.

Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** WinEd.f	2 Aug 2008 15:45:48 -0000	1.19
--- WinEd.f	16 Aug 2008 13:31:25 -0000	1.20
***************
*** 119,135 ****
  
  [DEFINED]  C_EMIT  [IF]  \ When the new console is used
! : New-default-hello ( -- )                          \ startup stuff
!         initialization-chain do-chain
!         NewConsole
!         init-console drop   \ start console hidden
! \        init-screen   \ start console visible
!         exception@ if bye then
!         unset-except set-except   \ exception handling needs to be set after the console is started
!         exception@ if bye then
! \        get-commandline                 \ commandline to SOURCE
!         default-application
!         ;
! 
! ' New-default-hello is default-hello
  [THEN]
  
--- 119,123 ----
  
  [DEFINED]  C_EMIT  [IF]  \ When the new console is used
! 	in-hidden-console
  [THEN]