Perl/Tk Pocket Reference

18. Other Perl/Tk Commands 93

18. Other Perl/Tk Commands

$path = Tk->findINC(component);

Returns absolute pathname of component in installed Tk

hierarchy.

$soe = Tk::timeofday

;

Returns floating-point second of Unix epoch.

$widget->after(ms ?, callback ?);

Arranges for the callback to be run in ms milliseconds.

If the callback is omitted the program sleeps for ms

milliseconds.

$widget->afterCancel(id| callback);

Cancels a previous after either by id or callback.

$widget->afterIdle(callback);

Arranges for the callback to be run as soon as Tk is idle.

$widget->afterInfo(id);

Returns information on event callback id. With no id,

returns a list of all existing callback ids.

$widget->appname(?newName?);

Sets the interpreter name of the application to newName.

$widget->BackTrace(errorMessage);

Appends the string errorMessage to the list of trace back

messages.

$widget->bell;

Rings the X bell on

$widget’s display.

$widget->bisque;

Sets default color palette to old bisque scheme.

$widget->Busy(?-recurse =>1?);

Changes cursor to a watch until Unbusy is called. If

-

recurse is true, descend the widget hierarchy and

change all cursors.

catch {script};

An eval wrapper that traps errors. The script is actually a

Perl block.

94 Perl/Tk Pocket Reference

$widget->clipboardAppend(?-format => fmt??, -type =>

type?, data);

Appends data to ...