diff options
| author | damien <damien@mandriva.com> | 2001-05-08 03:59:34 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-05-08 03:59:34 +0000 |
| commit | 4213b85ef57b961669010886319f3c7a25d690e3 (patch) | |
| tree | f50afb6d483ab8998e23a6c83dfa876bd7e33bf8 /perl-install/standalone/mousedrake | |
| parent | 71b1b52293bf83589062429e681a438e92d9f0bd (diff) | |
| download | drakx-backup-do-not-use-4213b85ef57b961669010886319f3c7a25d690e3.tar drakx-backup-do-not-use-4213b85ef57b961669010886319f3c7a25d690e3.tar.gz drakx-backup-do-not-use-4213b85ef57b961669010886319f3c7a25d690e3.tar.bz2 drakx-backup-do-not-use-4213b85ef57b961669010886319f3c7a25d690e3.tar.xz drakx-backup-do-not-use-4213b85ef57b961669010886319f3c7a25d690e3.zip | |
code cleaned and debugged
Diffstat (limited to 'perl-install/standalone/mousedrake')
| -rwxr-xr-x | perl-install/standalone/mousedrake | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index 3d574900b..19f65f05f 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -25,6 +25,7 @@ my $in = vnew interactive('su'); undef $::Plug; begin: my ($mouse) = mouse::detect() unless $::noauto; +my $time_tag2; $::isEmbedded and kill USR2, $::CCPID; if (!$mouse || !$::auto) { @@ -41,7 +42,8 @@ if (!$mouse || !$::auto) { sub { join '|', map { translate($_) } split '\|', $_[0] }, [ mouse::fullnames ], $mouse->{type} . '|' . $mouse->{name}); - $name or $::isEmbedded ? do { kill(USR1, $::CCPID), goto begin } : $in->exit(0); + Gtk->timeout_remove($time_tag2) if $::isEmbedded && ref($in) =~ /gtk/; + $name or $::isEmbedded ? do { kill(USR1, $::CCPID); goto begin } : $in->exit(0); $mouse = mouse::fullname2mouse($name); if ($mouse->{device} eq "usbmouse") { @@ -122,23 +124,15 @@ sub test_mouse { $expose2 = 1; }); $darea->signal_connect(expose_event => sub { $expose = 1 }); - my $time_tag = Gtk->timeout_add(100, sub { + $time_tag2 = Gtk->timeout_add(100, sub { $expose && $expose2 or return 1; - print "PLOP\n"; $expose = 0; $draw_rect->(1, 0, [ 0, 0, $width, $height]); - $draw_text->(_("Please test the mouse"), 2 * $bh - 20); + $draw_text->(_("Test the mouse here."), 2 * $bh - 20); $draw_text->(_("To activate the mouse,"), 2 * $bh + 10) if $mouse->{XMOUSETYPE} eq 'IMPS/2'; $draw_text->(_("MOVE YOUR WHEEL!"), 2 * $bh + 30) if $mouse->{XMOUSETYPE} eq 'IMPS/2'; $paintButton->($_, 0) foreach 0..2; $expose = 0; 1; }); - $hbox->show_all; - Gtk->main_iteration while Gtk->events_pending; - -# $w->{cancel}->grab_focus; -# my $timeout = Gtk->timeout_add(1000, sub { if ($time-- == 0) { log::l("timeout test_mouse"); undef $w->{retval}; Gtk->main_quit } 1 }); -# my $b = before_leaving { log::l("removing timeout"); Gtk->timeout_remove($timeout) }; -# $w->main; } |