diff options
| author | Pascal Terjan <pterjan@mandriva.org> | 2009-08-07 18:01:22 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@mandriva.org> | 2009-08-07 18:01:22 +0000 |
| commit | 335750cf319ffb81c431334dff3b58b39c670f15 (patch) | |
| tree | 22b7717b919c40b906ffd057bc5deb386ae8b969 /perl-install/mygtk2.pm | |
| parent | 0ca1aeec8743a6d16ba8305967d2bddff3ba0648 (diff) | |
| download | drakx-335750cf319ffb81c431334dff3b58b39c670f15.tar drakx-335750cf319ffb81c431334dff3b58b39c670f15.tar.gz drakx-335750cf319ffb81c431334dff3b58b39c670f15.tar.bz2 drakx-335750cf319ffb81c431334dff3b58b39c670f15.tar.xz drakx-335750cf319ffb81c431334dff3b58b39c670f15.zip | |
use gtk instead of X to focus window and revert workaround for the crash
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index b09dc0144..b62f29eec 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -1217,9 +1217,7 @@ sub _create_Window { } }); - if ($no_Window_Manager) { - _force_keyboard_focus($w); - } + $w->present(); if ($::isInstall && !$::isStandalone) { require install::gtk; #- for perl_checker @@ -1247,25 +1245,6 @@ sub _create_Window { $w; } -my $current_window; -sub _force_keyboard_focus { - my ($w) = @_; - - sub _XSetInputFocus { - my ($w) = @_; - if ($current_window == $w) { - $w->window->XSetInputFocus; - } - 0; - } - - #- force keyboard focus instead of mouse focus - my $previous_current_window = $current_window; - $current_window = $w; - $w->signal_connect(expose_event => \&_XSetInputFocus); - $w->signal_connect(destroy => sub { $current_window = $previous_current_window }); -} - sub _find_imgfile { my ($name) = @_; |