[jawsscripts] Re: Checked and unchecked status of graphic

Hello, After having that much trouble, and asking you all, I was able to 
discover the following, it solves my problem, and hope useful to some of 
you as well. its not that much complicated or special though.
Void Function CheckStatus ()
Var
Handle hwnd,
Int Color,
string Class
Let hwnd = GetFocus ()
Let Class = GetWindowClass (hwnd)
If Class == "TCheckListBox" Then
SaveCursor ()
JAWSCursor ()
SaveCursor ()
RouteJAWSToPc ()
PriorCharacter ()
Let Color = GetColorText ()
If Color == "0" Then
SayFormattedMessage (OT_MESSAGE, "checked")
Else
SayFormattedMessage (OT_MESSAGE, "not checked")
EndIf
EndIf
EndFunction
Thanks everyone, specially david and Jeff.
__________ 
Visit and contribute to The JAWS Script Repository http://jawsscripts.com

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

Other related posts: