1 # ----------------------------------------------------------------------
2 # DEMO: timefield in [incr Widgets]
3 # ----------------------------------------------------------------------
4 package require Iwidgets 4.0
10 iwidgets::timefield .df -labeltext "Time:" -command returnCmd
11 pack .df -fill x -expand yes -padx 10 -pady 10