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

  1. package require Itcl 4.0
  2.  
  3. ::itcl::widget Button {
  4. component myobj -inherit yes
  5. constructor {args} {
  6. set myobj $hull
  7. }
  8. method m1 {args} {
  9. puts stderr "myobj!$myobj!"
  10. puts stderr "hull!$hull!"
  11. }
  12. }
  13.  
  14. ::Button .btn
  15. .btn m1
  16. puts stderr "CONF![.btn configure -background]!"
  17. puts stderr END
  18.  
  19. output:
  20. CONF!-background background Background #d9d9d9 #eeeeee!
  21. END
  22.  
  23.  
  24.