Tcl/Tk ：有没有办法使用 Tcl 的自省或反射来获取 Tcl/Tk 小部件的选项和命令列表？
我正在考虑类似 Python 的东西：X.__dict__，它返回任意对象 x 的属性字典。
我尝试了info 和winfo，但似乎没有成功
如果可以通过代码访问这些属性，那么我可以省去手动编写代码的工作，逐个小部件（我正在尝试创建“另一个 Tcl/Tk”绑定......）
提前致谢！
【问题讨论】：
.x 是小部件的路径，.x configure 会为您提供一个列表列表，其中每个列表中的第一项是小部件的选项。 .x notawidgetcommand 给你一个枚举命令的错误消息，也许你可以用它做点什么？
标签： reflection tcl tk introspection
要获取小部件的选项列表，请使用 configure 命令而不使用额外选项。
% button .b
.b
% puts [join [lmap c [.b configure ] {if {[llength $c] == 2} continue; lindex $c 0}] \n]
-activebackground
-activeforeground
-anchor
-background
-bitmap
-borderwidth
-command
-compound
-cursor
-default
-disabledforeground
-font
-foreground
-height
-highlightbackground
-highlightcolor
-highlightthickness
-image
-justify
-overrelief
-padx
-pady
-relief
-repeatdelay
-repeatinterval
-state
-takefocus
-text
-textvariable
-underline
-width
-wraplength
如果您没有 8.6，则必须这样做：
foreach config [.b configure] {
if {[llength $config] == 2} continue
puts [lindex $config 0]
}
# Same output
获取子命令列表的最简单方法（但您可以根据需要调用它们的方法）是查看错误消息。
% .b ?
bad option "?": must be cget, configure, flash, or invoke
按钮没有那么多子命令。
您可以使用catch 和一些正则表达式编写脚本，并且消息的格式非常风格化，但除了交互之外没有什么意义；代码将不知道何时 使用方法（并且不会更好地了解如何 使用它）。一旦你学会了它，你就不需要这么多的通用内省了……
所有小部件都有configure 和cget。如果没有，则它不是小部件。其他一切都取决于班级。您可以使用winfo class 来获得它，但某些小部件可以在创建时发生变异。阅读文档是无可替代的……当然，除了在这里提出具体的问题。
【讨论】：
proc saveOptions {} {
set f [open saved_defaults w+]
foreach w {button checkbutton \
radiobutton menubutton \
entry menu label spinbox \
listbox canvas scrollbar scale frame} {
set x [$w .xx]
foreach b [$x configure] {
if {[llength $b] == 2} continue;
puts $f "*[string totitle $w].[lindex $b 1]:[lindex $b end]"
}
destroy $x
}
close $f
}
【讨论】：