diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-27 20:50:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-27 20:50:12 +0000 |
| commit | b0d554c4155060ed665844fdf7b2a08db9bb3356 (patch) | |
| tree | d1236029c2ac147b49a2da74bf132c3f56619406 /perl-install/my_gtk.pm | |
| parent | c2b148e1e94892d8d72000ed087b607ae28b5808 (diff) | |
| download | drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.gz drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.bz2 drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.xz drakx-backup-do-not-use-b0d554c4155060ed665844fdf7b2a08db9bb3356.zip | |
perl_checker adaptations
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 1fecfd5cf..91b6310d6 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -89,14 +89,14 @@ sub new { $::WizardWindow->show_all; flush(); } - $::WizardTable->attach($o->{window}, 0, 2, 1, 2, [-fill, -expand], [-fill, -expand], 0, 0); + $::WizardTable->attach($o->{window}, 0, 2, 1, 2, ['fill', 'expand'], ['fill', 'expand'], 0, 0); } if ($::isEmbedded && !$my_gtk::pop_it && !eval { $::Plug && $::Plug->child }) { $o->{isEmbedded} = 1; $o->{window} = new Gtk::HBox(0,0); $o->{rwindow} = $o->{window}; - $::Plug ||= new Gtk::Plug ($::XID); + $::Plug ||= new Gtk::Plug($::XID); $::Plug->show; flush(); $::Plug->add($o->{window}); @@ -329,7 +329,7 @@ sub _ask_okcancel($@) { sub _ask_file { my ($o, $title, $path) = @_; - my $f = $o->{rwindow} = new Gtk::FileSelection $title; + my $f = $o->{rwindow} = new Gtk::FileSelection($title); $f->set_filename($path); $f->ok_button->signal_connect(clicked => sub { $o->{retval} = $f->get_filename; Gtk->main_quit }); $f->cancel_button->signal_connect(clicked => sub { Gtk->main_quit }); |