Webmaster Forum / Perl / Tk / April 2005

When starting a Tk app, the load times can be a bit...laggardly on slower
machines.  The thought creeps up that a splashscreen for load might be
nice.  Unfortunately, that seems rather impossible as you have to load up
in order to actually get to the point where you could display it ...

I am having a weird problem with the following piece of code:
==================================================================================
     # Bind the mouse movement for detecting connectors...
    $dwindow -> CanvasBind( '<Motion>' => sub {

I need to be able to return the item text but haven't been able to
figure it out.
#!/usr/bin/perl
use strict;

Although I've built it on Solaris 8, I'm having trouble building Tk-804.027
on a Solaris 9 machine.  I have built both perl and Tk from scratch.
make test for perl-5.8.6 succeeds with
  t/pod/podselect...........................ok

i was trying to find a way to know the names of the .ttf files that
perl/tk is using (under windows).
by using something like:
my @fonts = $mw->fontFamilies;

One of the users of one of my scripts stumbled over
a text sequence that reliably causes Tk:Text and its
deriatives to crash. I was sure it was a problem with
my script, but after stripping it down to its bare

Does anybody know a simple way (an available Perl/Tk module perhaps ?)
of printing the contents of a mainwindow with multiple canvases ? I have
saved the contents as a bitmap file, but if one wants to print them
directly to a color or b&w printer, I have only seen the ...

I'm using 3 Panes with two Adjusters between them, which allows the user
to reallocate space between the Panes in the obvious way.  However, at
program exit, I'm trying to save the user's preferred geometry for
reloading when next the program next starts.  It seems that although ...

As an exercise, I'm writing a simple notepad-style app in Perl/Tk.
I've got the usual keyboard accelerators (e.g. Ctrl+N => File|New,
implemented using $tw->bind('<Control-n>' => \&fileNew, etc).
The keyboard accelerators work fine, except when I use them, they

I have a perltk program with several widgets that display data in different ways. I want to send a "<<record_added>>"
event and have anything that should do something ... do it. But it seems that only the last widget bound to the event
will find out about the event. The code ...

Further to my previous post "limiting getOpenFile filetypes" is there
anyone running LINUX who can try this script and see if they get a list of
".ps*" and ".eps*", or only ".ps" and ".eps" as the windows guys seem to
get?

    I've got a serious problem with Tk that I haven't been able to
figure out.  
    First I define the menubutton.  It's menu isn't built until
after the user takes an action.  The code is this, minus some checks,

I've just tried getOpenFile for the first time:
my $types = [
  ['Postscript Files', ['.ps', '.eps']],
  ['All Files',        '*',           ]];

I work with Perl/Tk on Windows (different PC under Win 98, 2000 and XP).
I use the standard Perl/Tk widget nammed "Label" with the system font
called "ansi" (without size mention).
On a lot of PC, the label is displayed with a small font size (about

I want to write the contents of a Tk::Text to a file.
I have _Learning Perl_, which suggets
       print FH $t->get('1.0', 'end');
(where FH is a file handle open for writing and $t is the Text