Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Perl/TK Database

by Jouke (Curate)
on Jun 06, 2001 at 18:47 UTC ( [id://86245]=note: print w/replies, xml ) Need Help??


in reply to Perl/TK Database

You should keep in mind that once you draw all widgets on the screen, you have to assign actions to buttons and bind the output to other widgets. If you define a button which should take an action, you should return the result in (for example) a labelwidget, like: (note: I can't test where I am now, so this code is not tested!)
#!/usr/bin/perl -w use strict; use Tk; my $mainwindow = MainWindow->new(); my $label = $mainwindow->Label(-text => "This is before you press the +button") ->pack(); my $button = $mainwindow->Button( -text => "press to change the lab +el", -command => sub { $label->configure(-text => "This changed t +he label") } )->pack(); MainLoop();
I hope this clarifies it...

Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2024-03-28 15:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found