filechooserdialog

[Dave M <dave nerd gmail com>]

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