home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / modula2demo.lha / m2 / TalkDemo / txt / IntuiPointer.def < prev    next >
Text File  |  1992-08-29  |  407b  |  15 lines
  1. DEFINITION MODULE IntuiPointer;
  2.  
  3. IMPORT IntuitionD;
  4.  
  5. PROCEDURE Normal(Win:IntuitionD.WindowPtr);
  6. (* :Input.    Win: Das Fenster, auf das sich der Zeiger bezieht.
  7.    :Semantic.    Löscht den Mauszeiger, d.h. er wird wieder normal.
  8. *)
  9. PROCEDURE Busy(Win:IntuitionD.WindowPtr);
  10. (* :Input.    Win: Das Fenster, auf das sich der Zeiger bezieht.
  11.    :Semantic.    Setzt den Mauszeiger auf 'ZZ' (Busy)
  12. *)
  13.  
  14. END IntuiPointer.def
  15.