tcltk 将画布线的单个点附加到另一个小部件（或标签）

Question

考虑一下我有一个 Tcl/Tk canvas 有几个简单的形状：由 2 点线连接的椭圆。 像这样：

像这样创建：

canvas .c -width 400 -height 200
pack .c

proc create_shape {cnv tag x y} {
    $cnv create oval \
        [expr $x - 10] [expr $y - 10] \
        [expr $x + 10] [expr $y + 10] \
        -tags [list $tag shape]
    $cnv create text $x [expr $y - 15] -text ${tag} -tags [list $tag text]
    $cnv create rectangle $x $y $x $y -tags [list $tag center] -outline {}
}
proc connect {cnv src dst} {
    foreach {x0 y0} [$cnv coords "${src}&&center"] {break}
    foreach {x1 y1} [$cnv coords "${dst}&&center"] {break}
    $cnv create line $x0 $y0 $x1 $y1 -tags [list "src:$src" "dst:$dst" connection]
}

create_shape .c A 100 100
create_shape .c B 200 120
create_shape .c C 300 100

connect .c A B
connect .c B C

现在，我希望能够移动我的形状（例如.c move B 0 20 ）并让连接线自动跟随。

我想出了这个：

proc move {cnv tag dx dy} {
    # move the object
    $cnv move  "${tag}&&!line" $dx $dy

    # adjust the connections
    foreach {x y} [$cnv coords "${tag}&&center"] {break}
    # find all connections coming from $cnv (and adjust their start-point)
    foreach id [$cnv find withtag "connection&&src:${tag}" ] {
        foreach {_ _ x1 y1} [$cnv coords $id] {$cnv coords $id $x $y $x1 $y1}
    }
    # find all connections going to $cnv (and adjust their end-point)
    foreach id [$cnv find withtag "connection&&dst:${tag}" ] {
        foreach {x0 y0 _ _} [$cnv coords $id] {$cnv coords $id $x0 $y0 $x $y}
    }
}

这似乎可行，但我想知道是否有更优雅的解决方案......

此外，它需要我自己的包装器 proc move 。 是否有可能通过一些虚拟事件实现相同的目标？ 例如，以便我可以发出$cnv move $tag 10 20甚至$cnv moveto $tag 123 456 ，并且连接被“通知”并自动更新？

Answer 1

没有这样做的内置机制。 canvas 根本不知道一个项目的控制点与另一个项目的关系。 （改变这一点需要在坐标处理系统中添加一个求解器才能正常工作，这将是很多工作，因此不太可能发生。）

但是您可以在合适的东西上添加变量跟踪，这样当您使用您真正使用的实体的逻辑坐标更新该变量时，显示该实体的项目的坐标都会自动更新； 在这种情况下，信息流的方向和应用程序的特定性使其非常简单。 有问题的变量可能是 object 的数组或成员字段。