wm title . "Spindate Example"
##=========================================================
## Create spindate iwidget
##=========================================================
##
iwidgets::spindate .sd \
-labelpos w \
-yeardigits 4 \
-monthformat brief \
-daylabel "Day,Dia,Tag" \
-monthlabel "Month,Mes,Monat" \
-yearlabel "Year,Ano,Jahr"
.sd show today
pack .sd \
-expand 1 \
-fill both
##
## bind to when the cursor enters the iwidget
##
bind .sd {puts "Seconds: [.sd get -clicks] Date: [.sd get -string]"}
|