From a5c70807b298a58cbfe94fdfc11cb8b882a40133 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 5 Sep 2007 16:17:17 +0000 Subject: (reallyChooseDesktop) put images along labels in RadioButtons (HIG) --- perl-install/install/steps_gtk.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 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 7ba1be3d4..cca9a1d95 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -223,7 +223,11 @@ sub reallyChooseDesktop { my $prev; my @l = map { my $val = $_; - $prev = gtknew('RadioButton', text => $val->[1], + $prev = gtknew('RadioButton', child => + gtknew('HBox', border_width => 15, spacing => 10, children => [ + 0, gtknew('Image', file => "desktop-$val->[0]", size_group => $sizegrp), + 1, gtknew('Label', text => $val->[1]), + ]), toggled => sub { $choice = $val if $_[0]->get_active }, $prev ? (group => $prev->get_group) : ()); $prev->signal_connect(key_press_event => sub { @@ -232,10 +236,7 @@ sub reallyChooseDesktop { Gtk2->main_quit; } }); - gtknew('HBox', border_width => 15, spacing => 10, children => [ - 0, gtknew('Image', file => "desktop-$val->[0]", size_group => $sizegrp), - 1, $prev, - ]); + $prev } @$choices; ugtk2::gtkadd($w->{window}, -- cgit v1.2.1