Posted to tcl by mjanssen at Tue May 08 11:08:12 GMT 2007view pretty

use strict; 
use Tk; 
my $main = MainWindow->new(); 
$main->resizable(0,0);
MainLoop();