I copied your neat program into a file, called it gtk2test.p6 and got
pugs gtk2_test.p6
   unexpected ":"
   expecting term postfix, operator, ";" or end of input
   at gtk2_test.p6 line 2, column 56

However, I am using pugs from the debian package and not directly from the repository. So perhaps, the problem is I am not using the latest version of pugs.


A. Pagaltzis wrote:
* Richard Hainsworth <[EMAIL PROTECTED]> [2006-09-17 18:05]:
The .can workaround doesnt seem to work for more complex

Err, the .can workaround is a way to get past missing sub
exports. Methods are never exported. Why are you using the
workaround for sub exports on methods.

Here is a working perl5 program that puts up a message with two

use strict;
use Gtk2 -init;
use Gtk2::Ex::Dialogs(destroy_with_parent=>-1, modal=>-1, no_separator => 0);
my $window = Gtk2::Window->new('toplevel');
Gtk2::Ex::Dialogs->set_parent_window( $window );
my $r = Gtk2::Ex::Dialogs::Question->ask( "Is Perl only hackers glue?");
if ($r) {print "yes\n";} else {print "no\n";};

Should be simply:

    use perl5:Gtk2 '-init';
    use perl5:Gtk2::Ex::Dialogs :destroy_with_parent( -1 ) :modal( -1 ) 
    my $window = Gtk2::Window.new( 'toplevel' );
    Gtk2::Ex::Dialogs.set_parent_window( $window );
    my $r = Gtk2::Ex::Dialogs::Question.ask( "Is Perl only hackers glue?" );
    say $r ?? 'yes' !! 'no';


Reply via email to