[jawsscripts] Re: switch to configuration
- From: "Jackie McBride" <abletec@xxxxxxxxx>
- To: jawsscripts@xxxxxxxxxxxxx
- Date: Wed, 26 Nov 2008 19:55:13 -0700
My first question is--what are configurations 1-8?
Here is the help for switchToConfiguration:
int SwitchToConfiguration(string strConfiguration)
Category: Settings
Return Type: int
Return Description: TRUE if the argument passed in is a valid string
(not ""). FALSE if an invalid string is passed into the function.
string strConfiguration
The base name of the set of Configuration files to load. Calling this
function with "MyConfigurations" for example, would load the
Configuration, Keymap, Script, Dictionary, Graphics, Symbols, and
Frame files that have base name "MyConfiguration."
Description: When this function is called, the currently loaded set
of configuration files is unloaded from memory and the specified set
of configuration files is loaded in its place.
So, if u don't have scripts & configurations & keymaps & dictionaries
etc. named 1, 2, 3, etc., nothing is gonna load.
I think I'd do this a bit differently, e.g.,
1) add a string called SConfig or whatever to the declared variables list;
2) write something like:
if (dictionary == 1) then
let SConfig = "dictionary1"
etc.
endif
SwitchToConfiguration(SConfig)
The kicker is each of those files has to be present & accounted for.
On 11/26/08, Reed Poynter <Reed.Poynter@xxxxxxxxx> wrote:
> Hi Nicol,
>
> Try this...
>
> Script SwitchToDictionary ()
>
> var
> String menu,
> Int dictionary
>
> Let menu = "1|2|3|4|5|6|7|8"
> Let dictionary = DlgSelectItemInList (menu, "please select a dictionary to
> switch to", 0, 1)
>
> If dictionary == 1Then
> SwitchToConfiguration ("Adobe")
>
> ElIf dictionary == 2 then
> SwitchToConfiguration ("AudibleManager")
>
> ElIf dictionary == 3 Then
> SwitchToConfiguration ("HyperTerminal")
>
> ElIf dictionary == 4 Then
> SwitchToConfiguration ("IECustomSettings")
>
> ElIf dictionary == 5 Then
> SwitchToConfiguration ("Internet Explorer")
>
> ElIf dictionary == 6 then
> SwitchToConfiguration ("LogonUI")
>
> ElIf dictionary == 7 then
> SwitchToConfiguration ("Lotus Notes")
>
> ElIf dictionary == 8 Then
> SwitchToConfiguration ("default")
> EndIf
>
> Say (GetActiveConfiguration ()+" configuration", 0, 0)
>
> EndScript
>
> Your SwitchToConfiguration has to include the name of your configuration
> Notice the "say" statement just before the endscript.
>
> Assign this script to a key, compile and try it.
> After you have done this, see if you can assign a comment to each of your
> menu choices. So, for example, when you go down through the menu you will
> hear, 1. Adobe 2. AudibleManager 3. HyperTerminal And so on.
>
> Hope this works.
>
> Reed
>
> -----Original Message-----
> From: jawsscripts-bounce@xxxxxxxxxxxxx
> [mailto:jawsscripts-bounce@xxxxxxxxxxxxx] On Behalf Of Nicol Oosthuizen
> Sent: 2008/11/26 01:24
> To: jawsscripts@xxxxxxxxxxxxx
> Subject: [jawsscripts] switch to configuration
>
>
> Hi all
> I'm battling with a script.
>
> I want to create a menu so that I can choose an option from the menu and
> jaws must switch to the base configuration I have selected. The script
> compiles fine without any errors but when I choose a number from the menu
> jaws does not switch to that configuration. If I press the assigned
> keystroke it pops up the menu I have created and I can move between options
> fine, but when I press enter on an option it does nothing. It doesn't
> switch to that base configuration.
>
> Please can someone have a look at my script.
>
> Script SwitchToDictionary ()
>
> var
>
> String menu,
>
> Int dictionary
>
> Let menu = "1|2|3|4|5|6|7|8"
>
> Let dictionary = DlgSelectItemInList (menu, "please select a dictionary to
> switch to", 0, 1)
>
> If dictionary == 1Then
>
> SwitchToConfiguration ("1")
>
> ElIf dictionary == 2 then
>
> SwitchToConfiguration ("2")
>
> ElIf dictionary == 3 Then
>
> SwitchToConfiguration ("3")
>
> ElIf dictionary == 4 Then
>
> SwitchToConfiguration ("4")
>
> ElIf dictionary == 5 Then
>
> SwitchToConfiguration ("5")
>
> ElIf dictionary == 6 then
>
> SwitchToConfiguration ("6")
>
> ElIf dictionary == 7 then
>
> SwitchToConfiguration ("7")
>
> ElIf dictionary == 8 Then
>
> SwitchToConfiguration ("8")
>
> EndIf
>
>
>
> EndScript
>
>
> Please Note: This email and its contents are subject to our email legal
> notice which can be viewed at http://www.sars.gov.za/Email_Disclaimer.pdf
>
> __________
> Visit and contribute to The JAWS Script Repository http://jawsscripts.com
>
> View the list's information and change your settings at
> //www.freelists.org/list/jawsscripts
>
>
>
> __________
> Visit and contribute to The JAWS Script Repository http://jawsscripts.com
>
> View the list's information and change your settings at
> //www.freelists.org/list/jawsscripts
>
>
--
Change the world--1 deed at a time
Jackie McBride
Check out my homepage at:
www.abletec.serverheaven.net
& please join my fight against breast cancer
<http://teamacs.acsevents.org/site/TR?px=1790196&pg=personal&fr_id=3489>
__________
Visit and contribute to The JAWS Script Repository http://jawsscripts.com
View the list's information and change your settings at
//www.freelists.org/list/jawsscripts
Other related posts:
