Hi all,

Can anyone see why this doesn't display?

#!/usr/bin/perl

use strict;
use warnings;

use Gtk3 '-init';

my $dialog = Gtk3::FileChooserDialog->new(
    'Select a file', undef,
    'open',
    'gtk-cancel' => 'cancel',
    'gtk-ok'     => 'ok',
    );

my $response = $dialog->run;
my $filename = $dialog->get_filename;
$dialog->destroy();

Gtk3->main();

Thanks,
Dave M
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@gnome.org
https://mail.gnome.org/mailman/listinfo/gtk-perl-list

Reply via email to