diff options
| -rwxr-xr-x | clock.pl | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -35,6 +35,7 @@ my $dRadians_hour; my $dRadians_min; my $dRadians_sec; my $Radian; +my $type; my $timer; my ($midx, $midy); my $first=1; @@ -72,6 +73,7 @@ $button_time->signal_connect ( clicked => sub { } }); my $vbox2 = new Gtk::VBox(0,0); +my $pressed; $hbox->pack_start($vbox2, 1, 1, 0); my $drawing_area = new Gtk::DrawingArea; $drawing_area->size(300,300); @@ -159,7 +161,7 @@ $is24 = $h_old>12; $old_year += 1900; $calendar->select_month($old_month, $old_year); $calendar->select_day($old_day); -$::isEmbedded and kill USR2, $::CCPID; +$::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; @@ -221,7 +223,7 @@ sub determine_radian { } sub quit_global { - $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0); + $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0); } sub expose_event { |