diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-13 17:45:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-13 17:45:43 +0000 |
| commit | cb592493ba0a902c1d338cc0e2d57c45cbc4b06c (patch) | |
| tree | 083ee6b20ad44b5d6e34832723045658c63c1224 /perl-install/ugtk2.pm | |
| parent | 9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060 (diff) | |
| download | drakx-cb592493ba0a902c1d338cc0e2d57c45cbc4b06c.tar drakx-cb592493ba0a902c1d338cc0e2d57c45cbc4b06c.tar.gz drakx-cb592493ba0a902c1d338cc0e2d57c45cbc4b06c.tar.bz2 drakx-cb592493ba0a902c1d338cc0e2d57c45cbc4b06c.tar.xz drakx-cb592493ba0a902c1d338cc0e2d57c45cbc4b06c.zip | |
enable to access extra buttons $w->{buttons}{<label>}
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index cf1ae7fb3..7c96fc35e 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -503,8 +503,8 @@ sub create_okcancel { require any; $wm_is_kde = $::isInstall || any::running_window_manager() eq "kwin" || 0; } - my @l2 = map { gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep { $_->[2] } @other; - my @r2 = map { gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep { !$_->[2] } @other; + my @l2 = map { $w->{buttons}{$_->[0]} = gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep { $_->[2] } @other; + my @r2 = map { $w->{buttons}{$_->[0]} = gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[1]) } grep { !$_->[2] } @other; # we put space to group buttons in two packs (but if there's only one when not in wizard mode) # but in the installer where all windows run in wizard mode because of design even when not in a wizard step my @extras = (@l2, @r2); |