Posted to tcl by kbk at Wed Aug 01 22:28:17 GMT 2007view pretty
(bin) 51 % package require Itcl 3.3 (bin) 52 % itcl::class Toaster { variable crumbs 0 method toast {nslices} { if {$crumbs > 50} { error "== FIRE! FIRE! ==" } set crumbs [expr $crumbs+4*$nslices] } method clean {} { set crumbs 0 } } (bin) 53 % Toaster t t (bin) 54 % t info function ::Toaster::isa ::Toaster::configure ::Toaster::cget ::Toaster::clean ::Toaster::toast