Skip to content
Browse files

Work around a NQP limitation caught by jnthn++

  • Loading branch information...
1 parent 4efce50 commit 98818c9f96b02cbe119ee22139a130cf36a3a63c @sorear sorear committed Apr 2, 2010
Showing with 4 additions and 3 deletions.
  1. +4 −3 examples/tk.pl
View
7 examples/tk.pl
@@ -10,11 +10,12 @@
my $mw := %exp<sub><&MainWindow>().new;
-$mw.Label(-text => 'Hello, world!').pack;
+$mw.Label('-text', 'Hello, world!').pack;
+# NQP doesn't support named args starting with a dash
$mw.Button(
- -text => 'Quit',
- -command => sub (*@_) { exit },
+ '-text', 'Quit',
+ '-command', sub (*@_) { exit },
).pack;

0 comments on commit 98818c9

Please sign in to comment.
Something went wrong with that request. Please try again.