-- JunoKeyboard.mesa, coded by Greg Nelson & Donna Auguste,
 -- June 1982
 DIRECTORY ViewerClasses;

JunoKeyboard: DEFINITIONS
= BEGIN
  JunoKeyboardImpl: PROGRAM;
  x, y, oldx, oldy : PUBLIC INT;
  EventType : TYPE = 
     {keyDown, keyUp, clickDown, clickUp, roll};
  ButtonType : TYPE = {red, yellow, blue};
  StatusType : TYPE = {up, down};
  event : PUBLIC EventType;
  button : PUBLIC ButtonType;
  char: CHAR;
  status : PUBLIC ARRAY ButtonType OF StatusType;
  Quit : SIGNAL;

  
EnterAndNotify : PUBLIC PROC    
  [self : ViewerClasses.Viewer,
   input : LIST OF REF ANY];
     
Next : PUBLIC PROC;
 
 END.