*** empty log message ***
This commit is contained in:
parent
632665b7ab
commit
b692904522
31
ase/stx/kernel/Object.st
Normal file
31
ase/stx/kernel/Object.st
Normal 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.
|
||||||
|
!!
|
Loading…
Reference in New Issue
Block a user