Tk Source Code

If you have more than 1 sash (i.e more than 2 panes)
and a drag is performed on one sash (causing the proxy
to be placed) and then, on a different sash, a
<Button-1> event followed by a <ButtonRelease-1> event
with no intervening <B1-Motion> event, the sash will
jump to the last proxy location.

To fix this, the <Button-1> event must initialize the
proxy location so that if there is no drag, the button
release will cause no movement of the sash.  This can
be done by explicitly calling the DragSash function
from the MarkSash function:

proc ::tk::panedwindow::MarkSash {w x y proxy} {
    set what [$w identify $x $y]
    if { [llength $what] == 2 } {
foreach {index which} $what break
if { !$::tk_strictMotif || [string equal $which
"handle"] } {
    if {!$proxy} { $w sash mark $index $x $y }
    set ::tk::Priv(sash) $index
    foreach {sx sy} [$w sash coord $index] break
    set ::tk::Priv(dx) [expr {$sx-$x}]
    set ::tk::Priv(dy) [expr {$sy-$y}]
    # Do this to init the proxy location
    DragSash $w $x $y $proxy
}
    }
}

This bug exists on the top of trunk (8.5) as well.

-Brian

Logged In: YES 
user_id=72656

commited to 8-4-branch and head 2004-05-03.

File Added - 83779: panesashbug.tcl

Logged In: YES 
user_id=22949

attached testcase!

-Brian

Logged In: YES 
user_id=79902

Err, that didn't work.
(Stupid SF patch upload API.)

Logged In: YES 
user_id=22949

Attached is a testcase that exhibits the bug without interaction.

-Brian

Logged In: YES 
user_id=79902

Is there a way to get a non-interactive test for this
working before we fix it?