DEFINITION MODULE bgBar;

IMPORT

  i : IntuitionD,
  u : UtilityD;


CONST brPen = 22H;                  (* Farbe des Feldes *)
      brStonePen = 23H;             (* Farbe der Steine *)
      brBottom = 24H;               (* Flag, unten *)
      brStones = 25H;               (* Anzahl Steine *)

VAR BarClass : i.IClassPtr;


END bgBar.