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

Reply via email to