Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Perl TK Questions

by bichonfrise74 (Vicar)
on Dec 22, 2010 at 21:25 UTC ( #878672=note: print w/ replies, xml ) Need Help??


in reply to Perl TK Questions

I think you can add this to simulate pressing the Enter / Escape keys:

$mw->bind('<KeyRelease-Return>' => \&Hello); $mw->bind('<KeyRelease-Escape>' => sub{ exit });
And to position in the screen:
$mw->geometry('100x200+1500+1500'); # which represents the size + position


Comment on Re: Perl TK Questions
Select or Download Code
Re^2: Perl TK Questions
by d5e5 (Beadle) on Dec 22, 2010 at 21:57 UTC

    I guess it depends on your screen. To centre the main window on my laptop

    $mw->geometry('200x200+550+250');

    works for me.

      If your window has 400x300 dimensions then
      $mw->geometry('400x300+'.int(($mw->screenwidth-400)/2).'+'.int(($mw->s +creenheight-300)/2));
      will help you.

      But I see in some systems geometry works strange.
      1. If I use KDE4.5.2 without 3d then all works fine.
      2. If I use Compiz on Kubuntu 10.10 then some time windows position is random. In old versions of Kubuntu all was fine. May be this is temporary.
      3. Some problems was on Windows with StrawberyPerl.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://878672]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (10)
As of 2014-09-18 20:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (124 votes), past polls