Commit 1a5eee8c authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

*tried fixing problem with new draw commands and their displace

parent 0e1a87c1
......@@ -8160,9 +8160,13 @@ proc pdtk_canvas_displace_withtag {w dx dy} {
$w move selected $dx $dy
foreach item [$w find withtag scalar_selected] {
set matrix [lindex [$w itemconfigure $item -matrix] 4]
#puts stderr "A:$matrix"
set newx [expr {[lindex $matrix 2 0] + $dx}]
set newy [expr {[lindex $matrix 2 1] + $dy}]
#set newx [expr {[lindex $matrix 2 0] + ($dx * [expr 1.0-[lindex $matrix 0 0]])}]
#set newy [expr {[lindex $matrix 2 1] + ($dy * [expr 1.0-[lindex $matrix 1 1]])}]
set matrix [lreplace $matrix 2 2 [list $newx $newy]]
#puts stderr "B:$matrix"
$w itemconfigure $item -matrix $matrix
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment