#!/bin/sh
# standard executable Tcl file ...          \
exec tksipp "$0" "$@"

set env(TSIPPwb) [file dir [file dir [info script]]]
if {[string equal $env(TSIPPwb) "."]} {
    set env(TSIPPwb) ..
}
puts "env(TSIPPwb) = $env(TSIPPwb)"

lappend auto_path $env(TSIPPwb)/tcl
package require RLE_animate
class reactor {
    inherit RLE_animate
}

pack [reactor .r]                           \
    -side left
    
pack [scale   .s                            \
        -to      1                          \
        -from    [.r cget -n_frame]         \
        -command {.r show}                  \
        -label   "Control Rod Position"]    \
    -side right
