3 lines
268 B
Tcl
3 lines
268 B
Tcl
% lmap o [. configure] {if {[llength $o] == 2} continue else {lindex $o 0}}
|
|
-borderwidth -class -menu -relief -screen -use -background -colormap -container -cursor -height
|
|
-highlightbackground -highlightcolor -highlightthickness -padx -pady -takefocus -visual -width
|