23 lines
439 B
Smalltalk
23 lines
439 B
Smalltalk
Object subclass: #Animal
|
|
instanceVariableNames: ' ' "* space separated list of names *"
|
|
classVariableNames: ' '
|
|
poolDictionaries: ' '
|
|
category: ' ' !
|
|
|
|
"* declare methods here, separated with '!' *"
|
|
"* !Animal methodsFor: 'a category'! *"
|
|
"* methodName *"
|
|
"* method body! !"
|
|
|
|
!Animal subclass: #Dog
|
|
"* etc. *" !
|
|
|
|
!Animal subclass: #Cat
|
|
"* etc. *" !
|
|
|
|
!Dog subclass: #Lab
|
|
"* etc. *" !
|
|
|
|
!Dog subclass: #Collie
|
|
"* etc. *" !
|