diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-09-05 16:17:17 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-09-05 16:17:17 +0000 |
| commit | a5c70807b298a58cbfe94fdfc11cb8b882a40133 (patch) | |
| tree | 80a708841cf0204b904b4c2689cbd4217d2e75b5 /perl-install/install/steps_gtk.pm | |
| parent | 491e61d3bc2a9a5a04abe25d9901890761f9a571 (diff) | |
| download | drakx-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.pm | 11 |
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}, |