summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-27 12:06:28 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-27 12:06:28 +0000
commit007c7f0f78d25f0f88cbaa9fc1141877b180fab8 (patch)
tree164087b48648d28714f4d2ba4377d3a9bd3afdc4 /perl-install
parent4957f65d1a03e6b99af03f241024a794b8c237ae (diff)
downloaddrakx-backup-do-not-use-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar
drakx-backup-do-not-use-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar.gz
drakx-backup-do-not-use-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar.bz2
drakx-backup-do-not-use-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.tar.xz
drakx-backup-do-not-use-007c7f0f78d25f0f88cbaa9fc1141877b180fab8.zip
fix mousedrake in embedded mode
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/mousedrake7
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);