summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakclock
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2004-09-01 04:27:46 +0000
committerFlorent Villard <warly@mandriva.com>2004-09-01 04:27:46 +0000
commit7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724 (patch)
treeb0e39e511fe7374d1c6a8fcc68319682b3a02aca /perl-install/standalone/drakclock
parent4b17169e2015ec678c4d5b0b5b0f6d64ca16348f (diff)
downloaddrakx-backup-do-not-use-7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724.tar
drakx-backup-do-not-use-7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724.tar.gz
drakx-backup-do-not-use-7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724.tar.bz2
drakx-backup-do-not-use-7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724.tar.xz
drakx-backup-do-not-use-7c95efc21d7ba8c0f973fcd7320cdda3a9ddb724.zip
initialize and so that motion_event correctly handle the mouse moves
Diffstat (limited to 'perl-install/standalone/drakclock')
-rwxr-xr-xperl-install/standalone/drakclock5
1 files changed, 2 insertions, 3 deletions
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);