diff options
-rwxr-xr-x | clock.pm | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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); } |