diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-01-18 19:00:47 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:32 +0100 |
| commit | 560f03ba7a642654d75055bfb0b9062d4c481f66 (patch) | |
| tree | 30dd18f6f7399490ddaa22cfab5e548c116b1aef /perl-install/install | |
| parent | 2982650bb08f0d49fa74e396a1ea5d23a6048213 (diff) | |
| download | drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.gz drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.bz2 drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.tar.xz drakx-560f03ba7a642654d75055bfb0b9062d4c481f66.zip | |
convert from mygtk2 to ugtk2
(needed for next commits)
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 12 |
1 files changed, 6 insertions, 6 deletions
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' }) }), |