diff options
| -rwxr-xr-x | perl-install/standalone/drakclock | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock index f0050e594..3f4fe2e84 100755 --- a/perl-install/standalone/drakclock +++ b/perl-install/standalone/drakclock @@ -260,7 +260,7 @@ sub update_time() { } sub cal_changed() { - if (!$its_reset and $timer) { + if (!$its_reset && $timer) { Glib::Source->remove($timer); undef $timer; } @@ -359,7 +359,7 @@ sub Repaint { 1; } -sub DrawSec { +sub DrawSec() { my $dRadians = $dRadians_sec; $cairo->set_source_rgb(0.9, 0, 0); $cairo->move_to($midx, $midy); @@ -367,7 +367,7 @@ sub DrawSec { $cairo->stroke; } -sub DrawMin { +sub DrawMin() { my $dRadians = $dRadians_min; $cairo->set_source_rgb(0.2, 0.2, 0.2); $cairo->move_to($midx - 3/100 * $radius * sin($dRadians), $midy + 3/100 * $radius * cos($dRadians)); @@ -379,7 +379,7 @@ sub DrawMin { $cairo->fill; } -sub DrawHour { +sub DrawHour() { my $dRadians = $dRadians_hour + $dRadians_min / 12; $cairo->set_source_rgb(0.2, 0.2, 0.2); $cairo->move_to($midx - 4/100 * $radius * sin($dRadians), $midy + 4/100 * $radius * cos($dRadians)); @@ -391,7 +391,7 @@ sub DrawHour { $cairo->fill; } -sub DrawTicks { +sub DrawTicks() { $cairo->set_source_rgb(1, 1, 1); $cairo->new_sub_path; $cairo->arc($midx, $midy, $radius, 0, 2 * $PI); @@ -409,7 +409,7 @@ sub DrawTicks { $cairo->stroke; } -sub DrawPoints { +sub DrawPoints() { $cairo->set_source_rgb(0, 0, 0); foreach my $nMin (1..60) { my $dRadians = $nMin * $PI / 30; |