*** 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