#!/bin/sh
# This "cd" command was added so that this script will
# work through the storage-ring display. Also this will 
# help shell commands executed from medm.
#cd /usr/local/iocapps/adlsys/sr

# the next line restarts using wish \
exec wish "$0" "$@"

if {![string match "*helios*" $env(HOME)]} {
    set env(EPICS_CA_ADDR_LIST) "164.54.188.65"
    set env(EPICS_CA_AUTO_ADDR_LIST) "NO"
}

set env(EPICS_CA_MAX_ARRAY_BYTES) "100000"

#exec medm -x &

# delay rfpanel until medm -attach has had a chance to run.
#after 10000
#set ver TEST
set ver 1.0


exec sleep 5 &
wm title . "APS"
wm geometry .  +25+0
set MEDM_m "exec medm -attach -noMsg -x -macro"
set MEDM "exec medm -attach -noMsg -x"
set adl /usr/local/iocapps/R3.14.9/modules/instrument
set fft /usr/local/iocapps/adlsys/booster/BbpmApp
# These alias use the EPICS_DISPLAY_PATH env value.
#set adl rf
set adlsr sr/vacApp
set adlbooster booster/mainApp
#set psApp "/usr/local/iocapps/adlsys/sr/psApp"
set adlps sr/psApp

set bmap $env(OPSYS)/rf/bm
#set alhAlarm /home/helios/RFINJ/op/alh 
#set alhConfig /home/helios1/injsys/rf/op/alh
set alhAlarm $env(OPDATA)/rf/alh
set alhConfig $env(OPSYS)/rf/alh
set math $env(OPSYS)/rf/math
set errorFile >&
set varyFont ""
append errorFile $env(HOME)
append errorFile /rfpanelerr

frame .fp -relief raised -bd 6 
pack .fp -side top -fill x
menubutton .fp.p -text "SEPTUM MAGNETS" -fg White -bg SteelBlue -menu .fp.p.m

frame .fmisc -relief raised -bd 6
pack .fmisc -side top -fill x
menubutton .fmisc.s -text "Misc/Tools" -fg White -bg SteelBlue -menu .fmisc.s.m

frame .fver -relief groove   
pack .fver -side top -fill x 
label .fver.p -text "Ver \"$ver\"" -fg White -bg SteelBlue
pack .fp.p .fmisc.s .fver.p -side top -padx 1m -pady 1m -fill x


#-----------------------------
#Scope Main menu for .fp.p.m
#-----------------------------
menu .fp.p.m
#.fp.p.m  add command -label "Booster Main" \
   -command "$MEDM  booster/mainApp/bMain.adl  $errorFile &"
#.fp.p.m  add command -label "Booster Main" \
   -command "$MEDM /usr/local/iocapps/adlsys/booster/mainApp/bMain.adl  $errorFile &"
.fp.p.m add separator
.fp.p.m add cascade -label "ACOUSTIC MEASUREMENT" -menu .fp.p.m.instr
.fp.p.m add separator

#STORAGE RING "INSTRUMENT" menu for .fp.p.m.instr
menu .fp.p.m.instr
.fp.p.m.instr  add command -label "TDS 3054 Booster Scope" \
   -command "$MEDM_m \"scope=SpMgAM:1:\" $adl/tds3000/2-4-asd3/medm/tds3000_c.adl  $errorFile &"
.fp.p.m.instr  add command -label "TDS 3054 Booster Scope FFT" \
   -command "$MEDM_m \"U=BAMSP:fft\" $fft/fftControl.adl $errorFile &"
.fp.p.m.instr  add command -label "TDS 3054 Storage Ring Scope" \
   -command "$MEDM_m \"scope=SpMgAM:2:\" $adl/tds3000/2-4-asd3/medm/tds3000_c.adl  $errorFile &"
.fp.p.m.instr  add command -label "TDS 3054 Storage Ring Scope FFT" \
   -command "$MEDM_m \"U=SAMSP:fft\" $fft/fftControl.adl $errorFile &"
.fp.p.m.instr  add command -label "Signal Review" \
   -command "exec SeptumAcousticSignalReview &"
   
#-----------------------------
#Misc/Tool Main menu for .fmisc.s.m
#-----------------------------
menu .fmisc.s.m
.fmisc.s.m add separator
.fmisc.s.m add command -label "PV Name Capture " \
    -command "exec namecapture &"
.fmisc.s.m add separator
