version 1.1, 1998/08/03 17:56:05
|
version 1.3, 1998/10/07 18:58:58
|
Line 82 m: ( object -- n )
|
Line 82 m: ( object -- n )
|
|
|
end-class xcounter |
end-class xcounter |
|
|
|
|
object class |
object class |
foobar implementation |
foobar implementation |
|
|
Line 139 int drop-order
|
Line 140 int drop-order
|
order |
order |
cr |
cr |
|
|
|
\ test override of inherited interface selector |
|
xcounter class |
|
|
|
m: ( object -- n ) |
|
this [parent] val 2* |
|
;m overrides val |
|
|
|
end-class ycounter |
|
|
|
ycounter dict-new constant z |
|
cr |
|
z print cr |
|
z val . cr |
|
z inc |
|
z val . cr |
|
1 z add |
|
z val . cr |
|
|
|
\ test inst-value |
object class |
object class |
foobar implementation |
foobar implementation |
|
|