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

package require Itcl
package require Iwidgets

set env(TSIPPwb) [file dir [info script]]/..
lappend auto_path $env(TSIPPwb)/tcl

proc getFilenameFromArgs {} {
    global argc
    global argv

    if {$argc > 1} {
        set RLE_file [lindex $argv 0]
    } else {
        set RLE_file $env(TSIPPwb)/dev/scratch.rle
    }

    return $RLE_file
}

proc eofCallBack {} {
    return [string equal [.repeat get] yes]
}

    set W 320
    set H 200

    grid [canvas .c]                                                       -row 0 -column 0 -columnspan 5 -pady 25
    grid [scale  .s -from 1 -to 1000 -orient horizontal]                   -row 1 -column 0 -columnspan 5 -sticky ew
    bind .s <ButtonRelease-1>                       [itcl::code ::p show]
    grid [button .start -text "Start Play" -command [itcl::code ::p play]] -row 2 -column 1
    grid [iwidgets::optionmenu .repeat -labeltext "Repeat"]                -row 2 -column 2 -padx 15 -pady 10
    grid [button .stop  -text "Stop  Play" -command [itcl::code ::p stop]] -row 2 -column 3
    .repeat insert 0 no yes

    set image [image create photo -height $H -width $W]
    .c create image 0 0 -image  $image -anchor nw

    RLE_controller ::p getFilenameFromArgs [itcl::code set image] .s [itcl::code eofCallBack]
    ::p show

# -----------------------------------------------------------------------------
# END OF PROGRAM.
# -----------------------------------------------------------------------------
