diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-09 01:39:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-09 01:39:27 +0000 |
| commit | 0bcef6753fff40efc1638452575b07eb7fb1c4f5 (patch) | |
| tree | 582afdee2ddaf72c35553fb154a6dafbeb2e5244 /perl-install/standalone/drakfloppy | |
| parent | d1b4c0820761179bbcb2d066483236606c67fb7a (diff) | |
| download | drakx-backup-do-not-use-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar drakx-backup-do-not-use-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.gz drakx-backup-do-not-use-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.bz2 drakx-backup-do-not-use-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.xz drakx-backup-do-not-use-0bcef6753fff40efc1638452575b07eb7fb1c4f5.zip | |
prefer obj->new rather than new obj for gtk+ widgets
Diffstat (limited to 'perl-install/standalone/drakfloppy')
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index 2734286e1..5f0fbd007 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -74,16 +74,16 @@ my $kernel_combo = Gtk2::ComboBox->new_with_strings([ sort grep { !/^\.\.?$/ } s ### main window $window->{window}->add( gtkpack_(Gtk2::VBox->new, - if_($::isEmbedded, 0, new Gtk2::Label(N("Boot disk creation"))), + if_($::isEmbedded, 0, Gtk2::Label->new(N("Boot disk creation"))), 0, gtkadd(Gtk2::Frame->new(N("General")), - gtkpack__(new Gtk2::VBox(0, 0), - gtkpack__(new Gtk2::HBox(1, 0), + gtkpack__(Gtk2::VBox->new(0, 0), + gtkpack__(Gtk2::HBox->new(1, 0), Gtk2::Label->new(N("Device")), $device_combo, gtksignal_connect(Gtk2::Button->new(N("Default")), clicked => sub { $device_combo->entry->set_text("/dev/fd0") }), ), - gtkpack__(new Gtk2::HBox(1, 0), + gtkpack__(Gtk2::HBox->new(1, 0), Gtk2::Label->new(N("Kernel version")), $kernel_combo, gtksignal_connect(Gtk2::Button->new(N("Default")), @@ -137,10 +137,10 @@ sub pref_dialog() { gtkpack_($dialog->vbox, 0, gtkadd(Gtk2::Frame->new(N("Mkinitrd optional arguments")), gtkpack__(Gtk2::VBox->new(0, 5), - $buttons{force} = new Gtk2::CheckButton(N("force")), - $buttons{raid} = new Gtk2::CheckButton(N("omit raid modules")), - $buttons{needed} = new Gtk2::CheckButton(N("if needed")), - $buttons{scsi} = new Gtk2::CheckButton(N("omit scsi modules")), + $buttons{force} = Gtk2::CheckButton->new(N("force")), + $buttons{raid} = Gtk2::CheckButton->new(N("omit raid modules")), + $buttons{needed} = Gtk2::CheckButton->new(N("if needed")), + $buttons{scsi} = Gtk2::CheckButton->new(N("omit scsi modules")), ), ), 1, gtkadd(Gtk2::Frame->new(N("Add a module")), |