language-Modula2-0.1: examples/Modula-2_Libraries/PMOS/def/mouse0.def

DEFINITION MODULE Mouse0;

        (********************************************************)
        (*                                                      *)
        (*      Common definitions for the mouse drivers        *)
        (*                                                      *)
        (*  Programmer:         P. Moylan                       *)
        (*  Last edited:        10 October 1996                 *)
        (*  Status:             OK                              *)
        (*                                                      *)
        (********************************************************)

TYPE
    Buttons = (LeftButton, RightButton, MiddleButton);

    ButtonSet = SET OF Buttons;

    Events =  (Motion, LeftDown, LeftUp, RightDown, RightUp, MiddleDown,
              MiddleUp);

    EventSet = SET OF Events;

    EventHandler = PROCEDURE (EventSet,         (* condition mask *)
                                ButtonSet,      (* Button state *)
                                CARDINAL,       (* horizontal cursor position *)
                                CARDINAL);      (* vertical cursor position *)

END Mouse0.