summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-16 14:38:23 +0000
committerdamien <damien@mandriva.com>2001-09-16 14:38:23 +0000
commitf209b850ff926eddc77a75697d45fdf6c639c509 (patch)
tree2fb8b192b18bb2598688c082ce895a6453570950 /perl-install/mouse.pm
parentab7cc969195e009633b574d00bb1ca6abc70bc4b (diff)
downloaddrakx-f209b850ff926eddc77a75697d45fdf6c639c509.tar
drakx-f209b850ff926eddc77a75697d45fdf6c639c509.tar.gz
drakx-f209b850ff926eddc77a75697d45fdf6c639c509.tar.bz2
drakx-f209b850ff926eddc77a75697d45fdf6c639c509.tar.xz
drakx-f209b850ff926eddc77a75697d45fdf6c639c509.zip
bugfix + cosmetic changes
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm15
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index cad364d90..eca8df739 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -427,12 +427,13 @@ sub test_mouse_install {
gtkadd($w->{window},
gtkpack(my $vbox_grab = new Gtk::VBox(0,0),
gtksize(gtkset_usize($darea, $width+1, $height+1), $width+1, $height+1),
- my $okcancel = gtkset_sensitive(create_okcancel($w, '', '', "edge"), 0),
+ my $okcancel = gtkset_sensitive(create_okcancel($w, '', '', "edge"), 1)
),
);
- $okcancel->set_uposition(7, $height-23);
- Gtk->timeout_add(2000, sub { gtkset_sensitive($okcancel, 1) });
+ $okcancel->set_uposition(7, $height-43);
+ Gtk->timeout_add(2000, sub { gtkset_sensitive($okcancel, 1); $okcancel->draw(undef); });
test_mouse($mouse, $w, $darea, $width, $height);
+ $w->{window}->set_usize(undef, $height+10);
$w->sync; # HACK
Gtk::Gdk->pointer_grab($darea->window, 1,
[ 'pointer_motion_mask'],
@@ -479,9 +480,11 @@ sub test_mouse {
$image, 0, 0,
($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2,
210, 350);
- $draw_text->(_("Please test the mouse"), $height - 80);
- $draw_text->(_("To activate the mouse,"), $height - 65) if $mouse->{XMOUSETYPE} eq 'IMPS/2';
- $draw_text->(_("MOVE YOUR WHEEL!"), $height - 50) if $mouse->{XMOUSETYPE} eq 'IMPS/2';
+ $draw_text->(_("Please test the mouse"), $height - 120);
+ $draw_text->(_("To activate the mouse,"), $height - 105) if $mouse->{XMOUSETYPE} eq 'IMPS/2';
+ $draw_text->(_("MOVE YOUR WHEEL!"), $height - 90) if $mouse->{XMOUSETYPE} eq 'IMPS/2';
+ return if $::isStandalone;
+ $darea->window->draw_rectangle($darea->style->bg_gc('normal'), 1, 0, $height-65, $width, $height);
};
my $paintButton = sub {