From 7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724 Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Wed, 1 Sep 2004 04:27:46 +0000
Subject: initialize  and  so that motion_event correctly handle the mouse
 moves

---
 perl-install/standalone/drakclock | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 191a4d347..1f11a19e6 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -17,7 +17,6 @@ my $radius;
 my ($dRadians_hour, $dRadians_min, $dRadians_sec);
 my $Radian;
 my $timer;
-my ($midx, $midy);
 my $first = 1;
 my $its_reset = 0;
 
@@ -198,8 +197,6 @@ $spinner_s->signal_connect(activate => \&spinned);
 $spinner_s->signal_connect(scroll_event => \&spinned);
 $spinner_s->signal_connect(button_release_event => \&spinned);
 
-$my_win->{window}->show_all;
-
 gtkflush();
 
 my $is24 = $h_old > 12;
@@ -210,6 +207,8 @@ $button_reset->set_sensitive(0);
 $timer = Glib::Timeout->add(120, \&update_time);
 
 $drawing_area->show;
+$my_win->{window}->show_all;
+my ($midx, $midy) = ($drawing_area->allocation->width/2, $drawing_area->allocation->height/2);
 $my_win->main;
 ugtk2->exit(0);
 
-- 
cgit v1.2.1