diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-15 13:39:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-15 13:39:47 +0000 |
| commit | 1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391 (patch) | |
| tree | 77f9dacda93e29ed4f35b9b572704749d826c53a /perl-install | |
| parent | 9d5c0be47531a767256f25aec6069f3ec8b7fafd (diff) | |
| download | drakx-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.pm | 2 |
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; |