summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-09-05 16:17:17 +0000
committerThierry Vignaud <tv@mandriva.org>2007-09-05 16:17:17 +0000
commita5c70807b298a58cbfe94fdfc11cb8b882a40133 (patch)
tree80a708841cf0204b904b4c2689cbd4217d2e75b5 /perl-install/install/steps_gtk.pm
parent491e61d3bc2a9a5a04abe25d9901890761f9a571 (diff)
downloaddrakx-a5c70807b298a58cbfe94fdfc11cb8b882a40133.tar
drakx-a5c70807b298a58cbfe94fdfc11cb8b882a40133.tar.gz
drakx-a5c70807b298a58cbfe94fdfc11cb8b882a40133.tar.bz2
drakx-a5c70807b298a58cbfe94fdfc11cb8b882a40133.tar.xz
drakx-a5c70807b298a58cbfe94fdfc11cb8b882a40133.zip
(reallyChooseDesktop) put images along labels in RadioButtons (HIG)
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm11
1 files changed, 6 insertions, 5 deletions
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},