For those of you who may wish to use the left arrow:

| f2 |
f2 := Form extent: 10 at 11 depth: 1.
f2 fillColor: Color white.
f2 getCanvas line: 1 at 5 to: 8 at 5 width: 1 color: Color black.
1 to: 2 do: [ : i |
       f2 getCanvas fillRectangle: ( (1 at 5) + (i at i) extent: 1 at 1) color: Color
black.
       f2 getCanvas fillRectangle: ( (1 at 5) + (i at i negated) extent: 1 at 1)
color: Color black.
].
StrikeFont allInstances do: [ :each |
       (each name beginsWith: 'Accuny') ifTrue: [
               each characterFormAt: $_ put: f2
       ]
]. "Courtesy of Bob Arning"

Of course you lose your underscore character in the process! ---jski
-- 
View this message in context: http://www.nabble.com/Using-the-left-arrow-for-assignment-tp22873537p22873537.html
Sent from the Squeak - Dev mailing list archive at Nabble.com.