我正在寻找预定义的tk窗口,例如 tk_messageBox ,用户可以在白线中输入字符串。我在Tcl / Tk手册页(https://www.tcl.tk/man/tcl/TkCmd/contents.htm)中找不到一个...
答案 0 :(得分:1)
没有预定义的弹出文本输入窗口。您需要自己制作一个toplevel
,entry
和(可能)至少一个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'"
您可能需要进一步自定义...