(******************************************************************************)
(*      This MODULE is Public Domain. Copy me like a beast!                   *)
(*               Christian Ledermann                                          *)
(*               W”lfelkofen 2                                                *)
(*               84166 Adlkofen                                               *)
(******************************************************************************)
(*                                                                            *)
(* Started:   20.12.92     03:54:30                                           *)
(* Version:   20.01.94     04:12:54                                           *)
(*                                                                            *)
(******************************************************************************)
(*                                                                            *)
(* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
(* keinerlei Wartung und �bernehme keine Verantwortung f�r Sch„den die        *)
(* durch die Benutzung dieses Programmes entstehen.                           *)
(* Jegliche Ersatzanspr�che lehne ich ab.                                     *)
(*                                                                            *)
(******************************************************************************)
DEFINITION MODULE MousePosition;
(******************************************************)
(* Ein paar einfache Routinen zum Erfragen und Setzen *)
(* des Mauszeigers                                    *)
(******************************************************)

PROCEDURE GetMousePos(VAR MouseX, MouseY, Window : INTEGER);
(******************************************************)
(* Wo ist die Maus ? x,y-Position und Fenster �ber dem*)
(* sie sich befindet.                                 *)
(******************************************************)



PROCEDURE SetMousePos( MouseX, MouseY : INTEGER);
(******************************************************)
(* Setzt die Maus auf Position x,y                    *)
(* Beshreibung von ApplTPlayback -> ST 4/88           *)
(******************************************************)


END  MousePosition.