summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-12 15:32:53 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-12 15:32:53 +0000
commit9aa6a9ea2d92709c2fc9174984d48f75c375436b (patch)
treef86ae65c1bac935831c2d726b7d1025a78b89d0f /perl-install/ugtk2.pm
parentb64ac54aaa2f2a3d530eb07b79a5f5cc73426316 (diff)
downloaddrakx-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar
drakx-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar.gz
drakx-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar.bz2
drakx-9aa6a9ea2d92709c2fc9174984d48f75c375436b.tar.xz
drakx-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.pm11
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