diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-12 15:32:53 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-12 15:32:53 +0000 |
| commit | 9aa6a9ea2d92709c2fc9174984d48f75c375436b (patch) | |
| tree | f86ae65c1bac935831c2d726b7d1025a78b89d0f /perl-install/ugtk2.pm | |
| parent | b64ac54aaa2f2a3d530eb07b79a5f5cc73426316 (diff) | |
| download | drakx-backup-do-not-use-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar drakx-backup-do-not-use-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar.gz drakx-backup-do-not-use-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar.bz2 drakx-backup-do-not-use-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar.xz drakx-backup-do-not-use-9aa6a9ea2d92709c2fc9174984d48f75c375436b.zip | |
- ensure focus should not be needed anymore
- support XSetInputFocus hackery
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 |