iTcl is Tcl's Object Oriented package, and it's shipped as standard with Tcl these days.

On many of our OO courses, we start off with an example of "train" objects and define and run methods such as "getCapacity" on them, and today I've taken that same example and coded it in Tcl - see [here].

My main (test) code creates two trains and puts them into a list:

  set ocount 0
  set s1 [train train_[incr ocount] 2 75 "06:38" "Southampton Central"]
  set s2 [train train_[incr ocount] 1 78 "07:49" "Swindon"]
  set services [list $s1 $s2]

and then loops through and prints out the capacity of each:

  foreach service $services {
    set capacity [$service getcapacity]
    puts "That can take $capacity people"
    }

iTcl provides default cget and configure methods on each object through which you can directly access variables which are declared public within objects - so I can extend the example above:

  $s1 configure -where "Marchwood"
  foreach service $services {
    set capacity [$service getcapacity]
    set to [$service cget -where]
    puts "That can take $capacity people to $to"
    }

Source code [here].
(written 2015-03-11)

 T245 - Tcl/Tk - [incr-Tcl]
  [290] Object Orientation in Tcl - [incr-Tcl] - (2005-04-24)
  [656] Think about your design even if you don't use full UML - (2006-03-24)
  [1528] Object Oriented Tcl - (2008-02-02)
  [1819] Calling base class constructors - (2008-10-03)
  [1925] Introduction to Object Oriented Programming - (2008-12-06)
  [3142] Private and Public - and things between - (2011-01-22)
  [4460] Using Object Oriented Tcl and the Tk toolkit together - real life example - (2015-03-12)

Back to Working out distance between places, using OS grid references and a program in Tcl

Previous and next or Horse's mouth home

Forward to Test framework for TCL - Tcltest - some examples

Managing the window size (and layout) in Tcl/Tk
A new Tcl/tk example - a window to show system status
Test framework for TCL - Tcltest - some examples
Objects in Tcl - iTcl - updated first steps example
Working out distance between places, using OS grid references and a program in Tcl
Everything is a string - even a list
Tcl variable names - no real limits!
Binary data handling - Python and Perl
Running an operating system command from your Python program - the new way with the subprocess module