[Wisp-cvs] wisp/users/dig winapi.tran,1.4,1.5

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

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

Modified Files:
	winapi.tran 
Log Message:
wrote SetConsoleTitleA and SetConsoleTitleW

Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- winapi.tran	18 May 2003 17:25:28 -0000	1.4
+++ winapi.tran	21 May 2003 12:25:26 -0000	1.5
@@ -15,4 +15,10 @@
 :[ ] ExitProcess \ ( code -- )
     commit 'ExitProcess@kernel32 $call ;
 
+:[ ] SetConsoleTitleA \ ( string -- result )
+    commit 'SetConsoleTitleA@kernel32 $call %eax ;
+
+:[ ] SetConsoleTitleW \ ( string -- result )
+    commit 'SetConsoleTitleW@kernel32 $call %eax ;
+
 \ vim: ft=tran