多次使用TK剪贴板

时间:2019-01-04 11:49:54

标签: tcl tk

我有一些小代码可以将文本追加到剪贴板。该代码在具有TCL / TK 8.6的LINUX / X11下运行,我想在窗口侧看到文本。因此,我有免费的Clipboard Viewer 3.0。

第一个“剪贴板附加”功能按预期工作。没有立即看到第二个和其他任何一个。我必须在Linux / X11和Windows之间改变重点。 在LINUX / X11中(即在xterm中)进行另一种选择时,它似乎在显示剪贴板,并且“剪贴板清除”无效。 有提示吗?

package require Tk

proc cmd {} {
  set text [string repeat x 128]
  set text [string repeat $text\n $::counter]
  set ::buttontext "$::counter [string length $text] "
  clipboard clear
  clipboard append $text
  incr ::counter
}

incr ::counter
set ::buttontext "start"
button .b -textvariable ::buttontext -command cmd
grid .b

1 个答案:

答案 0 :(得分:1)

添加选择内容也可以解决问题:

...  
selection clear
clipboard clear
clipboard append $text
...