[jawsscripts] Re: Plese help with this basic script
- From: Jackie McBride <abletec@xxxxxxxxx>
- To: jawsscripts@xxxxxxxxxxxxx
- Date: Sun, 19 May 2013 06:18:40 -0700
What part of the program is that function for, Rod?
On 5/19/13, Alcidonislaw <lawoffice@xxxxxxxxxxxxxxxx> wrote:
> Thanks, John. I will put some time away to play with this. There is a lot
> happening in this function.
>
>
> Rod Alcidonis, Esquire
> Alcidonis Law Office
> 2824 Cottman Avenue
> Suite 15
> Philadelphia, PA 19149
> O: (215) 305-8085
> Work: attorney@xxxxxxxxxxxxxxxx
> Listservs: lawoffice@xxxxxxxxxxxxxxxx
> www.Alcidonislaw.com
>
>
> No-fault family law, immigration, and personal injury
> -----Original Message-----
> From: John Martyn
> Sent: Sunday, May 19, 2013 4:13 AM
> To: jawsscripts@xxxxxxxxxxxxx
> Subject: [jawsscripts] Re: Plese help with this basic script
>
> First off, you are looking at same logical level instead of many parents.
> You can only have one parent of an object. Here is some code you can play
> with. I use it in Lind Tunes to find windows traversing the window
> structure. This is a good function to keep around. Modify it for your
> needs.
> John Martyn
> HANDLE Function GetTargetName (string tWinName, string tWinClassName, int
> skip)
> var
> handle cWin,
> string cWinName,
> string cWinClassName,
> handle nWin,
> string direction,
> handle childWin,
> handle parentWin,
> string converted,
> int flagged,
> int continue,
> int safety,
> int classFlag,
> int skipCount
>
> let cWin = ApplicationMainWindow
> let safety = 1
> let flagged = 0
> let direction = "down"
> let continue =0
> let classFlag = 1
>
> while continue== 0
>
> if cWin == ApplicationMainWindow then
> if flagged == 1 then
> ;Say ("The specified window was not found",3)
> return
> endif
> let flagged = 1
> let cWin = GetFirstChild (cWin)
> let cWinClassName = GetWindowClass (cWin)
> else
>
> if direction == "down" then
> let childWin = GetFirstChild (cWin)
> if childWin == 0 then
> let nWin = GetNextWindow (cWin)
> if nWin == 0 then
> let direction = "up"
> let cWin = GetParent (cWin)
> let cWinClassName = GetWindowClass (cWin)
> else
> let cWin = nWin
> let cWinClassName = GetWindowClass (cWin)
> ;SayString ("next window")
> endif
> else
> let cWin = childWin
> let cWinClassName = GetWindowClass (cWin)
> ;SayString ("next child")
> endif
> elif direction == "up" then
> let nWin = GetNextWindow (cWin)
> if nWin == 0 then
> let direction = "up"
> let cWin = GetParent (cWin)
> let cWinClassName = GetWindowClass (cWin)
> else
> let cWin = nWin
> let cWinClassName = GetWindowClass (cWin)
> ;SayString ("next parent")
> let direction = "down"
> endif
> endif
> endif
>
> let cWinName = GetWindowName (cWin)
> ;Say (cWinName, 3)
> ;Say (cWinClassName, 2)
>
>
> if StringCompare (cWinClassName, tWinClassName, 0) == 0 && StringCompare
> (cWinName, tWinName, 0) == 0 then
> let skipCount = skipCount+1
> if skipCount == skip then
> ;SayString ("The window has been found")
> ;Say (cWinName, 3)
> ;sayinteger(cWin)
>
> let continue = 1
> return cWin
> endif
> endif
>
> if safety == 500 then
> ;SayString ("safety has been triggered")
> return
> endif
> let safety = safety+1
> endwhile
> EndFunction
>
>
>
> -----Original Message-----
> From: jawsscripts-bounce@xxxxxxxxxxxxx
> [mailto:jawsscripts-bounce@xxxxxxxxxxxxx] On Behalf Of Alcidonislaw
> Sent: Saturday, May 18, 2013 11:49 PM
> To: jawsscripts@xxxxxxxxxxxxx
> Subject: [jawsscripts] Plese help with this basic script
>
> Hello gang:
>
> I am in the process of writing this script. My intention is to crawl pass a
> few windows to get to the window I want to click on. However, as you will
> see in my commented script, the "GetParent" function doesn't want to go
> pass
> the first parent. What is it that I am doing wrong? Shift F2 using the
> utility indicates there are more than one parent window there for me to
> crawl through.
>
> Script QuickClicks ()
> var
> Handle hw,
> String shw
>
> Let hw = GetAppMainWindow (GetCurrentWindow ()) ; found my focus window
> just
> fine If GetControlName () == "STILISTBOX" then ; This tells me I am in the
> window where I want to be because that's where I need to start to crawl
> through its parent, and its parent's parent.
> let shw = GetWindowClass (GetParent (GetFocus ())) ; my first attempt to
> crawl pass the first parent. I was successful.
> If hw then ;If it is the first parent that I just found.
> let shw = GetWindowClass (GetParent (GetFocus ())) ; my second attempt to
> go
> to the next parent (after that I would have one more to go) Say (shw,
> Ot_Status, false) ;it reports that I am still on the first parent.
> In other words, my second attempt did not work.
> Else
> Say ("not found", OT_Status, false)
>
> Endif
> Endif
>
> EndScript
>
> Please help me understand how to crawl through a bunch of parents to get to
> the one window...
>
> Thank you
>
>
>
> Rod
>
> __________�
>
> View the list's information and change your settings at
> //www.freelists.org/list/jawsscripts
>
> __________�
>
> View the list's information and change your settings at
> //www.freelists.org/list/jawsscripts
>
> __________�
>
> View the list's information and change your settings at
> //www.freelists.org/list/jawsscripts
>
>
--
Blame the computer--why not? It can't defend itself & occasionally
might even be the culprit
Jackie McBride
Ask Me Computer Questions at: www.pcinquirer.com
Jaws Scripting training materials: www.screenreaderscripting.com
homePage: www.brighter-vision.com
__________�
View the list's information and change your settings at
//www.freelists.org/list/jawsscripts
Other related posts:
