diff options
| -rwxr-xr-x | perl-install/standalone/mousedrake | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index 0cd5330d4..beb02fd5f 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -28,7 +28,7 @@ if (!$mouse || !$::auto) { if ($::isEmbedded && $in->isa('interactive::gtk')) { #- HACK: waiting for the ask_from_treelistf to attach itself #- and adding the nice test mouse to it - Gtk->timeout_add(100, sub { + Gtk2->timeout_add(100, sub { defined $::Plug && defined $::Plug->child or return 1; mouse::test_mouse_standalone($mouse,$::Plug->child); 0; |