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

set env(TSIPPwb) [file dir [info script]]/..
lappend auto_path $env(TSIPPwb)/tcl
package require Wwidgets
class crank2 {
    inherit RLE_animate
}
pack [crank2 .d]
pack [scale .s -from 1 -to [.d cget -n_frame] -command {.d show}]
pack [button .b -command {.d play} -text play]
