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