--- gforth/doc/gforth.ds 2005/05/11 17:57:52 1.138 +++ gforth/doc/gforth.ds 2005/07/26 12:50:29 1.139 @@ -10757,7 +10757,7 @@ You can define a class for graphical obj @cindex @code{method} usage @example object class graphical \ "object" is the parent class - method draw ( x y graphical -- ) + method draw ( x y -- ) class; @end example @@ -10791,7 +10791,7 @@ how: : draw ( x y -- ) circle-radius @@ draw-circle ; - : init ( n-radius -- ( + : init ( n-radius -- ) circle-radius ! ; class; @end example