[jawsscripts] Add ons.
- From: Darragh Ó Héiligh <d@xxxxxxxxxxxxxxxxxx>
- To: "jawsscripts@xxxxxxxxxxxxx" <jawsscripts@xxxxxxxxxxxxx>
- Date: Wed, 20 Nov 2013 12:13:16 +0000
Hello,
Is there a set of scripts out there that adds additional functionality to Jaws?
I don't mean specific scripts for Skype or anything like that but scripts that
are useful in all situations that are added to the default script file.
For example, I have a set of modifications that I make when I install Jaws. I
work in a lot of list views so navigating around them quickly is very
important. The scripts that I add are very simple.
The first navigates backword and forward through a row reading each column and
it's title.
The second virtualizes the column that I'm currently reading.
The third one virtualizes all the columns on the row that I'm currently focused
on.
I also have a few others for cycling through folders in Outlook and providing
the folders that have unread messages in the virtual viewer.
I'm sure that on this list a lot of people write little changes and
enhancements to Jaws. It would be great to package these together.
Here's my small script for virtualizing a list row.
Script VirtualizeAllListColumns ()
var
int nCol,
int nMaxCols,
string sHeader,
string sText,
handle hCurrent,
int nCurrent
If !(GetRunningFSProducts() & product_JAWS) then
return
EndIf
let hCurrent=getCurrentWindow()
if !IsTrueListView(hCurrent) then
sayMessage(OT_ERROR,cmsgNotInAListview_L,cmsgNotInAListview_S)
return
endIf
let nMaxCols=lvGetNumOfColumns(hCurrent)
let nCol=1
let nCurrent=lvGetFocusItem(hCurrent)
UserBufferClear ()
while nCol<=nMaxCols
let sHeader=lvGetColumnHeader(hCurrent,nCol)
let sText=lvGetItemText(hCurrent,nCurrent,nCol)
UserBufferAddText (sHeader)
UserBufferAddText (sText)
LET nCol = nCol + 1
EndWhile
UserBufferActivate ()
EndScript
__________�
View the list's information and change your settings at
http://www.freelists.org/list/jawsscripts
Other related posts: