#!/usr/bin/wish

catch {source ~/.wishrc}

package require Pqatcl

#---------------------------------------------------------------------
# Determine the installation directory of this script
#---------------------------------------------------------------------
set scriptname [info script]
while {![catch {set scripttmp [file readlink $scriptname]}]} {
    set scriptname $scripttmp
}
set tk_Monitor_lib	[file dirname $scriptname]

if {![info exists tk_Monitor_passwd]} {
    set tk_Monitor_passwd	0
}

source $tk_Monitor_lib/mo_menu.tcl
source $tk_Monitor_lib/mo_butt.tcl
source $tk_Monitor_lib/mo_query.tcl
source $tk_Monitor_lib/mo_res.tcl

    frame	.all -borderwidth 0 -relief flat

    set mf [mo_menu_setup .all]
    pack $mf -side top -fill x

    # set bf [mo_buttons_setup .all]
    # pack $bf -side top -fill x

    set qf [mo_query_setup .all]
    pack $qf -side top -fill x

    set rf [mo_result_setup .all]
    pack $rf -side top -fill both -expand true

    pack .all -fill both -expand true

    wm maxsize . 1000 700
    mo_menu_settitle ""
