gforth/objexamp.fs - diff

Return to objexamp.fs CVS log

Up to [gforth] / gforth

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