Webmaster Forum / Perl / Tk / February 2005

Hi again...
Does any of you know how can I make a dialog box to appear in the
middle of the screen?
I have this code for example:

I have these huge balloons hanging over a canvas. These balloon's I use
to display some data over a graph. When the mouse moves over a
particular x,y coordinate I display some data pertinent to that
coordinate on the canvas. Now these balloons could contain information

I have this simple code:
    use Tk;
    $mw = new MainWindow;
    $mw->messageBox(-message => "Hello, world",

I have a request concerning to typing text right to left in a text widget. I have no idea how to solve this problem. Is there anybody hwo has an answer?
With the Best:
Zsolt
-++**==--++**==--++**==--++**==--++**==--++**==--++**==

I am learning the TK:: package at the moment.
I tried the following on drawing a line on canvass:
#TK canvassuse Tk;
$top = MainWindow->new();

I'm trying to write a small script that gets an input via a text box
and would like to close the text box by pressing on the window without
killing the program.
I couldn't find a code that closes the window and continue with the

I have drawn a large rectangle on a canvas that was bind to some
scrollbar.
I can set the position of the viewing area using
  $canvas->xview(moveto=>$x_moveto);

Hallo @All,
how can i create a new Widget in a MainWindow or Toplevel in runtime.
For example i create a Mainwindow with one Button and if i click on
this button, i want to show a new button or somthing like that in the

Dear Friends!
I would like to seek an advice regarding Canvas widget. I would like to
follow cursor movement and show currently selected element on canvas.
For now I only managed to use <Enter> and <Leave>.

Using perl, v5.8.4 built for MSWin32-x86-multi-thread on WinXP
Hi I'm trying to pack a small pTk app with pp.
It worked fine with this cumbersom command line
pp --gui -o out.exe -M Tk -M Tk::DialogBox -M Tk::Balloon

I have been programming in Perl and Tcl/Tk for a while now - but only
recently have I started programming with Perl/Tk. I have created my
first Perl/Tk app and I thought that I should post it here.
If any of you can spare the time, please go over it to see whether my

All the images I am displaying are GIF. Some of the images appear
distorted and cropped when displayed. However, others are displayed
perfectely. All the images appear normal in linux. Perhaps it's a
problem with a driver?

I am new to perl and perltk.
I want some of the entry widgets to use the same validation
subroutine.
In my example, if the user does not capture anything in the entry

I am trying to create a Scrolled text widget where the output is in 3  
columns. I'm not defining the columns per se, I just want to print the  
text in 3 columns.
My problem arises trying to format the text output. When the window  

Hello *,
I have to work with tables a lot and wrote an own table editor. However it
lacks some features and performance. So I had a look at available modules,
and found Tk::TableMatrix and Tk::TableMatrix::Spreadsheet.