在tcl中启用从画布复制文本

我希望能够复制放置在画布上的文本。有可能吗？ 我使用以下方法放置文本：

.c.canvasName create text 100 90 $var -font {Courier -12} ...

---

其中var包含一个tcl-tk矩阵。

正如Donal所写，

ctext.tcl

提供了许多关于如何管理画布中的文本项的有用提示

请注意，它没有演示将文本复制到剪贴板。将以下代码用于基本的剪贴板复制功能：

$c bind text <<Copy>> "textCopy $c"

...

proc textCopy {w} {
    clipboard clear
    clipboard append [selection get]
    selection clear
}

抑制这种错误

---

选择清除

取消选择选择。

您需要做的主要事情是设置绑定。从标准Tk小部件演示中的

ctext.tcl

“画布中的文本项”开始查找如何执行此操作。首选

；使代码更加可移植。

    catch {clipboard append [selection get]}