summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-05 12:09:15 +0000
committerdamien <damien@mandriva.com>2001-09-05 12:09:15 +0000
commit6d89d1f68f86cd1913163c759ef0c1d6b9692f69 (patch)
treed53acab810e8b56c8842a491b95d13dc2ab6302e /perl-install/install_gtk.pm
parent2e91640b8e3f79a38ad44899f3a36d654e09d6ec (diff)
downloaddrakx-backup-do-not-use-6d89d1f68f86cd1913163c759ef0c1d6b9692f69.tar
drakx-backup-do-not-use-6d89d1f68f86cd1913163c759ef0c1d6b9692f69.tar.gz
drakx-backup-do-not-use-6d89d1f68f86cd1913163c759ef0c1d6b9692f69.tar.bz2
drakx-backup-do-not-use-6d89d1f68f86cd1913163c759ef0c1d6b9692f69.tar.xz
drakx-backup-do-not-use-6d89d1f68f86cd1913163c759ef0c1d6b9692f69.zip
2 sec without sensitives buttons
Diffstat (limited to 'perl-install/install_gtk.pm')
-rw-r--r--perl-install/install_gtk.pm3
1 files changed, 2 insertions, 1 deletions
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) = @_;