O'Reilly logo

Mastering Perl/Tk by Nancy Walsh, Stephen Lidie

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Really Miscellaneous Methods

findINC returns the absolute pathname of a file:

$file = Tk->findINC("Xcamel.gif");

Tk->findINC searches for files in all Tk subdirectories of the current @INC path. This can also be a personal Tk directory, if it was added with use lib or push @INC,... earlier. If using the form Tk::findINC, then only @INC is searched, not the subdirectories.

FullScreen simply makes a Toplevel window as large as the display. On Win32, this does not include the taskbar area.

$mw->FullScreen;

Getimage looks for an image with the specified basename and returns the object reference. The subroutine appends extensions to the basename in the following order: xpm, gif, ppm, xbm until a valid image is found. If that fails, built-in images are searched.

$image = $widget->Getimage(name);

tainting returns a true value if the program is running with taint checks enabled.

$tainted = $widget->Tk::tainting;

scaling sets and queries the current scaling factor used by Tk to convert between physical units (for example, points, inches, or millimeters) and pixels. The number argument is a floating-point number that specifies the number of pixels per point on $widget’s display. If the number argument is omitted, the current value of the scaling factor is returned.

A point is a unit of measurement equal to 1/72 inch. A scaling factor of 1.0 corresponds to 1 pixel per point, which is equivalent to a standard 72 dpi monitor. A scaling factor of 1.25 would mean 1.25 pixels per point, ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required