qse/ase/stx/kernel/Object.st

32 lines
235 B
Smalltalk
Raw Normal View History

2005-05-30 15:27:31 +00:00
!Object methods!
2005-05-30 07:32:55 +00:00
= 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.
!!