Posted to tcl by kbk at Wed Aug 01 22:28:17 GMT 2007view raw
- (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