我有一个生成许多表单的 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
问问题
6432 次
1 回答
11
尝试添加，
font create myDefaultFont -family Helvetica -size 20
option add *font myDefaultFont
到脚本的顶部。（链接到关于字体的文章）
于 2009-05-06T00:01:23.513 回答