Posted to tcl by pooryorick at Thu Aug 30 20:17:19 GMT 2018view pretty

oo::class create A {
	variable var1
	method m2 {} {
		return var1
	}
}

oo::class create B {
	superclass A
	variable var1
	constructor {} {
		set var1 hello
	}
	method m1 {} {
		return $var1
	}
}

B create b1