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