diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-23 17:27:02 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-23 17:27:02 +0000 |
| commit | a872836d40a06ff578bbb1577975f5b4f1eefc96 (patch) | |
| tree | a9f3fce58920ee9fc325e27677aa8efbfb6dc9eb /perl-install | |
| parent | 247b7169e6db277a9bdc808c62d9315f9bd0d3bc (diff) | |
| download | drakx-backup-do-not-use-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar drakx-backup-do-not-use-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar.gz drakx-backup-do-not-use-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar.bz2 drakx-backup-do-not-use-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar.xz drakx-backup-do-not-use-a872836d40a06ff578bbb1577975f5b4f1eefc96.zip | |
fix usage of create_file_selector()
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 762289f44..1cffcb3d7 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -972,7 +972,7 @@ sub file_selected_check { sub _ask_file { my ($o, $title, $path) = @_; - my $w = create_file_selector({ title => $title, want_a_dir => 0, directory => $path }); + my $w = create_file_selector(title => $title, want_a_dir => 0, directory => $path); put_in_hash($o, $w); $w->{ok}->signal_connect(clicked => sub { $o->{retval} = $w->{chooser}->get_filename }); @@ -980,7 +980,7 @@ sub _ask_file { sub _ask_dir { my ($o, $title, $path) = @_; - my $w = create_file_selector({ title => $title, want_a_dir => 1, directory => $path }); + my $w = create_file_selector(title => $title, want_a_dir => 1, directory => $path); put_in_hash($o, $w); $w->{ok}->signal_connect(clicked => sub { $o->{retval} = $w->{chooser}->get_filename }); |