32 lines
235 B
Smalltalk
32 lines
235 B
Smalltalk
!Object methods!
|
|
|
|
= aValue
|
|
^ self == aValue
|
|
!
|
|
|
|
== aValue
|
|
^ <21 self aValue>
|
|
!
|
|
|
|
basicAt: index
|
|
^<25 self index>
|
|
!
|
|
|
|
basicAt: index put: value
|
|
^<31 self index value>
|
|
!
|
|
|
|
|
|
basicSize
|
|
^<12 self>
|
|
!
|
|
|
|
|
|
isNil
|
|
^false.
|
|
!
|
|
|
|
notNil
|
|
^false.
|
|
!!
|