diff options
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 11 |
1 files changed, 1 insertions, 10 deletions
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 |