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