#! /usr/local/tk3.2/bin/wish -f
#
# This file contains the routines for a "Query" menu
# Input parameter
#  w - name of window
proc AddQuery w {
menubutton $w -text "Query" -menu $w.m
menu $w.m

# Generate the solvers menu
solvers_menu $w.m.solvers
# Generate the iterative methods menu
accel_menu $w.m.itmethod
$w.m add cascade -menu $w.m.solvers.m  -label "Methods =>" 
$w.m add cascade -menu $w.m.itmethod.m -label "Accellerators =>"
$w.m add command -label "Problems"         -command nop
$w.m add command -label "Clear"            -command nop
}

# All of these need to invoke further menus/dialogs/etc.  
