Posted to tcl by apw at Fri Sep 14 21:38:03 GMT 2007view pretty

package require Itcl 4.0

::itcl::widget Button {
    component myobj -inherit yes
    constructor {args} {
        set myobj $hull
    }
    method m1 {args} {
        puts stderr "myobj!$myobj!"
        puts stderr "hull!$hull!"
    }
}

::Button .btn
.btn m1
puts stderr "CONF![.btn configure -background]!"
puts stderr END

output:
CONF!-background background Background #d9d9d9 #eeeeee!
END