diff options
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")), |