Script DragonLecture ()
;Ctrl+!
var handle hdReal , handle hdDNS, string st, int i
let hdReal  = GetRealWindow(GetFocus())
while i<8 
	if StringContains(getWindowClass(GetParent(hdReal)),"invalide") 
		let i = 10
	else
		hdReal=GetParent(hdReal)
		i = i+1
	EndIf
EndWhile
hdDNS= FindWindow(GetParent(hdReal),"DgnResultsBoxWindow","")  ;DgnResultsBoxWindow  Choice Box
if hdDNS
	st =GetWindowName(hdDNS)
else 
EndIf
if st&&st!="<???>"
	if IsSameScript()==0
		SayString(st)
	else
		SpellString(st)
	EndIf
EndIf
EndScript