#! /usr/local/tk3.2/bin/wish -f
#
# This file contains the routines for a "File" menu
# Input parameter
#  w - name of window
set Filename "noname"
proc AddFile w {
global Filename
menubutton $w -text "File" -menu $w.m
menu $w.m
$w.m add command -label "Save"    -command nop
$w.m add command -label "Save As" \
	-command { dialog .filename "Save" "Save" $Filename "Filename" }
$w.m add command -label "Print"   -command nop
$w.m add command -label "Dump"    -command nop
# Set special arguments for runs
$w.m add command -label "Args"    -command nop   
$w.m add command -label "Exit"    -command { destroy . }
}

# Print should allow several formats, including postscript and text to a file
# Dump and print the same?
# Save/Save As replace Print to file?
