summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-15 13:39:47 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-15 13:39:47 +0000
commit1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391 (patch)
tree77f9dacda93e29ed4f35b9b572704749d826c53a /perl-install
parent9d5c0be47531a767256f25aec6069f3ec8b7fafd (diff)
downloaddrakx-1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391.tar
drakx-1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391.tar.gz
drakx-1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391.tar.bz2
drakx-1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391.tar.xz
drakx-1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391.zip
do the set_events before the show otherwise gtk go crazy (no more keyboard focus)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 7613997d2..b4d2353b9 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -114,8 +114,8 @@ sub main {
gtkset_mousecursor_normal();
my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 });
my $b = before_leaving { Gtk->timeout_remove($timeout) };
- $o->show;
$o->{rwindow}->window->set_events(['key_press_mask', 'key_release_mask', 'exposure_mask']) if $o->{rwindow}->window;
+ $o->show;
do {
local $::setstep = 1;