summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-14 23:59:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-14 23:59:01 +0000
commita4299593feb14ed8317da49980b8c06e59688aa2 (patch)
treecf2fea27a2884a3205a95d5c3042cdae91be7c66 /perl-install/my_gtk.pm
parent21066f8c4d8d136cca65f7138cabb25d4b4cfe8c (diff)
downloaddrakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar.gz
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar.bz2
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.tar.xz
drakx-a4299593feb14ed8317da49980b8c06e59688aa2.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm17
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',