view release on metacpan or  search on metacpan

examples/old_examples/imaging/ViewerApp.pl  view on Meta::CPAN

$source->ViewerAppTkImageViewerInteractor_tcl;
# Begin by setting up the Tk portion of the application
$MW->withdraw;
$MW->{'.top'} = $MW->Toplevel('-visual','best');
$MW->{'.top'}->title("Viz'99 VTK Imaging Exercise");
# menus
# menu .top.menu -type menubar
# menu .top.menu.file -tearoff 0
# menu .top.menu.filters -title "Filters"
# menu .top.menu.help -tearoff 0
$MW->{'.top.menu'}->cascade('-label',"File",'-menu','.top.menu.file');
$MW->{'.top.menu'}->cascade('-label',"Filters",'-menu','.top.menu.filters');
$MW->{'.top.menu'}->cascade('-label',"Help",'-menu','.top.menu.help');
$MW->{'.top.menu.file'}->command('-label',"Quit",'-command',
 sub
  {
   exit();
  }
);
$MW->{'.top.menu.help'}->command('-label',"User Interface",'-command',
 sub
  {
   HelpUI();