#!/usr/bin/env tclsh

# Creating and using objects, cget and configure

# Load in the Object Oriented extension
package require Itcl

itcl::class train {
        variable len
        variable seat
        variable when
        public variable where
        constructor {length seats time destination} {
                set len $length
                set seat $seats
                set when $time
                set where $destination
                }

        method getcapacity {} {
                return [expr int(1.4 * $seat * $len)]
                }
        }

# Above here - the bits that define the detail of my things
# ---------------------------------------------------------
# Below here - the code that uses my things

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]

$s1 configure -where "Marchwood"

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

# Sample Output
#
# munchkin:logs grahamellis$ tclsh ootcl02
# That can take 210 people to Marchwood
# That can take 109 people to Swindon
# munchkin:logs grahamellis$