clock(3)
NAME
Tk::Clock - Clock widget with analog and digital display
SYNOPSIS
use Tk use Tk::Clock;
$clock = $parent->Clock (?-option => <value> ...?);
$clock->config ( # These reflect the defaults
useDigital => 1,
useAnalog => 1,
anaScale => 100,
handColor => "Green4",
secsColor => "Green2",
tickColor => "Yellow4",
tickFreq => 1,
timeFont => "fixed",
timeColor => "Red4",
timeFormat => "HH.MM:SS",
dateFont => "fixed",
dateColor => "Blue4",
dateFormat => "dd-mm-yy");
DESCRIPTION
Create a clock canvas with both an analog- and a digital
display. Either can be disabled by setting useAnalog or
useDigital to 0 resp.
Legal dateFormat characters are d and dd for date, ddd and
dddd for weekday, m, mm, mmm and mmmm for month, y and yy
for year and any separators :, -, / or space.
Legal timeFormat characters are H and HH for hour, h and
hh for AM/PM hour, M and MM for minutes, S and SS for sec
onds, A for AM/PM indicator and any separators :, -, . or
space.
Meaningful values for tickFreq are 1, 5 and 15 showing all
ticks, tick every 5 minutes or the four main ticks only,
though any positive integer will do (put a tick on any
tickFreq minute).
The analog clock can be enlaged or reduced using anaScale
for which the default of 100% is about 72x72 pixels.
Future enhancement will include auto sizing for anaScale
0.
BUGS
If the system load's too high, the clock might skip some
seconds.
Due to the fact that the year is expressed in 2 digit's,
this widget is not Y2K compliant in the default configura
tion.
There's no check if either format will fit in the given
space.
TODO
- * Using POSIX' strftime () for dateFormat. Current imple
mentation - would probably make this very slow. * Auto sizing to
- fit (analog) clock in given space.
AUTHOR
H.Merijn Brand <merijn@hempseed.com>
- Thanks to Larry Wall for inventing perl. Thanks to Nick
Ing-Simmons for providing perlTk. Thanks to Achim Bohnet
for introducing me to OO (and converting - the basics of my clock.pl to Tk::Clock.pm). Thanks to
- Sriram Srinivasan for understanding OO though his Panther
book.