Accessory auch über Tastatur

ST-Usern nicht unbekannt ist die Tatsache, daß die Accessories nur via Maus zu erreichen sind.

Mit einem einfachen Trick (das Wort Trick ist schon fast zu hoch gegriffen) ist es möglich, diese Accessories auch mit der Tastatur anzusprechen. Wenn man möchte, kann der Menüeintrag auch ganz entfallen.

Keyboard-Events - auf einen Event reagiert ein Accessory - sprechen ein Accessory höchst selten an, also wird ein Umweg benutzt. Die Sonderfunktionstasten (Shift rechts und links, Alternate, Control, Maustaste rechts und links und CapsLock) haben einen Status, der sich abfragen läßt.

Unser Accessory wartet nun nicht nur auf einen Message-Event, der signalisieren würde, daß es angewählt wurde, sondern auf einen Timer-Event. Dieser Timer-Event wird alle 100 ms (Millisekunden) gegeben und das Accessory fragt alle 100 ms die Sondertasten ab. Sollte die von uns vorbestimmte Kombination gedrückt sein, so wird eine Aktion ausgelöst. Diese 100 ms sind für den Programmbenutzer unmerklich, sowohl von der leichten Behinderung des Programmablaufes her als auch von der Wartezeit, bis die Aktion ausgelöst wird.

Das Accessory kann selbstverständlich nur dann aufgerufen werden, wenn ein Event möglich ist. Also ist ein Aufruf unter TOS-Anwendungen nicht möglich. Was kann man alles aufrufen? Eigentlich alles! Das Beispiel-Accessory stellt nur eine Alert-Box dar. Die Routinen können aber sehr vielfältig sein. Damit keine Probleme mit anderen Programmen entstehen, sollte man aber möglichst die Wahl der Sondertasten, die das Accessory aktivieren, dem Programmbenutzer überlassen.

Die Abfrage der Sondertasten wird über die (Modula 2-)BIOS-Funktion GetKBShift bewerkstelligt. Im Bios selbst heißt die Funktion ‘kbshift’ und trägt die Nummer 11. Diese Funktion liefert bei Megamax Modula 2, mit dem das Accessory geschrieben wurde, einen Set mit den gedrückten Tasten zurück. Bei Pascal Plus beispielsweise kann nur ein Integer-Wert abgefragt werden. Man muß dort anhand der einzelnen Bits überprüfen, welche Taste gedrückt wurde. Das Modul BIOS aus dem Megamax Modula 2-Modul stellt einen Set mit folgenden Tasten zur Verfügung:

Shift rechts : RightShift
Shift links : LeftShift
Control: ControlKey
Alternate: AlternateKey
Caps Lock : CapsLock
Maustaste rechts: RightMouseButton
Maustaste links : LeftMouseButton

Bei dem Beispiel-Accessory wird geprüft, ob beide Shift-Tasten gedrückt sind. Für andere Tastenkombinationen sind entsprechend andere Werte abzufragen. Man sollte aber möglichst Doppelbelegungen verwenden, da eine Aktion etwa auf Shift hin nicht unbedingt wünschenswert ist.

Möglichkeiten für eigene Programme gibt es reichlich. Es ist ja auch möglich, auf eine bestimmte Tastenkombination hin eine Dialog-Box zu öffnen und dort verschiedene Tätigkeiten zur Auswahl zu stellen.

Literatur: Atari ST Profibuch, Jankows-ki/ReschkelRabich, Sybex-Verlag

(***********************************************************)
(* Accessory, aufrufbar über Desk-Eintrag und Tastatur 2.0 *)
(* ------------------------------------------------------- *)
(* Entwickelt mit Megamax Modula 2 von Application         *) 
(* Systems, Heidelberg.                                    *)
(* Autor: Dietmar Rabich, Dülmen                           *)
(* Datum: 13. März l988                                    *) 
(***********************************************************)

MODULE HideACCi

(*$S1*) (* <- reseruierter Stack. Für andere *)
		(* Anwendungen ggf. zu ändern. *)

(* Importe *)
FROM GrafBase	IMPORT	Point,Rect;
FROM AESEvents	IMPORT	MultiEvent,Event,EventSet, MessageBuffer, 
						accOpen.RectEnterMode;
FROM AESForms	IMPORT FormAlert;
FROM AESMenus	IMPORT RegisterAcc;
FROM GEMEnv 	IMPORT RC.InitGem.DeuiceHandle;
FROM GEMGlobals IMPORT MButtonSet,SpecialKeySet,GemChar,PtrMaxStr;
FROM BIOS		IMPORT KBShifts,KBShiftBits,GetKBShift;
FROM Storage	IMPORT ALLOCATE;

(* Zeit für Timer *)
CONST repeatTime = 100L:

(* Variablen *)
VAR ProgramName : PtrMaxStr;
	OK	: BOOLEAN:
	Events	: EventSet;
	Message : MessageBuffer;
	dummyPoint : Point;
	dummyBut : MButtonSet;
	dummyChar : GemChar;
	dummyClick, dummyCard, ApplID : CARDINAL:
	specialKeys : SpecialKeySet;
	dev	: DeviceHandle;
	KeyKomb : KBShifts;

(* Unsere Beispielanwendung *)
PROCEDURE MachWas;

BEGIN
	FormAlert(1,'[01[Hello World!![***]',dummyCard)
END MachWas;

BEGIN
	ALLOCATE(ProgramName.256):
	ProgramName^:=' Accessory'; (* Accessoryname *)
	InitGem(RC,dev,OK):

	(* Tastenkombination, die den Aufruf ermöglicht *)
	KeyKomb:=KBShifts{RightShift,LeftShift);

	IF OK THEN
		RegisterAcc(ProgramName,ApplID,OK);
		IF OK THEN 
			REPEAT
				MultiEvent (EventSet{message,timer},
							0, MButtonSet{},MButtonSet{}, lookForEntry,Rect(0,0,0,0), lookForEntry,Reet(0,0,0,0),
							Message, 
							repeatTime,
							dummyPoint,dummyBut,specialKeys,
							dummyChar,
							dummyClick,Events):

				(* Aktion über Menüeintrag *)
				IF ((message IN Events) AND (Message.msgType = accOpen)) OR
					(* Aktion über Tastaturaufruf *)
					((timer IN Events) AND (KeyKomb*GetKBShift()= KeyKomb))
					THEN
					EXCL(Events,message):
					MachWas
				END;
			UNTIL FALSE
		ELSE
			FormAlert(1,'[0][Kein Accessorystart möglich][Ende]',dummyCard)
		END
	END
END HideACC

(* ------------ Ende des Listings -------------- *)