Hi dennis,
As usual, Dennis, a sensational script.
I have added a couple of synths that I have on my pc with only one problem, the
flextalk synth will not switch over. I can do it manually from the JFW change
synthersizer menu so I know it works. All the other synths work fine. Any
thoughts? I have listed your script with my changes below.
; Changes synthesizers on the fly.
; 08/10/99 Dennis Brown [EMAIL PROTECTED]
Script ChangeSynthesizer ()
var string SynthesizerList, ;create a variable for menu contents.
int index ; menu indexer variable.
; Create the menu by assigning the synthesizers to the menu variable
let SynthesizerList="|Doubletalk PC Internal" +
"|Eloquence Software" +
"|DecTalk Access 32 Software" +
"|FlexTalk Software" +
"|Keynote Multi Media Software" +
"|MS Speech Sofware" +
"|No Speech"
let index=DlgSelectItemInList(SynthesizerList,"Synthesizer Menu", TRUE)
IF index == 1 Then ; if the DoubleTalk selected,
Say("Switching to the DoubleTalk...",ot_string) ; announce the switch,
SetSynth("dubltalk") ; and make the switch.
ElIf index == 2 Then ; if Eloquence selected,
Say("Switching to Eloquence...",ot_string) ; announce the switch,
SetSynth("eloq") ; and make the switch.
ElIf index == 3 Then ; if Access32 selected,
Say("Switching to Dec Access32...",ot_string) ; announce the switch,
SetSynth("dtsoft") ; and make the switch.
ElIf index ==4 Then ; if Flextalk selected,
Say("Switching to Flextalk...",ot_string) ; announce the switch,
SetSynth("mssapi") ; and make the switch.
ElIf index ==5 Then ; if Keynote Multi Media selected,
Say("Switching to Keynote Multi Media...",ot_string) ; announce the switch,
SetSynth("kngmm") ; and make the switch.
ElIf index ==6 Then ; if MS Speech selected,
Say("Switching to MS Speech...",ot_string) ; announce the switch,
SetSynth("MSSpeech") ; and make the switch.
ElIf index ==7 Then ; if selected,
; Say("Switching to No Speech...",ot_string) ; announce the switch,
SetSynth("nospeech") ; and make the switch.
EndIf
EndScript
Many thanks,
Jim Pipczak - VisTech
An RVIB Equipment Service
We can help you look into the future
201 High Street, Prahran Vic. 3181 Australia
Phone: 03 9520 5555 Fax: 03 9525 2065
Free Call: 1800 458 555
EMail: [EMAIL PROTECTED]
At 18:14 10/08/99 -0700, you wrote:
>Hello Robert,
>
>Here is one means of doing that. You can add your own additions to the
>list, or replace what is already there, but make sure you have the
>"SynthAlias" correctly spelled before selecting that particular synthesizer
>from the list.
>You can get the "SynthName" of the installed synthesizer from the
>C:\JFW33\JFW.INI file.
>If this is helpful, I can write one that has all the synthesizers JFW
>supports--provided I can track down all the available SynthName= parameters.
>I only use two synthesizers at present, but I found the name of the Access32
>synthesizer when writing another ScriptTip, so I threw it in here as well.
>Take note that this only changes it during the current JAWS session, so when
>you reload JAWS, or restart your system, it'll go back to the default
>synthesizer. I'll see if I can track down the info on setting the selection
>as the default synthesizer.
>
>If it would be useful, I could put this into one of the ScriptTip messages,
>which gives step-by-step instructions on creating this script, but in the
>meantime...
>
>1) Hit Control+Shift+0 to launch the Script Manager.
>2) Hit Control+End to reach the bottom of the file.
>3) Type in, or cut and paste, the following script--changing the
>synthesizer info to reflect your own installed synthesizers:
>
>; Changes synthesizers on the fly.
>; 08/10/99 Dennis Brown [EMAIL PROTECTED]
>script ChangeSynthesizer()
>var string SynthesizerList, ;create a variable for menu contents.
>int index ; menu indexer variable.
>; Create the menu by assigning the synthesizers to the menu variable
>let SynthesizerList="|Doubletalk PC Internal" +
>"|Eloquence Software" +
>"|DecTalk Access 32 Software"
>let index=DlgSelectItemInList(SynthesizerList,"Synthesizer Menu", TRUE)
>IF index == 1 Then ; if the DoubleTalk selected,
>Say("Switching to the DoubleTalk...",ot_string) ; announce the switch,
>SetSynth("dubltalk") ; and make the switch.
>ElIf index == 2 Then ; if Eloquence selected,
>Say("Switching to Eloquence...",ot_string) ; announce the switch,
>SetSynth("eloq") ; and make the switch.
>ElIf index == 3 Then ; if Access32 selected,
>Say("Switching to Dec Access32...",ot_string) ; announce the switch,
>SetSynth("dtsoft") ; and make the switch.
>EndIf
>EndScript
>
>
>4) While on a line in this script, hit Control+D to edit it's Properties.
>5) Enter the script's name, (if not already there), and tab through the
>dialog, making sure "Can be assigned to keystroke..." option is checked.
>6) Assign the menu a hotkey, (such as Control+Alt+S), and select Ok.
>6) Back in the Script editor, hit Control+S to compile this new addition.
>
>Hit Alt+F4 to exit the Script Manager and cycle JAWS in and out of memory.
>
>Give it a try and give us some feedback, suggestions, gripes, remarks,
>comments, etc.
>
>
>Hope this helps!
>Thanks,
>Dennis Brown, [EMAIL PROTECTED]
>
>
>
>----- Original Message -----
>From: Robert McNab <[EMAIL PROTECTED]>
>To: <[EMAIL PROTECTED]>
>Sent: Tuesday, August 10, 1999 8:39 PM
>Subject: Changing Synthesisers
>
>
>> Hi there, I was wondering if anyone out there has any idea of how to write
>a
>> Jaws script that will pop up a list box and allow you to change to another
>> synthesiser, rather than going through the Jaws language menu.
>>
>> Yours hopefully
>>
>> Bobby
>>
>>
>> -
>> Visit the jfw ml web page: http://jfw.cjb.net
>
>-
>Visit the jfw ml web page: http://jfw.cjb.net
-
Visit the jfw ml web page: http://jfw.cjb.net
