RosettaCodeData/Task/Inheritance-Single/Smalltalk/inheritance-single.st

23 lines
439 B
Smalltalk
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
Object subclass: #Animal
instanceVariableNames: ' ' "* space separated list of names *"
classVariableNames: ' '
poolDictionaries: ' '
category: ' ' !
"* declare methods here, separated with '!' *"
"* !Animal methodsFor: 'a category'! *"
"* methodName *"
2013-10-27 22:24:23 +00:00
"* method body! !"
2013-04-10 21:29:02 -07:00
!Animal subclass: #Dog
"* etc. *" !
!Animal subclass: #Cat
"* etc. *" !
!Dog subclass: #Lab
"* etc. *" !
!Dog subclass: #Collie
"* etc. *" !