1 # ----------------------------------------------------------------------
2 # DEMO: timeentry in [incr Widgets]
3 # ----------------------------------------------------------------------
4 package require Iwidgets 4.0
6 iwidgets::timeentry .de -labeltext "Time:"
7 pack .de -fill x -expand yes -padx 10 -pady 10