(* source: h:\modula\code\queues\QueDsply.DEF   v1.0a       revised: 88.07.17
   author: G.Greene, AGCS D/429 (NS/TS), 312/681-7783       created: 88.07.17

   function:
    Definitions of procedures used by main program module QueueExample to
    create and update a graphic display of queue and server status.

   history:
    88.06.10  1.0a  initial release
*)


DEFINITION MODULE QueDsply;


FROM  QueData  IMPORT  (*TYPE*)  QueueListIndices,  QueueLists,  ServerLists;


TYPE
  DisplayActions  = ( Mark, Unmark );
  MessageTypes    = ( WarningMessage, ErrorMessage );


PROCEDURE  DisplayStatusMatrix ( );


PROCEDURE  ChangeQueueDisplay (
                       (*in*)  Queue:  CARDINAL;
                       (*in*)  Length: CARDINAL;
                       (*in*)  Action: DisplayActions );


PROCEDURE  ChangeServerDisplay (
                        (*in*)  Queue:  CARDINAL;
                        (*in*)  Server: CARDINAL;
                        (*in*)  Action: DisplayActions );


PROCEDURE  DisplayCurrentTime (
                       (*in*)  Time: CARDINAL );


PROCEDURE  DisplayMessage (
                   (*in*)  MessageType: MessageTypes;
                   (*in*)  Message:  ARRAY  OF CHAR );


PROCEDURE  DisplaySummary (
                           QueueList:  QueueLists;
                           ServerList: ServerLists;
                           NumberOfQueues: QueueListIndices );

END  QueDsply.
