From cb592493ba0a902c1d338cc0e2d57c45cbc4b06c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 13 Jan 2004 17:45:43 +0000
Subject: enable to access extra buttons $w->{buttons}{<label>}

---
 perl-install/ugtk2.pm | 4 ++--
 1 file 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);
-- 
cgit v1.2.1