package require XOTcl
xotcl::Class ExtendedContainer

namespace import xotcl::*
source b.xotcl


Class create ExtendedContainer

ExtendedContainer instproc init {} {

B create tmp1 244

puts "Calling testB on class B object..."
tmp1 testB
puts "...proc called successfully"
	
puts "Calling testA on class B object..."
tmp1 testA
puts "...proc called successfully"

next
}