If this script turns out to be usable with various versions of jaws then I
will probably post it up on the web site.
David Ferrin
www.jaws-users.com
----- Original Message -----
From: "Matthew Shaw" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Sunday, December 02, 2007 11:55 PM
Subject: [JAWS-Users] help balloon script
Hello list. Here are instructions for installing and getting the help
balloon script to work. this script will make it possible to click help
balloons wit one keystroke in versions of jaws prior to jaws nine.
Everything below the stars is the script itself. First, select the entire
script text and copy it to the clipboard. Then, hit insert f2 and bring up
script manager.Once script manager opens, press control shift d to bring up
the default script file. Then move to the bottom of it with control end.
then,hit enter once or twice to make sure your on a blank line,,and paste
the contents of the script. Then move into the body of the script and hit
control d. Once you do, a script information dialogue box will appear. Tab
through it and fill in the various fields, leaving the script name box
intact. You can fill in the synopsis and description fields if you wish.
Make sure the can be attached to key checkbox is checked. You can use any
keystroke you wish that won't conflict
with another keystroke. I used control shift l myself. Then click ok and
hit control s to recompile the default script file, and use alt f4 to close
the dialogue. After that, when a help balloon appears, you should be able to
use the keystroke you assigned to click it. If anyone needs any further
help, feel free to let me know, either on list or privately. The scrip
follows. Hope this was helpful.
******************
Script clickhelpballoon ()
Var
String SClass, ; The name of the window class.
String SName, ; The name of the window.
Handle HWND ; The handle of the current window.
Let SClass = GetWindowClass (GetFirstWindow (FindTopLevelWindow
("Shell_TrayWnd", "")))
Let SName = GetWindowName (GetFirstWindow (FindTopLevelWindow
("Shell_TrayWnd", "")))
Let HWND = GetFocus ()
GetFocus ()
If SClass == "tooltips_class32"
& SName != "" then ; Click the balloon.
SayFormattedMessage (OT_NO_Disable, "Clicked help balloon.", "Clicked.")
SetFocus (GetFirstWindow (FindTopLevelWindow ("Shell_TrayWnd", "")))
SaveCursor ()
RouteJAWSToPc ()
RoutePcToJAWS ()
{LeftMouseButton}
SetFocus (HWND) ; Return the focus to its previous window.
Else
if SClass != "tooltips_class32"
|| SName == "" then ; State that a help balloon wasn't found.
SayFormattedMessage (OT_No_Disable, "Help balloon not found.", "Not found.")
EndIf
EndIf
EndScript
---------------------------------
Never miss a thing. Make Yahoo your homepage.
Visit the JAWS Users List home page at:
http://www.jaws-users.com
Address for the list archives:
http://www.mail-archive.com/[email protected]
To post to this group, send email to
[email protected]
To unsubscribe from this group, send an email to
[EMAIL PROTECTED]
For help from Mailman with your account Put the word help in the subject or
body of a blank message to:
[EMAIL PROTECTED]
Use the following form in order to contact the management team
http://www.jaws-users.com/managers.php
If you wish to join the Blind Computing list send a blank email to the
following address:
[EMAIL PROTECTED]
Visit the JAWS Users List home page at:
http://www.jaws-users.com
Address for the list archives:
http://www.mail-archive.com/[email protected]
To post to this group, send email to
[email protected]
To unsubscribe from this group, send an email to
[EMAIL PROTECTED]
For help from Mailman with your account Put the word help in the subject or
body of a blank message to:
[EMAIL PROTECTED]
Use the following form in order to contact the management team
http://www.jaws-users.com/managers.php
If you wish to join the Blind Computing list send a blank email to the
following address:
[EMAIL PROTECTED]
