version 1.16, 1999/07/08 09:46:42
|
version 1.17, 1999/07/24 13:07:19
|
Line 494 method print ( object -- ) \ objects- ob
|
Line 494 method print ( object -- ) \ objects- ob
|
\g Print the object. The method for the class @var{object} prints |
\g Print the object. The method for the class @var{object} prints |
\g the address of the object and the address of its class. |
\g the address of the object and the address of its class. |
|
|
|
selector equal ( object1 object2 -- flag ) |
|
|
end-class object ( -- class ) \ objects- objects |
end-class object ( -- class ) \ objects- objects |
\g the ancestor of all classes. |
\g the ancestor of all classes. |
|
|