Here is a little routine to change punctuation on the fly in JFW3.3. It
doesn't change your default value. Pretty handy for those times you need
some extra punctuation and don't want to go through the Insert+6 path!
Script PunctuationToggle ()
var
int Current,
int New
let Current=GetJcfOption(opt_punctuation)
let New=Current+1
If(New > 3) Then
let New=0
EndIf
SetJcfOption(opt_punctuation,New)
If(New == 0) Then
SayString("None")
ElIf(New == 1) Then
SayString("Some")
ElIf(New == 2) Then
SayString("Most")
ElIf(New == 3) Then
SayString("All")
EndIf
EndScript
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
