Ned:

A post of yours just about the same time as my original post gave me the clue. The result is:

f1 := TextStyle default fontAt: 1.
form1 := f1 characterFormAt: $_.
form1 bitEdit
"Change to underline; accept with menu"

f2 := TextStyle default fontAt: 2.
form2 := f2 characterFormAt: $_.
form2 bitEdit
"Change to underline; accept with menu"

f1 := TextStyle default fontAt: 1.
f1 characterFormAt:$_ put: form1.
f2 := TextStyle default fontAt: 2.
f2 characterFormAt:$_ put: form2.

These are run in a workspace as three separate DoIts.  They change 10 &12 (sometimes called 12&15). Run the first and use the bit editor to change the bits in the character. Then use the red halo menu Accept item to save the bits back to the form. Same for the second.

Then run the third Doit to put them into the font. Restore the screen to update any visible underscores.

Thanks for the pointers.

Dave


At 17:43 -0700 9/7/01, Ned Konz wrote:
>On Friday 07 September 2001 05:01 pm, David N. Smith (IBM) wrote:
>
>> Anyhow, does anyone have NewYork in its original form? or an easy way to
>> restore the underscores? or other magic?
>
>There are unencumbered fonts converted from the X11 BDF fonts in a change
>set, with their underscores still intact at:
>http://groups.yahoo.com/group/squeak/message/10483
>
>Perhaps you could use one of these?
>
>Also, look at EToySystem class>>fixComicCharacters for a font editing
>example. Also StrikeFont>>characterFormAt:put: and
>StrikeFont>>characterForm:pixelValueAt:put: could be used for this.
>
>--
>Ned Konz
>currently: Stanwood, WA
>email:     ned at bike-nomad.com
>homepage:  http://bike-nomad.com


-- 
_______________________________
David N. Smith
IBM T J Watson Research Center
Hawthorne, NY
dnsmith at watson.ibm.com