Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Tk::frames

by Lhamo_rin (Friar)
on Jun 25, 2003 at 11:51 UTC ( #268817=perlquestion: print w/ replies, xml ) Need Help??
Lhamo_rin has asked for the wisdom of the Perl Monks concerning the following question:

I am making my first attempt at Perl Tk and am running into problems with building frames. The below script is part of a larger program that should bring up a main window with two frames in it. Unfortunately it brings up a blank main window with no label widgets or buttons. Can you tell me what I am doing wrong?

Llamo_rin

my $mw = MainWindow->new(); $frame1 = $mw->Frame; $frame1->Label(-text => "Data saved at:")-> pack(); for (@info) { $frame1->Label(-text => $_)-> pack(); } $frame2 = $mw->Frame(-borderwidth => 2, -relief => 'groove'); $frame2->Label(-text => "Data to Restore:")-> pack(); $frame2->Label(-text => "Point Saved Current")-> pack(); $frame2->Label(-text => $arrays->[0][0])-> pack(); $frame2->Label(-text => $arrays->[1][0])-> pack(); $frame2->Label(-text => $arrays->[2][0])-> pack(); $frame2->Label(-text => $arrays->[3][0])-> pack(); $frame2->Button(-text => "Restore", -command => \&restore_data)-> pack +(); $frame2->Button(-text => "Cancel", - command => sub { exit})-> pack(); $mw->title("Data Restore"); MainLoop;

edited: Wed Jun 25 13:43:38 2003 by jeffa - closed code tag, s/
//g;

Comment on Tk::frames
Download Code
Re: Tk::frames
by crouchingpenguin (Priest) on Jun 25, 2003 at 12:07 UTC

    You need to pack frames as well.

    $frame1 = $mw->Frame->pack(); $frame2 = $mw->Frame(-borderwidth => 2, -relief => 'groove')->pack();

    cp
    ----
    "Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://268817]
Approved by martymart
Front-paged by virtualsue
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2014-10-01 10:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (6 votes), past polls