tcllib widget::dateentry patch to 0.96

widget_dateentry.tcl.patch

150,152c150,157
< 	set now [clock seconds]
< 	set x [clock format $now -format "%d/%m%/%Y"]
< 	set rawDate [clock scan "$x 00:00:00" -format "%d/%m%/%Y %H:%M:%S"]
---
> 	if {[info exists $options(-textvariable)]} {
> 		set x [set $options(-textvariable)]
> 		set rawDate [clock scan "$x" -format $options(-dateformat)]
> 	} else {
> 		set now [clock seconds]
> 		set x [clock format $now -format "%d/%m%/%Y"]
> 		set rawDate [clock scan "$x 00:00:00" -format "%d/%m%/%Y %H:%M:%S"]
> 	}

The value set to the variable specified by -textvariable does not set the initial date.