widget::dateentry

[Julian H J Loaring]

I recently did a teacup update and this pulled in a new version of
widget::dateentry, version 0.95. Unfortunately this has changed the
behavior of the drop down calendar. It is no longer possible to
quickly skip through months & years by using the embeded calendar's
arrow buttons because the drop down is removed after each button
press.


The cause of this is the following binding

bind $dropbox <ButtonPress> [subst -nocommands {
if {[string first "$dropbox" [winfo containing %X %Y]] != 0} {
$win unpost
} else {

$win DateAccepted
}
}]

This is trying to see if the user clicks outside of dropdown calendar.
If so it closes the window otherwise it assumes the user has selected
a new date. The latter case ain't necessarily so if it was an arrow
button pressed... (IMHO)

The underlying problem is that the embeded widget::calendar doesn't
let the wrapper know what item is under the mouse.

A glorious hack which knows way too much about the calendar ;)
===============================================

1) Change the binding
bind $dropbox <ButtonPress> [mymethod dropboxClick $dropbox %X %Y %x
%y]


2) Add the new callback

method dropboxClick {w X Y x y} {
if {[string first "$dropbox" [winfo containing $X $Y]] != 0} {
$win unpost
} else {
set c $w.calendar
if {[$c find closest $x $y] > 4} {
$win DateAccepted
}
}
}

3) And whilst my sleeves are rolled up, use the mouse wheel to scroll
by month

bind $dropbox <MouseWheel> [mymethod dropboxWheel $dropbox %D]

method dropboxWheel {w d} {

set c $w.calendar
if {$d < 0} {
$c adjust 0 -1 0
} else {
$c adjust 0 1 0
}

}


kind regards
Julian H J Loaring