Re: get default options of Tk widgets

Hi,
is this what you are looking for?

set widget [ label .l]
set alloptions [ $widget configure ]
set singleoption [ $widget configure -$option ]

foreach item $alloptions {
foreach {argname optdbname class default current} $item {
puts "cmdline name : $argname"
puts "optdbname : $optdbname"
puts "Class : $class"
puts "default val : \"$default\""
puts "current val : \"$current\""
puts ""
}
}

set option [ string trimleft $argname - ]
set singleoption [ $widget configure -$option ]

puts "singleoption \"$option\""

foreach {argname optdbname class default current} $singleoption {
puts "cmdline name : $argname"
puts "optdbname : $optdbname"
puts "Class : $class"
puts "default val : \"$default\""
puts "current val : \"$current\""
puts ""
}


uwe
.