blob: 03b33a54932d7957169fe8c567af2744ba63e375 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
# ----------------------------------------------------------------------
# DEMO: datefield in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
proc returnCmd {} {
puts [.df get]
}
iwidgets::datefield .df -labeltext "Date (International Format):" \
-command returnCmd -int 1
pack .df -fill x -expand yes -padx 10 -pady 10
|
