[Win32forth-cvs] win32forth/src/lib ExUtils.f,1.12,1.13

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22713/src/lib

Modified Files:
	ExUtils.f 
Log Message:
Some cleanup

Index: ExUtils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ExUtils.f	24 Aug 2008 04:06:56 -0000	1.12
--- ExUtils.f	22 Dec 2008 11:04:53 -0000	1.13
***************
*** 168,175 ****
                  Call CloseClipboard drop ;
  
  : NoConsoleTitle     ( -- ) \ set console title text
  \ Some apps use the console window text to identify W32F, as such other Forth apps
!  \ with hidden consoles are incorrectly identified
                      z" " conhndl Call SetWindowText drop ;
  
  : >str		( n -- addr cnt ) \ converts n to counted string, return unique buffer
--- 168,177 ----
                  Call CloseClipboard drop ;
  
+ ((
  : NoConsoleTitle     ( -- ) \ set console title text
  \ Some apps use the console window text to identify W32F, as such other Forth apps
! \ with hidden consoles are incorrectly identified
                      z" " conhndl Call SetWindowText drop ;
+ ))
  
  : >str		( n -- addr cnt ) \ converts n to counted string, return unique buffer