(*---------------------------------------------------------------------------
   :Program.    ControlIntuition
   :Author.     Fridtjof Björn Siebert
   :Address.    Nobileweg 67, D-7-Stgt-40
   :Phone.      (0)711/822509
   :Shortcut.   [fbs]
   :Version.    1.0
   :Date.       32-May-88, 00:12:02
   :Copyright.  PD, or ShareWare, if you've got enough money.
   :Language.   MODULA-II
   :Translator. M2Amiga
   :Contents.   Prozeduren, die es ermöglichen, Intuition aus und an zu
   :Contents.   schalten. Damit hat man volle Kontrolle Über den Amiga.
   :Remark.     I didn't believe this could be so easy !
---------------------------------------------------------------------------*)

Von dem Modul werden die beiden Prozeduren DisableIntuition und
EnableIntuition exportiert. Mit ihen kann Intuition der Eingabestrom
abgeschnitten bzw. zurückgegeben werden. Die ist nötig, wenn man, z.B. in
einem Grafikprogramm, volle Kontrolle über die Maus braucht. Sie wird nicht
mehr bewegt und es können keine Gadgets mehr angeklickt werden.

Um das Programm nicht zu gefährlich zu machen (wenn ein Programm abstürzt,
während Intuition ausgeschaltet ist, oder wenn EnableIntuition vergessen
wird, wäre der Amiga verloren !!!), kann man durch Drücken der ESC-Taste
leicht wieder mit Intuition arbeiten. Durch nochmaliges Drücken wird
Intuition wieder gesperrt.

Damit man die Maus, die mit diesem Programm nun voll unter der Kontrolle
des Benutzerprogramms steht, auch richtig ausnutzen kann, kann man
Variablen, die Informationen über die Position und die Mausbutton
importieren. RawKey- Eingaben können so auch gemacht werden. Die Variablen
enthalten automatisch immer die aktuellen Werte, da sich DisableIntuition
noch vor Intuition in den Eingabestrom einhakt.

Das Beispielprogramm ControlDemo zeigt, wie man die exportierten Prozeduren
benutzt und die Variablen abfragt. Es gibt Informationen über Mausposition,
Mausknöpfe und RawKey-Eingaben in das CLI-Fenster, von dem es gestartet
wurde, aus. Beendet wird es durch 3x Drücken des linken Mausknopfs.

-- Fridtjof.
