Posted to tcl by apw at Fri Sep 14 21:38:03 GMT 2007view raw
- 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