Posted to tcl by crshults at Mon Jun 01 15:42:25 GMT 2015view pretty

package require TclOO

oo::class create small_class {
	 constructor {} {}
	 method hello {} {puts hello}
}

oo::class create large_class {
	 constructor {} {
	 	small_class create myFirstSmallObject
	 	small_class create mySecondSmallObject
	 }

	 method hello {} {
	 	myFirstSmallObject hello
	 	mySecondSmallObject hello
	 }
}

large_class create myLargeObject
myLargeObject hello