Forgive me for posting this in both the JFW Scripts list and the JFW User's
list, but someone asked if I could send a step-by-step on my earlier posting
of a script that will let you adjust the punctuation just like you can with
the verbosity settings; if you're reading a message or document, and you
want punctuation set to All for proofing, and you have it set to None by
default, then this will do the trick!
Note: So far, this will only work in JFW3.3beta, since the 3.2 constant
file doesn't show an option for Punctuation.
Here is how to add this to your JFW3.3 default script file:
1) Hit Control+Shift+0 to launch the Script Manager with the default.jss
file loaded.
2) Hit Control+S to compile the file. This is a good habit to get
into--compiling before you make any changes, making sure there isn't some
other script that might keep you from compiling when you add your script!
3) If all compiled OK, hit Control+End to get to the end of the file, then
hit Enter a couple of times to give yourself space to work with.
4) Either cut and paste, or type in the following script lines:
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
5) While highlighting one of those script lines, hit Control+D to enter the
Script's Properties.
6) Tab to Synopsis and Description and fill in the purpose of the script.
Tab to Category and arrow down to "Option", then Tab to the AssignTo" field.
Hold down the Insert key and hit the letter "P".
6) Select "OK" and hit Control+S to compile the script file.
7) If it compiled Ok, hit Alt+F4 to exit the Script Manager.
Now, when you hit Insert+P, it will change the punctuation for that
particular application, but only temporarily. If it isn't working after a
successful compilation, unload JFW and run it again.
Some more stuff...
If you aren't interested in the details of this script, just move to the new
message now and skip this part!<grin>
Script ChangePunctuation () ;Script name.
var ; Start of variable declaration section.
int Level ; Declare a single integer variable named Level.
let Level=GetJcfOption(opt_punctuation)+1
;The line above uses the value of the current punctuation level, which was
retrieved with the GetJcfOption(opt_punctuation) function, and adds 1 to it,
then assigns it to the integer variable named "Level".
It now will set the new level with the SetJcfOption function.
SetJcfOption(opt_punctuation,Level)
The next step is to check to see if the new value is higher than the highest
level punctuation can be set to. If so, set it to the level of "0". (Note:
the punctuation levels are 0=None, 1=Some, 2=Most, and 3=All.)
If(GetJcfOption(opt_punctuation) > 3) Then
SetJcfOption(opt_punctuation,0)
EndIf
Ok, now that it is set to a new level, lets announce the appropriate level,
according to the value above.
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
That is all there is to it!
Hope this helps!
Thanks,
Dennis Brown, [EMAIL PROTECTED]
Visit the BlindProgramming web site at
http://brown99.home.mindspring.com
-
Visit the jfw ml web page: http://jfw.cjb.net
