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 <Enter> {puts "Seconds: [.sd get -clicks] Date: [.sd get -string]"}