DEFINITION MODULE bgSettings;

IMPORT

  asl : AslD,
  i   : IntuitionD,
  MD  : MuiD,
  str : bgStrukturen,
  u   : UtilityD,
  y   : SYSTEM;

TYPE KiElem = (bar, single, singleProb, distribution, distance, six, block, target, home);
     SetArr = ARRAY [1..2], KiElem OF LONGINT;
     SetRec = RECORD
                player1, player2 : LONGINT;
                trace, level : LONGINT;
                blink, blinkTime : LONGINT;
                boardType : LONGINT;
                icons     : LONGINT;
                whiteStone : MD.mPenSpec;
                blackStone : MD.mPenSpec;
                whiteField : MD.mPenSpec;
                blackField : MD.mPenSpec
              END; (* RECORD *)

CONST envName = "ENV:MUIBackgammon";
      envarcName = "ENVARC:MUIBackgammon";


VAR kiSetting : ARRAY [1..2] OF SetArr;
    fileReq               : asl.FileRequesterPtr;
    set                   : SetRec;

(*--------------------------------------------------------------------------------*)

PROCEDURE LoadKiSettingsHook (hook : u.HookPtr; obj1, farbePtr : MD.APTR) : MD.APTR;

PROCEDURE SaveKiSettingsHook (hook : u.HookPtr; obj1, farbePtr : MD.APTR) : MD.APTR;

PROCEDURE LoadSettings (name : y.ADDRESS);

PROCEDURE SaveSettings (name : y.ADDRESS);


END bgSettings.