summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-09 01:39:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-09 01:39:27 +0000
commit0bcef6753fff40efc1638452575b07eb7fb1c4f5 (patch)
tree582afdee2ddaf72c35553fb154a6dafbeb2e5244 /perl-install/standalone/drakfloppy
parentd1b4c0820761179bbcb2d066483236606c67fb7a (diff)
downloaddrakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.gz
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.bz2
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.tar.xz
drakx-0bcef6753fff40efc1638452575b07eb7fb1c4f5.zip
prefer obj->new rather than new obj for gtk+ widgets
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy16
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")),