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

  1. use strict;
  2. use Tk;
  3. my $main = MainWindow->new();
  4. $main->resizable(0,0);
  5. MainLoop();