diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-06 17:58:22 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-06 17:58:22 +0000 |
| commit | 8bcf945dbec5accd4011940ad8a166d19145d8f1 (patch) | |
| tree | 72c8130c0d87712fe58ddd132a5e8fe696feeda1 /perl-install/interactive | |
| parent | 392ecc12d323eae88def56281938b3ca13009de1 (diff) | |
| download | drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar.gz drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar.bz2 drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar.xz drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.zip | |
increase gui coherency of drakxtools vs other gtk+ apps: use stock icons
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index d2effe1ee..f3af1e0b9 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -419,7 +419,7 @@ sub ask_fromW { if ($e->{image}) { $w = gtkadd(Gtk2::CheckButton->new, gtkshow(gtkcreate_img($e->{image}))); } else { - $w = Gtk2::CheckButton->new($e->{text}); + $w = Gtk2::CheckButton->new_from_stock($e->{text}); } $w->signal_connect(clicked => $changed); $set = sub { $w->set_active($_[0]) }; @@ -489,7 +489,7 @@ sub ask_fromW { %buttons = map { my $action = $_; - $action => gtksignal_connect(Gtk2::Button->new(translate($action)), + $action => gtksignal_connect(Gtk2::Button->new_from_stock(translate($action)), clicked => sub { $do_action->($action) }); } @actions; $real_w = gtkpack_(Gtk2::HBox->new(0,0), @@ -649,7 +649,7 @@ sub ask_fromW { 1, $create_widgets->($advanced_total_size, @widgets_advanced)); my @help = if_($common->{interactive_help}, - [ N("Help"), sub { + [ 'gtk-help', sub { my $message = $common->{interactive_help}->() or return; $o->ask_warn(N("Help"), $message); }, 1 ]); |