qse/ase/stx/kernel/Object.st

!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.
!!
* empty log message * 2005-05-30 15:27:31 +00:00			`!Object methods!`
* empty log message * 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.`
			`!!`