Webmaster Forum / Perl / Tk / April 2008

I want to get a list of all the children, i.e., all the paths, when a
user double-clicks on a directory entry. The infoChildren($path)
method only returns the displayed children; recursive calls to
infoChildren() will return nothing.

n my perl script, I need to know the command alias name to make my
program flexible. I tried many methods like system("alias cmd"),
`alias cmd`, use shell qw,etc. But no one could recognize the built in
command alias. If I use `which cmd`, it would look for the command

I'm running ActiveState build 813 on XP/Home.
I've been using the cascade, command, and separator methods of the
Menu widget. None of them are mentioned in the (ActiveState) Menu man
page, but are described in Walsh's book and seem to work fine.

Debian/Etch TK804
I coulda swore I saw a blurb on how to intercept the X close box in my
Mastering TK manual.  But I can't find it and trying to search on X close
gives about 50 zillion hits on both the XBOX and Xwindows.  The only

I have a Perl Tk application I've developed which comes up on some
X-Window machines (Sun Solaris CDE I believe) with the wrong colors:
white text on a white background.  Linux running KDE and Gnome
comes up fine.

How can I set my top level window (MainWindow) at a fixed position?
For right now, every time I run the script, it position randomly. Like
set at x=200,y=400 in terms of pixels or something.
$mw = MainWindow->new;

I am beginning with ptk and have a question about how to use widgets
in subroutines.
A typical application is a simple output in a text widget in a
subroutine.

I have a set of cascaded menus in a menu-bar and i want to bind a key to
call/recall a second or third tier menu when no menu is posted.  Can i do
this without making a popup clone?
I have tried using "->post" "->postcascade" and "->activate", eg.

does anyone have a replacement for the standard ColorEditor? This widget is
(i) not always easy to use (ii) quite different from what most people are
used to.
Cheers,

I have a problem with bindtags which the minimal program below
illustrates.
use strict;
use Tk;

Is it possible to set justification on each column individually (right/
left/center) in TableMatrix?
Please find the attached sample application.
Thanks,

Here's my problem: I need to keep running a subroutine (with a while
loop) until a condition is met, but this condition can only be set by
a button on my Tk interface being pressed. The problem is that while
the loop is running no other activity in the application is allowed,

I have some problems finishing off my program.
I decided that some portions of certain windows are colored. Some widgets
are created using "Scrolled". Given that $mw is some container,
my $frame = $mw->Frame( -background => '#DDFFDD' )->pack( ... ) ;

Hi, two questions really...
Is there any sort of recommended or 'best' way to go about resizing
images according to the screen resolution; at program startup?
Is there a way to enforce a particular screen resolution and still