Go to the first, previous, next, last section, table of contents.


Mini-OOF Example

A short example shows how to use this package.

object class
  method init
  method draw
end-class graphical

This code defines a class graphical with an operation draw. We can perform the operation draw on any graphical object, e.g.:

100 100 t-rex draw

where t-rex is an object or object pointer, created with e.g. graphical new Constant t-rex.

For concrete graphical objects, we define child classes of the class graphical, e.g.:

graphical class
  cell var circle-radius
end-class circle \ "graphical" is the parent class

:noname ( x y -- )
  circle-radius @ draw-circle ; circle defines draw
:noname ( r -- )
  circle-radius ! ; circle defines init

There is no implicit init method, so we have to define one. The creation code of the object now has to call init explicitely.

circle new Constant my-circle
50 my-circle init

It is also possible to add a function to create named objects with automatic call of init, given that all objects have init on the same place

: new: ( .. o "name" -- )
    new dup Constant init ;
80 circle new: large-circle

We can draw this new circle at (100,100) with

100 100 my-circle draw


Go to the first, previous, next, last section, table of contents.