in reply to Non resizable window
I couldn't reproduce your resizable() issue. I tried it with (0,0), (1,0), (0,1) and (1,1): all worked as documented (see Tk::Wm).
You don't want both __DATA__ and __END__ (see perldata - Special Literals).
You also have duplicated code at the top of your script and all button callbacks generate warnings because you haven't defined sub manipulate_link { ... } yet (you may be aware of that one).
Here's what I tested with:
#!/usr/bin/env perl use strict; use warnings; use Tk; require Tk::Pane; require Tk::BrowseEntry; require Tk::DialogBox; my $MW = MainWindow->new( -title => 'GUI Demo', -name => 'Demo', ); $MW->resizable(0,0); # not resizable in any direction foreach my $txt (<DATA>) { chomp($txt); my $b = $MW->Button( -text => $txt, -width => 30, -height => 3, -command => sub {manipulate_link($txt)}, ); $b->pack(qw/-side top -expand yes -pady 3/); } MainLoop; __DATA__ Compile all Compile selected blocks Get selected blocks Put selected blocks Browse & Compare Exit
-- Ken
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Non resizable window
by Anonymous Monk on Jul 16, 2013 at 06:03 UTC | |
by kcott (Archbishop) on Jul 16, 2013 at 07:54 UTC |
In Section
Seekers of Perl Wisdom