From b69290452200fd2adc8c1654b49853de58d230f0 Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Mon, 30 May 2005 07:32:55 +0000 Subject: [PATCH] *** empty log message *** --- ase/stx/kernel/Object.st | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 ase/stx/kernel/Object.st diff --git a/ase/stx/kernel/Object.st b/ase/stx/kernel/Object.st new file mode 100644 index 00000000..aa20f0ff --- /dev/null +++ b/ase/stx/kernel/Object.st @@ -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. +!!