summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
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) = @_;