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
|
