[Win32forth-cvs] win32forth/src Primutil.f,1.32,1.33

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16377

Modified Files:
	Primutil.f 
Log Message:
Jos: Moved  MESSAGELOOP and WINPAUSE to the application space since they are used in a number of turnkeys.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** Primutil.f	20 Aug 2008 06:13:19 -0000	1.32
--- Primutil.f	20 Aug 2008 09:34:03 -0000	1.33
***************
*** 740,758 ****
  WinLibrary USER32.DLL
  
- in-system
- 
- \ April 23rd, 1999 - 14:05 tjz
- \ not updated like WINCON-NUMBER? to succeed on ANSI versions, because
- \ this only needs to detect WM_ constants for OOP.
- 
- : IsWinConstant ( str -- str FALSE | val TRUE )
-                 { \ WinVal -- }
-                 &of WinVal over
-                 count swap Call wcFindWin32Constant
-                 -if     2drop
-                         WinVal TRUE
-                 then    ;
- 
- 
  \ ------------------ HandleMessages MessageLoop  & WINPAUSE ------------------
  
--- 740,743 ----
***************
*** 792,795 ****
--- 777,793 ----
          ;
  
+ in-system
+ 
+ \ April 23rd, 1999 - 14:05 tjz
+ \ not updated like WINCON-NUMBER? to succeed on ANSI versions, because
+ \ this only needs to detect WM_ constants for OOP.
+ 
+ : IsWinConstant ( str -- str FALSE | val TRUE )
+                 { \ WinVal -- }
+                 &of WinVal over
+                 count swap Call wcFindWin32Constant
+                 -if     2drop
+                         WinVal TRUE
+                 then    ;