In the following code snippet, I use 'repeat' to call a subroutine
(UpdateCurrentProgress()) once every 100ms. Is there something
equivalent in Perl/Tkx?
my $frame = MakeFrame("Build Progress:", $g_buttonFrame);
$g_progressLabel = $frame->Label(-text => "Initializing...",
-font => $textFont,
-width => 90,
-relief => 'sunken')->pack(-side =>
'left');
$g_progressLabel->configure(-font => [-weight => 'bold']);
$g_progressLabel->repeat(100, sub { UpdateCurrentProgress() });
And, are there any hints on how to translate the Tcl/Tk documentation to
Perl/Tkx? For example, I don't know how to interpret the following and
translate it into Perl/Tkx.
pathName configure ?option? ?value option value ...?
Query or modify the configuration options of the widget. If one or more
option-value pairs are specified, then the command modifies the given
widget option(s) to have the given value(s); in this case the command
returns an empty string. If option is specified with no value, then the
command returns a list describing the named option: the elements of the
list are the option name, database name, database class, default value,
and current value. If no option is specified, returns a list describing
all of the available options for pathName.
Dave