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/Xconfig/resolution_and_depth.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perl-install/Xconfig/resolution_and_depth.pm') diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index 3ddb931cc..b3c71ff2c 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -269,13 +269,13 @@ sub choose_gtk { gtkpack_($W->create_box_with_title(N("Choose the resolution and the color depth"), if_($card->{BoardName}, "(" . N("Graphics card: %s", $card->{BoardName}) . ")"), ), - 1, gtkpack2(new Gtk2::VBox(0,0), - gtkpack2__(new Gtk2::VBox(0, 15), + 1, gtkpack2(Gtk2::VBox->new(0,0), + gtkpack2__(Gtk2::VBox->new(0, 15), $pixmap_mo, - gtkpack2(new Gtk2::HBox(0,0), + gtkpack2(Gtk2::HBox->new(0,0), create_packtable({ col_spacings => 5, row_spacings => 5 }, - [ $x_res_combo, new Gtk2::Label("") ], - [ $depth_combo, gtkadd(gtkset_shadow_type(new Gtk2::Frame, 'etched_out'), $pix_colors) ], + [ $x_res_combo, Gtk2::Label->new("") ], + [ $depth_combo, gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'etched_out'), $pix_colors) ], ), ), ), -- cgit v1.2.1