TCL / TK用户输入窗口

时间:2015-06-22 13:20:16

标签: tcl tk

我正在寻找预定义的tk窗口,例如 tk_messageBox ,用户可以在白线中输入字符串。我在Tcl / Tk手册页(https://www.tcl.tk/man/tcl/TkCmd/contents.htm)中找不到一个...

1 个答案:

答案 0 :(得分:1)

没有预定义的弹出文本输入窗口。您需要自己制作一个toplevelentry和(可能)至少一个button。也许是label

这是最简单的事情:

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'"

您可能需要进一步自定义...