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
Received on Sun Apr 30 03:31:37 2006