[jawsscripts] dlgList of buttons
- From: Mario Brusco <mrb620@xxxxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Mon, 27 Sep 2010 11:02:05 -0400
hi scripters, I am trying to adapt the following code to retrieve a list of
the Windows calculator buttons whether it is in standard or scientific mode,
whether the buttons are disabled or not. It seems to hang at some point. can
someone please help to get it working for me? Maybe the problem is in the
while loop? I dabble lightly and am not a true scripter yet, so I need
actual code:
const
sep = "\007"
Script GetButton ()
;control+jawskey+b
; gathers the buttons in a window into a list, user can use arrows to use
the arrow keys and enter key to select a function
; works in any window/dialog
var
String sList, ;will contain list of buttons
String sItem, ;will contain the desired button name
int iIndex, ;contains number of button selected
handle hW ;contains window handles
let hW= FindWindow (GetAppMainWindow (GetCurrentWindow ()), "Button", "")
;looks for a type (Button), starting from main window
while (hW) ;while valid window handle found
if GetWindowSubTypeCode (hW)== 1 then ;it's a button,gets name of button and
adds it to the list, as well as the \007 item separator
let sList= sList+GetWindowName (hW)+sep
;let hW= GetNextWindow (hW) ;go to next window
endIf
endWhile ;displays the list of buttons from which to pick, iIndex returns
the button number
let iIndex= dlgSelectItemInList (sList, "calculator buttons", 1) ;gets the
name of the button selected
let sItem= stringSegment (sList, sep, iIndex)
SaveCursor ()
JAWSCursor ()
RouteJAWSToPc ();finds the button & gets its handle
let hW= FindWindow (GetAppMainWindow (GetCurrentWindow ()),
"ThunderRT6CommandButton", sItem)
if hW then ;valid window handle
if MoveToWindow (hW) then ;move to the window whose handle u just got
LeftMouseButton ()
Else
SayMessage (OT_MESSAGE, "cannot move to button")
endIf
else
SayMessage (OT_MESSAGE, "window not found")
endIf
RestoreCursor ()
EndScript
__________�
View the list's information and change your settings at
//www.freelists.org/list/jawsscripts
Other related posts:
