cvsuser 04/01/12 01:18:20
Modified: examples/pni win32api.imc
Log:
fix win32 example courtesy of Jonathan Worthington
Revision Changes Path
1.2 +7 -7 parrot/examples/pni/win32api.imc
Index: win32api.imc
===================================================================
RCS file: /cvs/public/parrot/examples/pni/win32api.imc,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- win32api.imc 24 Nov 2003 10:25:34 -0000 1.1
+++ win32api.imc 12 Jan 2004 09:18:19 -0000 1.2
@@ -11,23 +11,23 @@
# This is the entry point.
.sub _MAIN
# Load user32.dll library and the MessageBoxA API.
- .sym var libuser32
- .sym var MessageBoxA
+ .local pmc libuser32
+ .local pmc MessageBoxA
loadlib libuser32, "user32"
dlfunc MessageBoxA, libuser32, "MessageBoxA", "llttl"
# Set up parameters for the message box.
- .sym int phWnd
- .sym string message
- .sym string caption
- .sym int style
+ .local int phWnd
+ .local string message
+ .local string caption
+ .local int style
phWnd = 0 # Parent window handle - we have none.
message = "This is a message from Parrot!"
caption = "Hey, you!"
style = 64 # This gives us a nice i in a speech bubble icon.
# Invoke MessageBoxA.
- .sym int retVal
+ .local int retVal
.pcc_begin prototyped
.arg phWnd
.arg message
