From 007c7f0f78d25f0f88cbaa9fc1141877b180fab8 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 27 Feb 2003 12:06:28 +0000 Subject: fix mousedrake in embedded mode --- perl-install/standalone/mousedrake | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone/mousedrake') diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index 602f28db0..3aa9e5d36 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -25,12 +25,16 @@ if (!$::noauto) { if (!$mouse || !$::auto) { $mouse ||= mouse::fullname2mouse("serial|Generic 2 Button Mouse"); + my $test_hbox; if ($::isEmbedded && $in->isa('interactive::gtk')) { #- HACK: waiting for the ask_from_treelistf to attach itself #- and adding the nice test mouse to it Gtk2->timeout_add(100, sub { defined $::Plug && defined $::Plug->child or return 1; - mouse::test_mouse_standalone($mouse, $::Plug->child); + $test_hbox = Gtk2::HBox->new(0, 0); + $::WizardTable->attach($test_hbox, 2, 3, 1, 2, ['fill', 'expand'], ['fill', 'expand'], 0, 0); + $test_hbox->show_all; + mouse::test_mouse_standalone($mouse, $test_hbox); 0; }); } @@ -55,6 +59,7 @@ if (!$mouse || !$::auto) { [ mouse::serial_ports ], $mouse->{device}, ) || goto begin if $mouse->{type} eq 'serial'; + $test_hbox and $test_hbox->destroy; } mouse::write_conf($in, $mouse, 1); -- cgit v1.2.1