| # ---------------------------------------------------------------------- | |
| # DEMO: timefield in [incr Widgets] | |
| # ---------------------------------------------------------------------- | |
| package require Iwidgets 4.0 | |
| proc returnCmd {} { | |
| puts [.df get] | |
| } | |
| iwidgets::timefield .df -labeltext "Time:" -command returnCmd | |
| pack .df -fill x -expand yes -padx 10 -pady 10 | |