#!/usr/local/bin/tclsh

set rcsId {$Id: demo,v 1.2 1995/10/31 00:11:20 jfontain Exp $}

source stooop.tcl

proc base::base {this p} {
    set base($this,m) $p
}
proc base::~base {this} {}
virtual proc base::print {this} {
    puts "Hi! I'm a base with member data:"
    puts $base($this,m)
}

proc derived::derived {this p q} base {$p} {
    set derived($this,q) $q
}
proc derived::~derived {this} {}
proc derived::print {this} {
    puts "Hi! I'm a derived with member data:"
    puts $base($this,m)
    puts $derived($this,q)
}

set object [new derived 0 1]
base::print $object
delete $object
