package require Itcl
    
   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
       }
   }
    
   itcl::class SmartToaster {
       inherit Toaster
       method toast {nslices} {
           if {$crumbs > 40} {
               clean
           }
           return [chain $nslices]
       }
   }
    
   set toaster [SmartToaster #auto]
   $toaster toast 2

C Code Integration

Itcl (like TCL) has built-in support for the integration of C code into Itcl classes.

Licensing

Itcl follows the same copyright restrictions as Tcl/Tk. You can use, copy, modify and even redistribute this software without any written agreement or royalty, provided that you keep all copyright notices intact. You cannot claim ownership of the software; the authors and their institutions retain ownership, as described in the "license.terms" files included in the standard distribution. For more information please see incrtcl.sourceforge.net/itcl/copyright.html.

See also

• XOTcl
• Snit
• Tcl
• Tcllib
• C++/Tcl
• Itk
• Tk

External links

• Itcl/incr Tcl project page
• Tcl package site
• tclweb project (there is a mailing list maintained at this site)

References

[incr Tcl] from the Ground Up by Chad Smith, published in January 2000.

This is a complete reference manual for [incr Tcl], covering language fundamentals, OO design issues, overloading, code reuse, multiple inheritance, abstract base classes, and performance issues. Despite its breadth, it follows a tutorial, rather than encyclopedic, approach. This book is out of print as of September 2004.

fr:Incr Tcl pl:Incr Tcl ru:Incr Tcl