Bugs item #1408494, was opened at 2006-01-17 22:02
Message generated for change (Comment added) made by aldobu
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112883&aid=1408494&group_id=12883

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: bwidget
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Damon Courtney (damonc)
Summary: BWidget Tree bug with autoscroll (when dragging)

Initial Comment:
Tree::_auto_scroll calls Tree::_scroll with 2 parameters,
but _scroll has 3 parameters. Error generates and
auto_scroll not works. Proc _scroll correct, only
last 2 parameters packed in list.
     With this all works ok:
##################################
proc Tree::_scroll { path scroll } {
    variable $path
    upvar 0  $path data
	set cmd [lindex $scroll 0]
	set dir [lindex $scroll 1]
    if { ($dir == -1 && [lindex [$path.c $cmd] 0] >  0) ||
         ($dir == 1  && [lindex [$path.c $cmd] 1] < 1) } {
        $path.c $cmd scroll $dir units
        set data(dnd,afterid) [after 50 [list
Tree::_scroll $path $scroll]]
    } else {
        set data(dnd,afterid) ""
        DropSite::setcursor dot
    }
}
######################################
Kapkaev@[...].ru

----------------------------------------------------------------------

Comment By: Aldo Buratti (aldobu)
Date: 2006-03-23 10:13

Message:
Logged In: YES 
user_id=979524

Just to push for a quick bug-fixing,
I suggest an alternative solution:

# change line 1836  (tree.tcl  v.1.52)
# from
 set data(dnd,afterid) [after 200 [list Tree::_scroll 
$path $scroll]]
# to
 set data(dnd,afterid) [after 200 Tree::_scroll $path 
$scroll]

** Tested with Tcl 8.4.12 **

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112883&aid=1408494&group_id=12883


-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Tcllib-bugs mailing list
Tcllib-bugs@[...].net
https://lists.sourceforge.net/lists/listinfo/tcllib-bugs