version 1.14, 1999/07/05 18:54:20
|
version 1.17, 1999/07/24 13:07:19
|
Line 263 variable public-wordlist
|
Line 263 variable public-wordlist
|
\g Add @var{class}'s wordlists to the head of the search-order. |
\g Add @var{class}'s wordlists to the head of the search-order. |
>r get-order r> add-class-order set-order ; |
>r get-order r> add-class-order set-order ; |
|
|
: methods ( class -- ) |
: methods ( class -- ) \ objects- objects |
\g Makes @var{class} the current class. This is intended to be |
\g Makes @var{class} the current class. This is intended to be |
\g used for defining methods to override selectors; you cannot |
\g used for defining methods to override selectors; you cannot |
\g define new fields or selectors. |
\g define new fields or selectors. |
Line 297 variable public-wordlist
|
Line 297 variable public-wordlist
|
\g on the search order. |
\g on the search order. |
>r get-order r> remove-class-order set-order ; |
>r get-order r> remove-class-order set-order ; |
|
|
: end-methods ( -- ) |
: end-methods ( -- ) \ objects- objects |
\g Switch back from defining methods of a class to normal mode |
\g Switch back from defining methods of a class to normal mode |
\g (currently this just restores the old search order). |
\g (currently this just restores the old search order). |
current-interface @ drop-order ; |
current-interface @ drop-order ; |
Line 359 variable public-wordlist
|
Line 359 variable public-wordlist
|
\ : to-this ( object -- ) |
\ : to-this ( object -- ) |
\ thisp ! ; |
\ thisp ! ; |
|
|
: m: ( -- xt colon-sys; run-time: object -- ) \ objects- objects |
: enterm ( -- ; run-time: object -- ) |
\g Start a method definition; @var{object} becomes new @code{this}. |
\g method prologue; @var{object} becomes new @code{this}. |
:noname |
|
POSTPONE this |
POSTPONE this |
POSTPONE >r |
POSTPONE >r |
POSTPONE to-this ; |
POSTPONE to-this ; |
|
|
|
: m: ( -- xt colon-sys; run-time: object -- ) \ objects- objects |
|
\g Start a method definition; @var{object} becomes new @code{this}. |
|
:noname enterm ; |
|
|
|
: :m ( "name" -- xt; run-time: object -- ) \ objects- objects |
|
\g Start a named method definition; @var{object} becomes new |
|
\g @code{this}. Has to be ended with @code{;m}. |
|
: enterm ; |
|
|
: exitm ( -- ) \ objects- objects |
: exitm ( -- ) \ objects- objects |
\g @code{exit} from a method; restore old @code{this}. |
\g @code{exit} from a method; restore old @code{this}. |
Line 486 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. |
|
|