diff -u tklib/widget/dateentry.tcl.aegis tklib/widget/dateentry.tcl
--- tklib/widget/dateentry.tcl.aegis 2023-03-31 13:06:27.000000000 +0200
+++ tklib/widget/dateentry.tcl 2023-04-17 16:56:40.177981895 +0200
@@ -151,10 +151,7 @@
set rawDate [clock scan "$x 00:00:00" -format "%d/%m%/%Y %H:%M:%S"]
set formattedDate [clock format $rawDate -format $options(-dateformat)]
- $hull configure -state normal
- $hull delete 0 end
- $hull insert end $formattedDate
- $hull configure -state readonly
+ $self set_date $formattedDate
}
method C-passtocalendar {option value} {
@@ -278,6 +275,18 @@
}
$self unpost
+ $self set_date $formattedDate
+ }
+
+
+ #
+ # set_date --
+ #
+ # update the date entry and set internal variable so the calendar gets the new date, too.
+ #
+ ##
+ method set_date {date} {
+ set formattedDate $date
$hull configure -state normal
$hull delete 0 end
$hull insert end $formattedDate
Diff finished. Mon Apr 17 17:21:01 2023
