#!/usr/bin/perl

# Sample from perl cookbook pg 537,
# Menus are made of 4 separate components:
# 	1) Frames		- horizontoal bar
#	2) Menubuttons		- Buttons like "File", "Edit", "Print"
#	3) Menus		- menus corresponding to the buttons "File", "Edit", "Print"
#	4) Menu Entries		- verticly arranged 
#	   lables|separators		- options on the menu 

use Tk;
#use Tk::DialogBox ;

$main=MainWindow->new();

#  Create a horizontal space at the top of window
#  for the menu to live.
#
$menubar=$main->Frame(-relief			=> "raised",
		      -borderwidth		=> 2)
		      
	      ->pack (-anchor			=> "nw",
	              -fill			=> "x");

# Create a button labeled "File" that brings up a menu
$file_menu=$menubar->Menubutton(-text		=> "File",
                                -underline	=> 1)
		        ->pack (-side		=> "left" );

# Create entries in the "File" menu
$file_menu->command(-label 	=>	"Print",
		    -command 	=>	\&Print);

# Seperators dont have actions
$file_menu->separator();

$file_menu->command(-label 	=>	"Quit Immediately",
		    -command	=>	sub { exit });

# Seperators dont have actions
$file_menu->separator();

# This uses the menuitems short cut to do the same thing:
$file_menu = $menubar->Menubutton(-text	=> "File",
			        -underline	=> 1,
				-menuitems	=> [
		[ Button => "Print",-command => \&Print ],
		[ Button => "Save",-command => \&Save   ] ])
		   ->pack (-side			=> "left");

# Checkbutton (radio binary button)
$options_menu->checkbutton(	-label 	=>	"Create Debugging File",
				-variable	=>	\$debug,
				-onvalue	=>	1,
				-offvalue	=>	0);

# Radio Buttons
$debut_menu->radiobutton(	-label		=>	"Level 1",
			 	-variable 	=> 	\$log_level,
			 	-value		=> 	1);

$debut_menu->radiobutton(	-label		=>	"Level 2",
			 	-variable 	=> 	\$log_level,
			 	-value		=> 	2);

$debut_menu->radiobutton(	-label		=>	"Level 3",
			 	-variable 	=> 	\$log_level,
			 	-value		=> 	3);

# Nested menus with the "cascade" method
# step 1: create cascading menu entry
$format_menu->cascade(		-label		=>	"Font");
# step 2: get the new Menu we just made
$font_menu = $format_menu->cget("-menu");
# step 3: populate that Menu
$font_menu->radiobutton(	-label		=>	"Courier",
				-variable	=>	\$font_name,
				-value		=>	"courier");
$font_menu->radiobutton(	-label		=>	"Times Roman",
				-variable	=>	\$font_name,
				-value		=>	"times");

# Tear-off Menu
$format_menu=$menubar->Menubutton(-text		=>	"Format",
				  -underline	=>	1
				  -tearoff	=>	0)		     
		     ->pack;
$font_menu=$format_menu	->cascade(-label	=>	"Font"		     
				  -tearoff	=>	0);