summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-11 18:06:54 +0000
committerdamien <damien@mandriva.com>2001-09-11 18:06:54 +0000
commit91ed628b25cac36fa511fa24b04e90454e7a8bb3 (patch)
treefe89f090688e4e717abeac92cda142141dc0098e /perl-install
parentbda556c9185dae521863f8b69206c0bfc3326552 (diff)
downloaddrakx-91ed628b25cac36fa511fa24b04e90454e7a8bb3.tar
drakx-91ed628b25cac36fa511fa24b04e90454e7a8bb3.tar.gz
drakx-91ed628b25cac36fa511fa24b04e90454e7a8bb3.tar.bz2
drakx-91ed628b25cac36fa511fa24b04e90454e7a8bb3.tar.xz
drakx-91ed628b25cac36fa511fa24b04e90454e7a8bb3.zip
test updated
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm31
1 files changed, 14 insertions, 17 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 25be44262..6222e322f 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -1,7 +1,7 @@
package mouse; # $Id$
-use diagnostics;
-use strict;
+#use diagnostics;
+#use strict;
#-######################################################################################
#- misc imports
@@ -505,20 +505,11 @@ sub test_mouse {
($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67,
13, 62);
} else {
-#############
- $wait=1;
- $darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
- $m3_middle, 0, 0,
- ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67,
- 13, 62);
- Gtk->timeout_add(200, sub { $wait = 0 });
-#############
-
-# $darea->window->draw_arc ( $darea->style->black_gc,
-# 1, ($darea->allocation->[2]-$width)/2 + $x, ($darea->allocation->[3]-$height)/2 + 90, 20, 25,
-# 0, 360*64);
+ $darea->window->draw_arc ( $darea->style->black_gc,
+ 1, ($darea->allocation->[2]-$width)/2 + $x, ($darea->allocation->[3]-$height)/2 + 90, 20, 25,
+ 0, 360*64);
}
- } elsif ($nb == 4) {
+ } elsif ($nb == 3) {
$wait=1;
$darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
$aru, 0, 0,
@@ -529,11 +520,17 @@ sub test_mouse {
($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67,
13, 62);
Gtk->timeout_add(200, sub { $wait = 0 });
- } elsif ($nb == 5) {
+ } elsif ($nb == 4) {
+ $wait=1;
+ $darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
+ $ard, 0, 0,
+ ($darea->allocation->[2]-$width)/2+102, ($darea->allocation->[3]-$height)/2 + 131,
+ 6, 8);
$darea->window->draw_pixmap ($darea->style->bg_gc('normal'),
$m3_middle, 0, 0,
($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67,
- 13, 62)
+ 13, 62);
+ Gtk->timeout_add(200, sub { $wait = 0 });
}
};
$darea->signal_connect(button_press_event => sub {