*** empty log message ***

This commit is contained in:
hyung-hwan 2005-05-30 07:32:55 +00:00
parent 632665b7ab
commit b692904522

31
ase/stx/kernel/Object.st Normal file
View File

@ -0,0 +1,31 @@
!Objects 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.
!!