Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
I have this code:
How do I tell it to position the GUI at a specific location in the screen?
After entering something in the text, if I press "Enter", I would like it to have the same effect as pressing the "Ok" button.
Also, if I press "ESC" key, I would like it to exit.
Can someone point me to the proper documentation for this?
Thanks in advance.
I have been trying to do the following:#!/usr/bin/perl use strict; use Tk; my $mw = MainWindow->new; $mw->title("Hi"); my $title = $mw->Entry( -text => '', -width => 20, -font => 'Courier 12 bold', -background => 'Orange', )->pack( -ipadx => 35 ); $title->focus(); $mw->Button( -text => 'Ok', -font => 'Courier 12 bold', -background => 'Orange', -command => sub{ Hello($title) }, )->pack( -side => 'left', -ipadx => 40 ); $mw->Button( -text => 'Exit', -font => 'Courier 12 bold', -background => 'Orange', -command => sub { exit } )->pack( -side => 'right', -ipadx => 40 ); MainLoop; sub Hello { my $title_val = $title->get; print "Hello - $title_val\n"; }
Can someone point me to the proper documentation for this?
Thanks in advance.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Perl TK Questions
by bichonfrise74 (Vicar) on Dec 22, 2010 at 21:25 UTC | |
by d5e5 (Beadle) on Dec 22, 2010 at 21:57 UTC | |
by Khariton (Sexton) on Dec 23, 2010 at 11:30 UTC | |
Re: Perl TK Questions
by zentara (Archbishop) on Dec 23, 2010 at 14:37 UTC | |
by djibel (Novice) on Jan 03, 2011 at 14:16 UTC |
Back to
Seekers of Perl Wisdom