develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35076 - trunk/examples/nci

From:
kjs
Date:
January 6, 2009 11:44
Subject:
[svn:parrot] r35076 - trunk/examples/nci
Message ID:
20090106194426.143C3CB9F9@x12.develooper.com
Author: kjs
Date: Tue Jan  6 11:44:25 2009
New Revision: 35076

Modified:
   trunk/examples/nci/QtHelloWorld.pasm

Log:
[examples] fix 'invoke' into 'invokecc P0'. No longer implicit ops.

Modified: trunk/examples/nci/QtHelloWorld.pasm
==============================================================================
--- trunk/examples/nci/QtHelloWorld.pasm	(original)
+++ trunk/examples/nci/QtHelloWorld.pasm	Tue Jan  6 11:44:25 2009
@@ -31,35 +31,35 @@
 
 # get and invoke the QApplication_new function
     dlfunc P0, P1, "QApplication_new", "pv"
-    invoke
-    set P2, P5	# remember pApp
+    invokecc P0
+    set P2, P5  # remember pApp
 
 # get and invoke QLabel_new
     set S5, "Hello, world!"
     dlfunc P0, P1, "QLabel_new", "pt"
     # if you need more labels, save P0 = QLabel_new() function
-    invoke
-    set P6, P5	# save pLabel
+    invokecc P0
+    set P6, P5  # save pLabel
 
 # size the QLabel
-    set I5, 30	# y
-    set I6, 120	# x
+    set I5, 30  # y
+    set I6, 120 # x
     dlfunc P0, P1, "QLabel_resize", "vpii"
-    invoke
+    invokecc P0
 
 # register the label
     dlfunc P0, P1, "QApplication_setMainWidget", "vpp"
-    set P5, P6	# pLabel
-    set P6, P2	# pApp
-    invoke
+    set P5, P6  # pLabel
+    set P6, P2  # pApp
+    invokecc P0
     # P5  = label
     dlfunc P0, P1, "QLabel_show", "vp"
-    invoke
+    invokecc P0
 
 # and go
     dlfunc P0, P1,"QApplication_exec", "vp"
-    set P5, P2	# app
-    invoke
+    set P5, P2  # app
+    invokecc P0
     end
 
 =head1 SEE ALSO



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About