[jawsscripts] Re: script crashing Jaws v16
- From: "Jim Snowbarger" <snowman@xxxxxxxxxxxxxxx>
- To: <jawsscripts@xxxxxxxxxxxxx>
- Date: Tue, 2 Dec 2014 20:57:21 -0600
Personally, I think JAWS 16 currently has some serious crash
vulnerabilities. I have one computer on which I can't keep it from
eventually going through it's crash, recover, and call FS phase.
And, of course, They're sorry I'm having so much trouble.
So, cross your fingers, and hope for an effective update.
-----Original Message-----
From: jawsscripts-bounce@xxxxxxxxxxxxx
[mailto:jawsscripts-bounce@xxxxxxxxxxxxx] On Behalf Of Philip Hall
Sent: Tuesday, December 02, 2014 8:43 PM
To: jawsscripts@xxxxxxxxxxxxx
Subject: [jawsscripts] script crashing Jaws v16
Hi.
A while ago, I through together a script to toggle check boxes on a web
page. I mostly use it for deleting Gmail messages on the Gmail web page in
the basic html view.
The script works just fine with jaws 14, and 15, but crashes jaws 16.
It doesn't crash jaws immediately, but after about 50 to 70 check boxes have
been toggled.
I wrote it as a function and just call it from a script inserted into the
default.jss script.
The function is below.
there is extra code for debugging.
; toggle check box
;mostly used to toggle check boxes on Gmail to delete trash.
; key used is JawsKey+ctrl+`
Function FToggleCheckBox ()
var
int maxCounter,
int counter,
int curPercentage,
int speechIsOff,
int CheckedCheckboxes,
int TotalTableRowCount,
int TableRowCount,
int BeepCount ;used to beep to keep the user notified
let CheckedCheckboxes = 1 ; what to search checked or not checked
checkboxes
let counter = 0
let maxCounter = 1000
let speechIsOff = IsSpeechOff ()
let BeepCount = 0 ; beep after every 10 check boxes
MoveToFirstTable () ;moves to the first table on the page
let curPercentage = GetDocumentPercentage ()
let TotalTableRowCount = GetTableRowCount () ;total number of rows
let TableRowCount = 0
if (speechIsOff == 0) then
SpeechOff ()
endIf
while
(counter < maxCounter
&& curPercentage <= GetDocumentPercentage ()
&& TableRowCount <= TotalTableRowCount
)
let counter = counter + 1
;let curPercentage = GetDocumentPercentage ()
let TableRowCount = TableRowCount+1
PerformScriptByName ("VirtualSpacebar") ;toggle check box
delay (1)
;SayObjectTypeAndText ()
if ( BeepCount <= 8 )
Let BeepCount = BeepCount + 1
else
SpeechOn ()
SayInteger (TableRowCount ) ;speak row count every 10 check boxes
SpeechOff ()
BeepCount = 0
Beep ()
EndIf
MoveToNextCheckbox ()
delay (1)
endWhile
if (speechIsOff == 0) then
SpeechOn ()
endIf
;delay(1)
;SayObjectTypeAndText ()
;&& ControlIsChecked () != CheckedCheckboxes
EndFunction
Phil
__________�
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
Other related posts:
