wisp-cvs

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv20078

Modified Files:
	winapi.tran 
Log Message:
implemented Sleep

Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- winapi.tran	21 May 2003 12:25:26 -0000	1.5
+++ winapi.tran	21 May 2003 12:58:57 -0000	1.6
@@ -21,4 +21,7 @@
 :[ ] SetConsoleTitleW \ ( string -- result )
     commit 'SetConsoleTitleW@kernel32 $call %eax ;
 
+:[ ] Sleep \ ( millisec -- )
+    commit 'Sleep@kernel32 $call %eax ;
+
 \ vim: ft=tran