Posted to tcl by kbk at Wed Aug 01 22:28:17 GMT 2007view raw

  1. (bin) 51 % package require Itcl
  2. 3.3
  3. (bin) 52 % itcl::class Toaster {
  4. variable crumbs 0
  5. method toast {nslices} {
  6. if {$crumbs > 50} {
  7. error "== FIRE! FIRE! =="
  8. }
  9. set crumbs [expr $crumbs+4*$nslices]
  10. }
  11. method clean {} {
  12. set crumbs 0
  13. }
  14. }
  15.  
  16.  
  17. (bin) 53 % Toaster t
  18. t
  19. (bin) 54 % t info function
  20. ::Toaster::isa ::Toaster::configure ::Toaster::cget ::Toaster::clean ::Toaster::toast