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

lappend auto_path $env(TSIPPwb)/tcl
package require Wwidgets
class scratch {
    inherit RLE_animate
}
pack [scratch .d]
pack [scale .s -from 1 -to [.d cget -n_frame] -command {.d show}]

