From 560f03ba7a642654d75055bfb0b9062d4c481f66 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 18 Jan 2013 19:00:47 +0100 Subject: convert from mygtk2 to ugtk2 (needed for next commits) --- perl-install/install/steps_gtk.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/install/steps_gtk.pm') diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 1e715d0a8..04db5ffd1 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -278,17 +278,17 @@ sub reallyChooseDesktop { my $wp = ugtk2->new($title{$val->[0]}, transient => $w->{real_window}, modal => 1); gtkadd($wp->{rwindow}, - gtkpack_(Gtk2::VBox->new, + gtknew('VBox', children => [ 0, gtknew('Title2', label => N("Here's a preview of the '%s' desktop.", $val->[1]), # workaround infamous 6 years old gnome bug #101968: width => mygtk2::get_label_width(), ), 1, gtknew('Image', file => "desktop-$val->[0]-big"), - 0, Gtk2::HSeparator->new, - 0, gtkpack(create_hbox('end'), + 0, gtknew('HSeparator'), + 0, gtknew('HButtonBox', layout => 'end', children_loose => [ gtknew('Button', text => N("Close"), clicked => sub { Gtk2->main_quit }) - ), - ), + ]), + ]), ); $wp->{real_window}->set_size_request(-1, -1); $wp->{real_window}->grab_focus; @@ -350,7 +350,7 @@ sub reallyChooseGroups { 0, gtknew('CheckButton', text => N("Individual package selection"), active_ref => $individual), ), 0, $w_size, - 0, Gtk2::HSeparator->new, + 0, gtknew('HSeparator'), 0, gtknew('HButtonBox', layout => 'edge', children_tight => [ gtknew('Install_Button', text => N("Help"), clicked => sub { interactive::gtk::display_help($o, { interactive_help_id => 'choosePackageGroups' }) }), -- cgit v1.2.1