#!/usr/bin/env tclsh

# Demonstration of multiple inheritance in Itcl

package require Itcl
namespace import itcl::*

# First base class

class person {
        public variable name
        public variable age
        constructor {{inname "A N Other"} {inage 21}} {
                set name $inname
                set age $inage
                }
        }

# Second base class

class cost {
        public variable startup
        public variable annual
        constructor {{yearly 12000} {newstart 0}} {
                set startup $newstart
                set annual $yearly
        }
        method getmonthly {} {
                return [expr $annual/12.]
                }
        }

# class that multiple inherits

class employee {
        inherit person cost
        variable empnumber
        constructor {empn} {
                # Construct a cost ...
                cost::constructor 15000 } {
                # automatically constructs a person
                # with all parameters defaulted. Then the extra
                # variables are set up here
                set empnumber $empn
                }
        }

# Test application to use employee class

# Constructor test

employee boris 77653
employee brenda 72727

# change various inherited settings!

boris configure -name "Boris Morris"
brenda configure -age 50
brenda configure -annual 18500

# Retreive and print various attributes

foreach teammember {boris brenda} {
        set name [$teammember cget -name]
        set paythem [$teammember getmonthly]
        puts "Pay $name at $paythem per month"
        }