Object subclass: B [m1 [^#m1]].
B subclass: C [].
obj := C new.
obj m1 printNl. "=> #m1 "
Object subclass: A [].
A subclass: B [].
A extend [m2 [^#m2]].
obj m1 printNl. "=> #m1 "
obj m2 printNl. "=> #m2 "
T2JqZWN0IHN1YmNsYXNzOiBCIFttMSBbXiNtMV1dLgpCIHN1YmNsYXNzOiBDIFtdLgpvYmogOj0gQyBuZXcuCm9iaiBtMSBwcmludE5sLiAgIj0+ICNtMSAiCgpPYmplY3Qgc3ViY2xhc3M6IEEgW10uCkEgc3ViY2xhc3M6IEIgW10uCkEgZXh0ZW5kIFttMiBbXiNtMl1dLgpvYmogbTEgcHJpbnRObC4gICI9PiAjbTEgIgpvYmogbTIgcHJpbnRObC4gICI9PiAjbTIgIg==