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