From 32a2e8da9e14337df3c797a07ba16e1d232bb9ad Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Sep 2000 21:33:34 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 800777f7b..dad17459a 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -238,7 +238,7 @@ sub create_okcancel {
     my $b2 = !$one && gtksignal_connect(new Gtk::Button($cancel || _("Cancel")), "clicked" => $w->{cancel_clicked} || sub { $w->{retval} = 0; Gtk->main_quit });
     my @l = grep { $_ } $::isStandalone ? ($b2, $b1) : ($b1, $b2);
 
-    $_->can_default(1) foreach @l;
+    $_->can_default($::isStandalone) foreach @l;
     gtkadd(create_hbox($spread), @l);
 }
 
-- 
cgit v1.2.1