[jawsscripts] message window

Hello all.
I have been working with a little chat client which does not read messages as 
they come in.

I have been able to make the messages speak by modifying the say non 
highlighted text 
event.
Now I am running into the problem of messages at times being repeated so that 
the last 
message repeats before the newest reads.

The second problem is that when I alt tab away from the application and switch 
back to it the 
function triggers and the whole message window starts being read.

Here is the function in hopes somebody has suggestions as to how to solve these 
problems.

tia

D C
;globals
string prevstatus,
string ms1

Void Function SayNonHighlightedText (handle hwnd, string buffer)
var
int mycontrol
let mycontrol=GetControlID (hwnd)
If ClearSuppression () == 1 Then
return
EndIf
;read nonhighlighted text in other echo modes
If (GetScreenEcho ()> 1) Then
Say (buffer, OT_buffer)
EndIf
;intercept and speak messages in chat window
;window where text is
if (mycontrol == 1204) Then
;code to capture and compare messages as they come in
If (prevstatus != buffer) Then
Say (buffer, OT_buffer)
let prevstatus =buffer
;saving text of last message to be used in another script
let ms1 = buffer
EndIf
EndIf
EndFunction

Code ends.

__________ 
View the list's information and change your settings at 
http://www.freelists.org/list/jawsscripts

Other related posts: