home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / tricks / mouse.def < prev    next >
Text File  |  1990-07-05  |  2KB  |  52 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     MOUSE.DEF                          *)
  3. (*          Mausroutinen für Fitted Modula-2              *)
  4. (*           (c) 1990 Jörg Peters & TOOLBOX               *)
  5. (* ------------------------------------------------------ *)
  6. DEFINITION MODULE Mouse;
  7.  
  8.   PROCEDURE InitMouse;
  9.   (* Maus initialisieren                                  *)
  10.  
  11.   PROCEDURE ShowMouse;
  12.   (* Maus zeigen                                          *)
  13.  
  14.   PROCEDURE HideMouse;
  15.   (* Maus verstecken                                      *)
  16.  
  17.   PROCEDURE SetTextMouse(type, start, stop : CARDINAL);
  18.   (* Text-Maus setzen                                     *)
  19.   (* type  : 0 = Software, 1 = Hardware                   *)
  20.   (* start : Anfangszeile, stop : Endzeile                *)
  21.  
  22.   PROCEDURE MousePosition(VAR x, y : CARDINAL);
  23.   (* Mausposition feststellen (Grafikkoordinaten)         *)
  24.  
  25.   PROCEDURE LeftButton() : BOOLEAN;
  26.   (* Wurde die linke Taste gedrückt?                      *)
  27.  
  28.   PROCEDURE RightButton() : BOOLEAN;
  29.   (* Wurde die rechte Taste gedrückt?                     *)
  30.  
  31.   PROCEDURE BothButtons() : BOOLEAN;
  32.   (* Wurden etwa beide Tasten gedrückt?                   *)
  33.  
  34.   PROCEDURE SetMousePosition(x, y : CARDINAL);
  35.   (* Maus neu positionieren  (Grafikkkordinaten)          *)
  36.  
  37.   PROCEDURE MouseInArea(x1, y1, x2, y2 : CARDINAL): BOOLEAN;
  38.   (* Befindet sich die Maus im angegebenen                *)
  39.   (* Bereich? (Grafikkoordinaten)                         *)
  40.  
  41.   PROCEDURE HorizontalBorder(left, right : CARDINAL);
  42.   (* Linke und rechte Grenze für Maus festlegen           *)
  43.   (* (Grafikkoordinaten)                                  *)
  44.  
  45.   PROCEDURE VerticalBorder(top, bottom : CARDINAL);
  46.   (* Obere und untere Grenze für Maus festlegen           *)
  47.   (* (Grafikkoordinaten)                                  *)
  48.  
  49. END Mouse.
  50. (* ------------------------------------------------------ *)
  51. (*               Ende von MOUSE.DEF                       *)
  52.