# ---------------------------------------------------------------------- | |
# DEMO: spintime in [incr Widgets] | |
# ---------------------------------------------------------------------- | |
package require Iwidgets 4.0 | |
option add *textBackground seashell | |
iwidgets::spintime .st | |
pack .st |