diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-27 12:06:28 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-27 12:06:28 +0000 |
| commit | 007c7f0f78d25f0f88cbaa9fc1141877b180fab8 (patch) | |
| tree | 164087b48648d28714f4d2ba4377d3a9bd3afdc4 /perl-install | |
| parent | 4957f65d1a03e6b99af03f241024a794b8c237ae (diff) | |
| download | drakx-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar drakx-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar.gz drakx-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar.bz2 drakx-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar.xz drakx-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.zip | |
fix mousedrake in embedded mode
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 7 |
1 files changed, 6 insertions, 1 deletions
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); |