From 335750cf319ffb81c431334dff3b58b39c670f15 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Fri, 7 Aug 2009 18:01:22 +0000 Subject: use gtk instead of X to focus window and revert workaround for the crash --- perl-install/mygtk2.pm | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) (limited to 'perl-install/mygtk2.pm') 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) = @_; -- cgit v1.2.1