(******************************************************************************)
(*      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 KbdEvnt;

FROM SYSTEM IMPORT ADDRESS;

PROCEDURE MenuSearch(AppID:INTEGER; MenuTree:ADDRESS;KeyState,Key:INTEGER;
VAR Taste:CHAR ):BOOLEAN;
(*************************************************************************)
(* Mit MenuSearch kann man seine Drop-Down Men�s durch Tastaturk�rzel    *)
(* bedienen.                                                             *)
(* Der Men�eintrag muž dabei folgendermažen aufgebaut sein:              *)
(* Text (wie šblich); Blank (wichtig sonst wird der Shortcut nicht als   *)
(* solcher erkannt!); Zeichen f�r Shift, Alternate, Control; Taste (hier *)
(* sind nur Grožbuchstaben oder Sonderzeichen erlaubt)                   *)
(* Zeichen f�r Shift : CHR(1), Im RCS 1.4 mit Control 'A' zu erreichen.  *)
(* Zeichen f�r Alternate : CHR(7), Im RCS mit Control 'G' zu erreichen.  *)
(* Zeichen f�r Control : ^                                               *)
(* Diese drei Zeichen k”nnen kombiniert werden m�ssen aber in dieser     *)
(* Reihenfolge stehen.                                                   *)
(* Als Taste sind s„mtliche Zeichen zugelassen die auf der Tastatur      *)
(* stehen inclusive der Funktionstasten und Help.                        *)
(* Ein Men�eintrag muž also folgendermažen aussehen : ' Speichern ^F2'   *)
(* Im Programm hat dann der Druck der Taste control F2 die gleiche       *)
(* Wirkung wie die Anwahl des Men�eintrages.                             *)
(* Einschr„nkungen : Shift 0-9 kann nur �ber das Nummernfeld erreicht    *)
(* werden, vor Ý,",!,%,... muss(!) das Shift zeichen stehen.             *)
(* Wenn man einige Eintr„ge doppelt vergibt wird immer nur der erste     *)
(* gefunden, es sei denn er w„re disabled.                               *)
(*                                                                       *)
(* AppID : ID des aufrufenden Programmes, dies ist der R�ckgabewert von  *)
(* AppInitialize.                                                        *)
(* MenuTree : Die ADDRESSe des Men�s das auf Shortcuts untersucht wird,  *)
(* Diese ADDRESSe braucht man auch zum Aufbau der Men�zeile mit          *)
(* AES.MenuBar; sie wird mit AES.ResourceGetAdrr ermittelt.              *)
(* KeyState : Status der Shift, Control und Alternate Tasten; wird von   *)
(* AES.EventMultiple als MoKState geliefert.                             *)
(* Key : Scancode und Asciiwert der gedr�ckten Taste, wird von           *)
(* AES.EventMultiple als KReturn geliefert.                              *)
(* Taste : gibt den CHAR der gedr�ckten Taste als Grožbuchstabe zur�ck   *)
(* dies ist dazu gedacht falls die Taste nicht im Men� zu finden war in  *)
(* eine eigene Tastaturroutine zu verzweigen, und die Berechnung der     *)
(* Taste zu vermeiden.                                                   *)
(* R�ckgabe : TRUE falls die Taste gefunden wurde und die entsprechende  *)
(* Message ans eigene Programm abgeschickt wurde, FALSE wenn der Shortcut*)
(* nicht in der Men�leiste gefunden wurde.                               *)
(* Dies wieder um eine eigene Tastaturroutine einzubinden f�r nicht im   *)
(* Men� verzeichnete Shortcuts.                                          *)
(* -> ST-Computer 11/89.                                                 *)
(*************************************************************************)

PROCEDURE ConcatScanString(VAR ScanString : ARRAY OF CHAR;KeyState, Key :INTEGER);
(*********** Hilfsprogramm f�r MenuSearch ************************)

END KbdEvnt.