TCL/TK用户输入窗口

我正在寻找一个预定义的tk窗口，如tk_messageBox，用户可以在其中输入一个白线字符串。我在Tcl/Tk手册页（）中找不到一个。

没有预定义的弹出文本输入窗口。您需要自己制作一个具有

顶级

、一个

条目

，以及（可能）至少一个

按钮

。可能还有一个

标签

下面是最简单的方法：

set foo "This is some text."

toplevel .t
pack [entry .t.e -variable foo]
pack [button .t.b -text "OK" -command {destroy .t}]
bind .t <Return> {.t.b invoke}
focus .t.e

tkwait window .t

puts "The variable contains '$foo'"

set foo“这是一些文本。”
顶级
包装[入口.t.e-可变foo]
pack[button.t.b-文本“OK”-命令{destroy.t}]
bind.t{.t.b invoke}
聚焦
将军澳
将“变量包含“$foo”

您可能需要进一步定制它