Since it is in such high demand, here is that ChangePunctuation script.
Keep in mind that I've only tested this under JFW3.3, I don't know if 3.2
has a OPT_PUNCTUATION option.

1)  Hit Control+Shift+0 to launch the Script Manager with the default script
file loaded.
2)  Hit Control+End to get to the bottom of the file, then hit the Enter key
to put distance between the previous script and this new script.
3)  Type in, or cut and paste, the following script:

Script ChangePunctuation ()
var
int Level
let Level=GetJcfOption(opt_punctuation)+1
SetJcfOption(opt_punctuation,Level)
If(GetJcfOption(opt_punctuation) > 3) Then
SetJcfOption(opt_punctuation,0)
EndIf
if GetJcfOption(opt_punctuation) == 0 then
 SayString("None")
Elif GetJcfOption(opt_punctuation) == 1 then
 SayString("Some")
Elif GetJcfOption(opt_punctuation) == 2 then
  SayString("Most")
Elif GetJcfOption(opt_punctuation) == 3 then
 SayString("All")
endif
EndScript

4)  While in this script, hit Control+D to get to the properties dialog.
Give the script a Synopsis and Description, then tab down to the AssignTo
field and hit Insert+P.
Hit Ok and then when back in the Script editor, hit Control+S to compile the
file with the new script.
You may need to restart JFW before the script will work.

What it does:
This script creates a variable named "Level"; uses the GetJcfOption function
to get the current punctuation setting and assigns it to the variable named
Level.
It then uses the SetJcfOption function to set the new setting to whatever
the current level is, plus 1.
It then checks the new level it just set, and if it is greater than the
setting of "3", it sets the setting to "0".  (Note: the punctuation settings
are 0=None, 1=Some, 2=Most, and 3=All.)
Now, it runs the new punctuation level through a series of If/ElIf
statements to voice the current setting.

Hope this helps!

Thanks,
Dennis Brown, [EMAIL PROTECTED]
Visit the BlindProgramming  web site at
http://brown99.home.mindspring.com

p

-----Original Message-----
From: GroovePapa <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Date: Wednesday, April 21, 1999 8:41 AM
Subject: Re: Punctuation Rotor in 3.3


>You mean to tell me there's a script that actually allows you to change the
>punctuation level on the fly? Thank you God! Where can I get my hands on a
>copy of this script?
>
>At 11:46 AM 4/20/99 -0400, you wrote:
>>Hello Listers,
>>
>>Now that support has finally been added to JFW for a script that rotors
>>through punctuation levels, and Dennis Brown has written such a script, I
>>think we should all write to [EMAIL PROTECTED] and lobby for this script
>>to be added to JFW 3.3.  Actually, I have already done so, and I hope you
>>will all do likewise.  Being able to change punctuation on the fly is a
>>feature that has been needed in JFW for a long time.
>>
>>Gary, [EMAIL PROTECTED]
>>
>>
>>-
>>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

Reply via email to