| Subject: | window still resizable after resizable(0,0) |
When I run the following code with perl 5.8.3, Tk-804.027, the window allows itself to be resized. If I run the same code with perl 5.6.1 or 5.005_02, the window refuses to resize. On my system, 5.6.1 and 5.005_02 both use Tk-800.022.
uname -a returns
SunOS srv06 5.8 Generic_108528-22 sun4u sparc SUNW,Sun-Fire-880
Here is the program:
use Tk;
print "$Tk::VERSION\n";
$main = MainWindow->new;
$main->resizable(0,0);
my $button = $main->Button(-text=>'Exit demo',-command=>\&clicked)->pack(-padx=>8,-pady=>8);
MainLoop;
sub clicked { Tk::exit(0); }