blob: 024a87600559b1552c5e161cb1c4a36150a001a1 (
plain)
1
2
3
4
5
6
7
8
9
|
# ----------------------------------------------------------------------
# DEMO: spindate in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
option add *textBackground seashell
iwidgets::spindate .sd -monthformat brief
pack .sd
|