*******************************************************************
Dokumentation zum Modul IntuiPointer         Bernd Preusing 9.11.89
*******************************************************************

Manchmal möchte man den Benutzer darauf hinweisen, daß das Programm
gerade sehr beschäftigt ist und sich nicht um seine Eingaben kümmern
kann. Dies macht z.B. die Workbench laufend mit seinem 'ZZ'-Maus-
zeiger.

Und das geht nun sehr einfach mit Hilfe dieses Moduls. Dazu werden
zwei simple Prozeduren exportiert, die jeweils den Mauszeiger eines
Fensters verändern:

   PROCEDURE Busy(Win:Intuition.WindowPtr);
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   PROCEDURE Normal(Win:Intuition.WindowPtr);
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Busy() setzt einen 'ZZ'-Mauszeiger ähnlich der Workbench an des Fenster,
Normal() stellt den normalen Zeiger wieder her.

Bernd Preusing


Änderungen Version1.1:
~~~~~~~~~~~~~~~~~~~~~~
Das Image des (ZZ)-Sprites ist jetzt nicht nur ähnlich sondern identisch
mit dem des Workbench-(ZZ)-Pointers. Es sieht jetzt etwas weniger schlecht
aus als Version 1.0 (Bitte keine Gerüchte, ich hätte einen Sprite-
Grabber... ich hab einfach ein Gewicht auf die rechte Maustaste gelegt und
den Sprite ganz einfach abgemalt).

Bene

PS: Ich habe die höhe des Pointers von 16 auf 22 gestellt, ich glaube aber
nicht, das sich das störend bemerkbar macht. Die Workbench machts ja auch.


Änderungen Version1.2:
~~~~~~~~~~~~~~~~~~~~~~
Das Image des Sprites ist jetzt identisch mit dem des Workbench 2.0
Busy-Pointers (obwohl ich das alte ZZ-Wölkchen schöner fand).
Außerdem ist das Modul nun in Oberon.

Christian Stiens, 22-Jan-92


Änderungen Version1.3:
~~~~~~~~~~~~~~~~~~~~~~
Es besteht nun die Möglichkeit, die Busy-Stopuhr zu animieren, wodurch
der Anwender sehen kann, wie lang er noch warten muß.

   PROCEDURE AnimBusy (Win: Intuition.WindowPtr; num: INTEGER);
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Während der Wartephase ruft man in regelmäßen Abständen diese Routine
auf, wobei man den Wert "num" von 0 bis 16 laufen lässt.

Christian Stiens, 06-Oct-92