Subversion Repositories or1k

#!/bin/sh

# ----------------------------------------------------------------------

#  DEMO: spinint in [incr Widgets]

# ----------------------------------------------------------------------

#\

exec itkwish "$0" ${1+"$@"}

package require Iwidgets 3.0

# itkwish interprets the rest...

# ----------------------------------------------------------------------

option add *textBackground seashell

. configure -background white

iwidgets::spinint .times -labeltext "Countdown:" -range {0 10} -width 3

pack .times -padx 10 -pady 10

.times delete 0 end

.times insert end "5"

frame .test

pack .test -padx 10 -pady 10

button .test.go -text "Go" -command {

    set count [.times get]

    while {$count >= 0} {

        .test.readout configure -text $count

        update

        after 200

        incr count -1

    }

    .test.readout configure -text "blast-off!"

}

pack .test.go -side left

label .test.readout -width 15 -background seashell

pack .test.readout -side left -padx 4 -pady 4