From 6d89d1f68f86cd1913163c759ef0c1d6b9692f69 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 5 Sep 2001 12:09:15 +0000
Subject: 2 sec without sensitives buttons

---
 perl-install/install_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 2631c2024..1dde39b42 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -446,11 +446,12 @@ sub test_mouse {
 	   gtkpack(my $vbox_grab = new Gtk::VBox(0,0),
 		   my $darea = gtkset_usize(new Gtk::DrawingArea, $width+1, $height+1),
 #		   '',
-		   my $okcancel = create_okcancel($w, '', '', "edge"),
+		   my $okcancel = gtkset_sensitive(create_okcancel($w, '', '', "edge"), 0),
 		  ),
 	  );
 
     $okcancel->set_uposition(2, $height-30);
+    Gtk->timeout_add(1500, sub { gtkset_sensitive($okcancel, 1) });
 
     my $draw_rect; $draw_rect = sub {
 	my ($black, $fill, $rect) = @_;
-- 
cgit v1.2.1