From 0bcef6753fff40efc1638452575b07eb7fb1c4f5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Aug 2004 01:39:27 +0000 Subject: prefer obj->new rather than new obj for gtk+ widgets --- perl-install/standalone/drakbug | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'perl-install/standalone/drakbug') diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index a4c7eaed4..558eea134 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -80,8 +80,8 @@ if ($mandrake_release =~ /(official|community)/i) { if ($stable_release == 0) { $table = create_packtable({ col_spacings => 5, row_spacings => 10 }, - [ new Gtk2::Label(N("Application:")), $comb_app = Gtk2::ComboBox->new_text ], - [ new Gtk2::Label(N("Package: ")), $package = Gtk2::Entry->new_with_text("...") ], # complain on gtk-perl@ml + [ Gtk2::Label->new(N("Application:")), $comb_app = Gtk2::ComboBox->new_text ], + [ Gtk2::Label->new(N("Package: ")), $package = Gtk2::Entry->new_with_text("...") ], # complain on gtk-perl@ml [ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new_with_text($kernel_release), 0) ], [ Gtk2::Label->new(N("Release: ")), gtkset_editable(Gtk2::Entry->new_with_text($mandrake_release), 0) ] ); @@ -89,7 +89,7 @@ if ($stable_release == 0) { } else { $table = create_packtable({ col_spacings => 5, row_spacings => 5 }, [Gtk2::Label->new(N("Application Name\nor Full Path:")), - gtkpack_(new Gtk2::HBox(0,5), + gtkpack_(Gtk2::HBox->new(0,5), 1, $comb_app = gtkset_editable(Gtk2::Entry->new, 1), 0, $button_pkg = Gtk2::Button->new(N("Find Package")), )], @@ -100,16 +100,16 @@ if ($stable_release == 0) { $textview = Gtk2::TextView->new; - $extra_data = gtkpack_(new Gtk2::VBox(0,1), + $extra_data = gtkpack_(Gtk2::VBox->new(0,1), 0, Gtk2::Label->new(N("Bug Description/System Information")), 1, create_scrolled_window(gtktext_insert($textview, N("YOUR TEXT HERE"), editable => 1, visible => 1)), - 0, gtkpack_(new Gtk2::HBox(0,20), - 0, new Gtk2::HBox(0,0), - 1, $kversion = new Gtk2::CheckButton(N("Submit kernel version")), - 1, $cpuinfo = new Gtk2::CheckButton(N("Submit cpuinfo")), - 1, $lspci = new Gtk2::CheckButton(N("Submit lspci")), + 0, gtkpack_(Gtk2::HBox->new(0,20), + 0, Gtk2::HBox->new(0,0), + 1, $kversion = Gtk2::CheckButton->new(N("Submit kernel version")), + 1, $cpuinfo = Gtk2::CheckButton->new(N("Submit cpuinfo")), + 1, $lspci = Gtk2::CheckButton->new(N("Submit lspci")), ), - 0, new Gtk2::HSeparator, + 0, Gtk2::HSeparator->new, ); $kversion->set_active(1); $cpuinfo->set_active(1); @@ -117,13 +117,13 @@ if ($stable_release == 0) { } gtkadd($window->{window}, - gtkpack_(new Gtk2::VBox(0,5), + gtkpack_(Gtk2::VBox->new(0,5), 0, gtkadd($table), 1, gtkadd($extra_data), - 0, gtkpack(new Gtk2::HBox(0,0), - gtkpack(gtkset_justify(new Gtk2::Label($upload_info), "left")), + 0, gtkpack(Gtk2::HBox->new(0,0), + gtkpack(gtkset_justify(Gtk2::Label->new($upload_info), "left")), ), - 0, gtkpack(new Gtk2::HSeparator), + 0, gtkpack(Gtk2::HSeparator->new), 0, gtkpack_(Gtk2::HBox->new(0,0), 0, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub { system("drakhelp --id drakbug &") }), 1, Gtk2::Label->new(""), -- cgit v1.2.1