summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-13 17:45:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-13 17:45:43 +0000
commitcb592493ba0a902c1d338cc0e2d57c45cbc4b06c (patch)
tree083ee6b20ad44b5d6e34832723045658c63c1224 /perl-install
parent9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060 (diff)
downloaddrakx-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')
-rw-r--r--perl-install/ugtk2.pm4
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);