summaryrefslogtreecommitdiffstats
path: root/clock.pm
diff options
context:
space:
mode:
Diffstat (limited to 'clock.pm')
-rwxr-xr-xclock.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/clock.pm b/clock.pm
index eb890b59..0eaad013 100755
--- a/clock.pm
+++ b/clock.pm
@@ -111,10 +111,8 @@ $button_reset->signal_connect ( clicked => sub {
$button_reset->set_sensitive(0);
});
$bbox->add($button_reset);
-$button_reset->set_sensitive(0);
$window->show_all;
-$timer=Gtk->timeout_add(120, sub { time_to_rad(localtime(time)); Repaint($drawing_area) });
Gtk->main_iteration while Gtk->events_pending;
$calendar->realize;
@@ -123,9 +121,12 @@ $old_year += 1900;
$calendar->select_month($old_month, $old_year);
$calendar->select_day($old_day);
$::isEmbedded and kill USR2, $::CCPID;
+$button_reset->set_sensitive(0);
+$timer=Gtk->timeout_add(120, sub { time_to_rad(localtime(time)); Repaint($drawing_area) });
Gtk->main;
sub cal_changed {
+ $timer and Gtk->timeout_remove($timer);
$button_reset->set_sensitive(1);
}