Webmaster Forum / Perl / Tk / August 2005

  I am a little bit confused about the usage of
  the -image option of the ToolBar widget...
  I have some icons extracted from other applications I want
  to use. However, there pops always an Error that tells me

Windows XP, Active State 5.8.0
Well I thought I was being smart to add:
$mw->bind("<Destroy>", [\&check_file_dirty]);
But after testing it, and a little thought, I'm pretty sure why I can't

I've a little problem with "Optionmenu" method. You know, when you have
too much variables, the option bar is too long and you can't see all the
list. Is there a scrollbar command for this method or something that
could "split" the list in two or three parts ???

Windows XP, Active State Perl 5.8.0.
I have a main window and a few related toplevels. I would like them all
to iconify when the main window is iconified ("minimized" in
Windows-speak). When I create the toplevels, I group them with the main

I'm trying to place a canvas text widget and I need to know the width of
its text in pixels. My little tester has a sequence like this:
my $id = $c->createText( $x, $y, -text => $label, -justify => 'left' );
my $font = $c->itemcget( $id, -font );

I am trying to display a progress bar during a system command. Something
like this:
@bases = `cleartool lsbl -s -stream $s_field@\\PVOB`
Do I do something like this:

I've been using Tk::Notebook for creating tabs in my perl-tk app.  But,
I've added enough tabs to go beyond some of our users screen widths.
So, I've been looking for something which will support multiple rows of
tabs.  So, I started playing with Tk::DynaTabFrame.

How do I center a listbox on the screen?
Tony

Can't understand why I haven't run across this before. And now that I
have, can't believe I can't figure it out.
I have a ref. I can use "ref" to figure out if it is a 'SCALAR' or an
'ARRAY'. But if it's a 'SCALAR', how can I determine whether it is

My program creates and writes to several files. I want to display a
popup message saying "writing file 1...", "writing file 2...", ...,
"writing file n..." and destroy the message when done writing
everything.

I am trying to make a simple plot where if the mouse goes over a point
then the point changes colour and a balloon message appears in the
status bar.  I can get the point to change colour simply enough but
can't seem to get the balloon message to appear. The following shows

I remember handling this in Tcl, but it was long enough ago that I don't
remember what I did (and the solution probably wouldn't apply to Perl/Tk
anyway). I have two bindings for B1, one for single-click and one for
double-click. As I expected, I'm getting both routines called. ...

Consider the following code:
use strict;
use Tk;
our $mw = MainWindow->new;

I would like to have a "resize" callback that is only executed once at
the end of a resize event (ie, when the mouse button is released after
dragging a corner of the main window).  The code below works, but I get
resize events continuously while the window is being resized.  Is ...

I want to copy everything including format(color, large font) from one
text widget to another.
# Copy user selection from input page to output page
sub copy_input_to_output_page {