summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-23 17:27:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-23 17:27:02 +0000
commita872836d40a06ff578bbb1577975f5b4f1eefc96 (patch)
treea9f3fce58920ee9fc325e27677aa8efbfb6dc9eb /perl-install
parent247b7169e6db277a9bdc808c62d9315f9bd0d3bc (diff)
downloaddrakx-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar
drakx-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar.gz
drakx-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar.bz2
drakx-a872836d40a06ff578bbb1577975f5b4f1eefc96.tar.xz
drakx-a872836d40a06ff578bbb1577975f5b4f1eefc96.zip
fix usage of create_file_selector()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm4
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 });