#!/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 hydraulic {
    inherit RLE_animate
}

pack [hydraulic .r]                         \
    -side left
    
pack [scale   .s                            \
        -to      1                          \
        -from    [.r cget -n_frame]         \
        -command {.r show}                  \
        -label   "Water Level"]             \
    -side right
