diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-14 23:59:01 +0000 |
| commit | a4299593feb14ed8317da49980b8c06e59688aa2 (patch) | |
| tree | cf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/my_gtk.pm | |
| parent | 21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff) | |
| download | drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2 drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz drakx-backup-do-not-use-a4299593feb14ed8317da49980b8c06e59688aa2.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 2c0c185d3..a2aa953bf 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -327,14 +327,15 @@ sub _create_window($$) { $w->signal_connect(focus => sub { Gtk->idle_add(sub { $w->ensure_focus($_[0]); 0 }, $_[1]) }) if $w->can('ensure_focus'); - $w->set_events("pointer_motion_mask"); - my $signal; - $signal = $w->signal_connect(motion_notify_event => sub { - delete $o->{mouse}{unsafe}; - log::l("unsetting unsafe mouse"); - $w->signal_disconnect($signal); - }) if $o->{mouse}{unsafe}; - + if ($::o->{mouse}{unsafe}) { + $w->set_events("pointer_motion_mask"); + my $signal; + $signal = $w->signal_connect(motion_notify_event => sub { + delete $::o->{mouse}{unsafe}; + log::l("unsetting unsafe mouse"); + $w->signal_disconnect($signal); + }); + } $w->signal_connect(key_press_event => sub { my $d = ${{ 65470 => 'help', 65481 => 'next', |