# ----------------------------------------------------------------------
#  DEMO: spintime in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0

option add *textBackground seashell

iwidgets::spintime .st
pack .st