(*
  .name       ErrCodes
  .task       pool for error codes
  .release    1.0
  .language   Oberon-2
  .translator Amiga Oberon 3.11
  .system     AmigaOS 2.04/2.1/3.0
  .author     Joachim Barheine
  .address    Hochgrevestraße 3, D-38640 Goslar
  .copyright  (c) 1994 by Joachim Barheine
*)

(* .info: 13/08/94, 15:02:21, version 15 *)

MODULE ErrCodes;  (* $Implementation- *)

CONST
  (* module codes: *)
  windows*  = 1000H;
  texts*    = 2000H;
  ioServer* = 3000H;
  files*    = 4000H;
  user*     = 5000H;
  fonts*    = 6000H;
  eRexx*    = 7000H;
  eClip*    = 8000H;
  edt*      = 9000H;
  kernel*   = 0A000H;
  eIcon*    = 0B000H;

  windowsNoFont*      = windows + 002H;  (* cannot open text font          *)
  windowsNoUserPort*  = windows + 004H;  (* cannot setup user-port         *)
  windowsNoImages*    = windows + 005H;  (* cannot create scroller-arrows  *)
  windowsNoGadgets*   = windows + 006H;  (* cannot create scroller-gadgets *)
  windowsNoWindow*    = windows + 007H;  (* cannot open window             *)

  ioServerNoWorkbench*  = ioServer + 001H;  (* cannot get workbench-screen *)
  ioServerNoDrawInfo*   = ioServer + 002H;  (* cannot get drawinfo         *)
  ioServerNoVisualInfo* = ioServer + 003H;  (* cannot get visualinfo       *)
  ioServerNoUserPort*   = ioServer + 004H;  (* cannot create window port   *)
  ioServerNoRexxPort*   = ioServer + 005H;  (* cannot find ARexx           *)
  ioServerNoSignal*     = ioServer + 006H;  (* cannot allocate signal      *)
  ioServerNoAppPort*    = ioServer + 007H;  (* cannot create app port      *)
  ioServerNoMenuStrip*  = ioServer + 008H;  (* cannot create menu-strip    *)

  userNoGadgets* = user + 001H;    (* cannot create gadtools gadgets *)
  userNoFont*    = user + 002H;    (* cannot open screen-font        *)
  userNoReqs*    = user + 003H;    (* cannot open requester          *)

  kernelNoOS* = kernel + 001H;     (* requires AmigaOS 2.04 or later *)
  kernelNoAsl* = kernel + 002H;    (* requires ASL library *)
  kernelNoIFF* = kernel + 003H;    (* requires IFFParse library *)
  kernelNoRexx* = kernel + 004H;   (* requires RexxSysLib library *)
  kernelCopy* = kernel + 005H;     (* Kernel copy boundary failure *)

  eClipNoClipboard* = eClip + 001H;

  eIconNoIcon*  = eIcon + 001H;

  textsNoResolveFold* = texts + 001H;
  textsNoOpenFold* = texts + 002H;
  textsNoNewFold* = texts + 003H;

  eRexxNoStdIO* = eRexx + 001H;
END ErrCodes.