Posted to tcl by aspect at Mon Nov 09 02:53:42 GMT 2015view raw

  1. oo::class create Light {
  2. method blink {} {
  3. puts blinky!
  4. }
  5. }
  6.  
  7. oo::class create Hue {
  8. constructor {} {
  9. Light create Spot
  10. oo::objdefine [self] forward spot Spot
  11. }
  12. }
  13.  
  14. Hue create ha
  15. ha spot blink
  16.