(**********
 *
 * Defines the Admin Workspace object.
 *
 *)

module Ws;

  from Sched import Schedule;

  from View import View;

  export Workspace, StatusWindow, StatusMessage;

  object Workspace
    components: sch:Schedule, stat:StatusWindow, v:View;
    description: (*
      The Workspace object.  Holds all the info, open files, database 
      references, ...
    *);
  end Workspace;

  object StatusWindow
    components: msg:StatusMessage*;
    description: (*
      The status window in the admin display.
    *);
  end StatusWindow;

  object StatusMessage
    components: string;
    description: (*
      A message in the StatusWindow.
    *);
  end StatusMessage;

end Ws;