From 9aa6a9ea2d92709c2fc9174984d48f75c375436b Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 12 Feb 2003 15:32:53 +0000 Subject: - ensure focus should not be needed anymore - support XSetInputFocus hackery --- perl-install/ugtk2.pm | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 5494e0f8e..e527fe36c 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -895,19 +895,10 @@ sub _create_window($$) { $w->set_name("Title"); $w->set_title($title); - print STDERR "TODO: XSetInputFocus if force_focus\n"; -# $w->signal_connect(expose_event => sub { eval { $interactive::objects[-1]{rwindow} == $w and $w->window->XSetInputFocus } }) if $force_focus || $o->{force_focus}; + $w->signal_connect(expose_event => sub { eval { $interactive::objects[-1]{rwindow} == $w and $w->window->XSetInputFocus } }) if $force_focus || $o->{force_focus}; $w->signal_connect(delete_event => sub { if ($::isWizard) { $w->destroy; die 'wizcancel' } else { Gtk2->main_quit } }); $w->set_uposition(@{$force_position || $o->{force_position}}) if $force_position || $o->{force_position}; - print STDERR "TODO: ensure focus stuff\n"; -# my $focusing; -# $w->signal_connect(focus => sub { -# return 1 if $focusing; -# $focusing = 1; -# Gtk2->idle_add(sub { $w->ensure_focus($_[0]); $focusing = 0; 0 }, $_[1]); -# }) if $w->can('ensure_focus'); - if ($::o->{mouse}{unsafe}) { $w->add_events('pointer-motion-mask'); my $signal; #- don't make this line part of next one, signal_disconnect won't be able to access $signal value -- cgit v1.2.1