diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-13 14:35:52 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-13 14:35:52 +0000 |
| commit | fe57c63558450228ca52c6f3302910372be6ebb4 (patch) | |
| tree | cba149bbace96874d5e4831b24c29621c7c7b1cd /perl-install/ugtk2.pm | |
| parent | 39824973bc990aabe121d812abfc3467df8be98a (diff) | |
| download | drakx-fe57c63558450228ca52c6f3302910372be6ebb4.tar drakx-fe57c63558450228ca52c6f3302910372be6ebb4.tar.gz drakx-fe57c63558450228ca52c6f3302910372be6ebb4.tar.bz2 drakx-fe57c63558450228ca52c6f3302910372be6ebb4.tar.xz drakx-fe57c63558450228ca52c6f3302910372be6ebb4.zip | |
- set_help is deprecated
- it is replaced by interactive_help_id on each ask_*
- many set_help do not have any correspondance in help.pm (drakxid-*),
those are commented for now
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index e527fe36c..ec00ee5d9 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1052,6 +1052,10 @@ sub ask_browse_tree_info { } @l; @buttons = reverse @buttons if !$::isInstall; + gtkpack__($box2, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub { + ask_warn(N("Help"), $common->{interactive_help}->()) + })) if $common->{interactive_help}; + if ($common->{auto_deps}) { gtkpack__($box1, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new($common->{auto_deps}), $common->{state}{auto_deps}), clicked => sub { invbool \$common->{state}{auto_deps} })); |