diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-10-02 07:36:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-10-02 07:36:40 +0000 |
| commit | 054b15332f91996e114aea4121ab225c8c12c36d (patch) | |
| tree | 49f449fa7315ab0079e2e986d6100ab744ec8f56 /clock.pl | |
| parent | 85abeba3325789934fe318e0e664b0759fedddba (diff) | |
| download | control-center-054b15332f91996e114aea4121ab225c8c12c36d.tar control-center-054b15332f91996e114aea4121ab225c8c12c36d.tar.gz control-center-054b15332f91996e114aea4121ab225c8c12c36d.tar.bz2 control-center-054b15332f91996e114aea4121ab225c8c12c36d.tar.xz control-center-054b15332f91996e114aea4121ab225c8c12c36d.zip | |
fixes for strict
Diffstat (limited to 'clock.pl')
| -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 { |