DEFINITION MODULE TalkGadgets;
(*$ LargeVars:=FALSE *)

FROM IntuitionD	IMPORT	GadgetPtr;
FROM GadToolsD	IMPORT	buttonIDCMP,mxIDCMP,sliderIDCMP,stringIDCMP,cycleIDCMP;
FROM Narrator	IMPORT	NewNarrator;
IMPORT TB:TalkBase;

CONST
  idcmpFlags=buttonIDCMP+mxIDCMP+sliderIDCMP+stringIDCMP+cycleIDCMP;

TYPE
  CentPhoneRange=[0..10];

  Gadgets=(
	rate,pitch,volume,sampFreq,
	f0Enth,f0Perturb,f1Adj,f2Adj,f3Adj,
	a1Adj,a2Adj,a3Adj,articulate,avBias,
	afBias,priority,
	centralize,
	mode,
	sex,
	centphon,
	text,phonemes,
	speak,abort);

VAR
  (*
   * Automatisch initialisiert und gelöscht!
   * userData=ORD(Gadget)
   *)
  gadgets:ARRAY Gadgets OF GadgetPtr;

PROCEDURE Disable(g:Gadgets);
PROCEDURE Enable(g:Gadgets);

PROCEDURE SetNarr(n:TB.NarrData);
PROCEDURE UpdatePhonemes;
PROCEDURE SetCentPhone(nr:TB.CentrPhons);

END TalkGadgets.def