[jawsscripts] Re: Keypress question

Hi Rui and Martin;

I think that I have found an answer to the solution you provided which
did not speak the appropriate characters when selecting the text.

Here are the slightly modified scripts.

Script toggleState ()
  Let iToggle = not iToggle
SayInteger (iToggle, 10)
EndScript

Script improvedRightArrow ()
  If (iToggle) Then
;    TypeKey ("Shift+RightArrow")
; SayString ("selected ")
;    SayString (GetCharacter ())
        PerformScript SelectNextCharacter()
  Else
    PerformScript SayNextCharacter()
  Endif
EndScript

Script improvedLeftArrow ()
  If (iToggle) Then
;    TypeKey ("Shift+LeftArrow")
    ;SayString ("unselected ")
;   SayString (GetCharacter ())
        PerformScript SelectPriorCharacter()
  Else
    PerformScript SayPriorCharacter()
  Endif
EndScript


David Farough
Application Accessibility Coordinator/coordonateur de l'accessibilité 
Information Technology Services Directorate /
Direction des services d'information technologiques
Public Service Commission / Commission de la fonction publique
Email / Courriel:  David.Farough@xxxxxxxxxxxxx
Tel. / Tél:    (613) 992-2779 

>>> "Martin Slack" <m.g.slack@xxxxxxxxxxxx> 09:22 am Thursday, January
22, 2009 >>>
Hi Rui,

  As I said in my last post, these scripts are not the complete answer
for
your problem, but they may give you a start.

  The lines SayString (GetCharacter ()) and PerformScript 
SayNext/PriorCharacter()
 in the two arrow scripts seem to have no effect at all.

  Martin...

__________ 
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: