如何为Tk小部件设置默认字体

Question

我有一个生成许多表单的Tcl/Tk应用程序，希望能够从中心位置配置默认的小部件字体，而无需使用-font开关来配置每个小部件。

#!<path>/wish
button .hello -text "Hello, World!" -command { exit }
pack .hello
puts "--- i would like to set this thing: [.hello configure -font] --- "

- user101918

Answer 1

尝试添加以下内容：

font create myDefaultFont -family Helvetica -size 20
option add *font myDefaultFont

将以下代码添加到你的脚本顶部 (字体相关文章链接)

- Dylan

---

如果您不熟悉Tk中命名字体的概念，使用上述方法可以轻松地在运行时更改字体。您只需要重新配置myDefaultFont，使用该字体的每个小部件都会立即使用新字体重新绘制自己。无需手动迭代所有小部件。 - Bryan Oakley

似乎这篇文章已经消失了。Wayback Machine说：http://web.archive.org/web/20090302082049/http://www.tclscripting.com/articles/jun06/article1.html - jarodeells