Larry Trutter wrote:

> Thank you for your report.  I have transferred your report to Squeak's
> Mantis Database and you can followup on the issue if desired by going to
> http://bugs.impara.de/view.php?id=1062.
>
> In the future please report new issues on Squeak's Mantis Database at
> http://bugs.impara.de/ .
>
> Thanks!
>
>
> Andreas Raab wrote:
>
>> Folks -
>>
>> It has annoyed me for a long time that MultiCharacters are often only 
>> displayed as question marks which makes it very simple to confuse 
>> them with a real question mark. The attached changes fix this so that 
>> e.g., "Character value: 500" is printed as \u1F4. The attached images 
>> illustrate the difference. How the undefined character is displayed 
>> can be changed in Character>>asUndefinedGlyph (so if you prefer to 
>> prefer <Character value: 500> instead you are free to do this ;-)
>>
>> Cheers,
>>   - Andreas
>>
>> ------------------------------------------------------------------------
>>
>> 'From Squeak3.8gamma of ''24 November 2004'' [latest update: #6643] 
>> on 10 April 2005 at 3:34:54 am'!
>> "Change Set:        DisplayUndefined
>> Date:            10 April 2005
>> Author:            Andreas Raab
>>
>> Change the display of undefined characters from a question mark to a 
>> \uXYZ format. E.g., instead of
>>
>>     Character value: 500 -> $?
>>     Character value: 500 -> $\u1F4
>> "!
>>
>>
>> !AbstractFont methodsFor: 'measuring' stamp: 'ar 4/10/2005 03:14'!
>> widthOf: aCharacter     "Answer the width of the argument as a 
>> character in the receiver."
>>     ^self widthOf: aCharacter ifAbsent:[self widthOfString: 
>> aCharacter asUndefinedGlyph].! !
>>
>> !AbstractFont methodsFor: 'measuring' stamp: 'ar 4/10/2005 03:02'!
>> widthOf: aCharacter ifAbsent: aBlock
>>     "Return the width of the given character if defined in the font. 
>>     If absent evaluate aBlock."
>>     ^self subclassResponsibility! !
>>
>>
>> !Character methodsFor: 'printing' stamp: 'ar 4/10/2005 03:00'!
>> asUndefinedGlyph
>>     ^'\u', (value printStringBase: 16)! !
>>
>>
>> !FixedFaceFont methodsFor: 'measuring' stamp: 'ar 4/10/2005 03:03'!
>> widthOf: aCharacter ifAbsent: aBlock
>>     "Characters are always defined in a fixed face font"
>>     ^ baseFont widthOf: substitutionCharacter! !
>>
>>
>> !StrikeFont methodsFor: 'accessing' stamp: 'ar 4/10/2005 03:04'!
>> widthOf: aCharacter ifAbsent: aBlock
>>     "Characters are always defined in a fixed face font"
>>     | code |
>>     code := aCharacter class == Character
>>                 ifTrue: [aCharacter asciiValue]
>>                 ifFalse: [aCharacter charCode].
>>     ((code < minAscii or: [maxAscii < code]) or: [(xTable at: code + 
>> 1) < 0])
>>         ifTrue: [^aBlock value].
>>     ^(xTable at: code + 2) - (xTable at: code + 1)! !
>>
>> !StrikeFont methodsFor: 'displaying' stamp: 'ar 4/10/2005 03:20'!
>> displayMultiString: aString on: aBitBlt from: startIndex to: 
>> stopIndex at: aPoint kern: kernDelta baselineY: baselineY
>>
>>     | destPoint leftX rightX glyphInfo char destY str |
>>     destPoint _ aPoint.
>>     charIndex _ startIndex.
>>     glyphInfo _ Array new: 5.
>>     [charIndex <= stopIndex] whileTrue: [
>>         char _ aString at: charIndex.
>>         (self hasGlyphOf: char) not ifTrue: [
>>             str := char asUndefinedGlyph.
>>             destPoint := self displayString: str on: aBitBlt from: 1 
>> to: str size at: destPoint kern: kernDelta baselineY: baselineY.
>>             charIndex _ charIndex + 1.
>>         ] ifFalse: [
>>             self glyphInfoOf: char into: glyphInfo.
>>             leftX _ glyphInfo second.
>>             rightX _ glyphInfo third.
>>             (glyphInfo fifth ~= aBitBlt lastFont) ifTrue: [
>>                 glyphInfo fifth installOn: aBitBlt.
>>             ].
>>             aBitBlt sourceForm: glyphInfo first.
>>             destY _ baselineY - glyphInfo fourth.             aBitBlt 
>> destX: destPoint x.
>>             aBitBlt destY: destY.
>>             aBitBlt sourceOrigin: leftX @ 0.
>>             aBitBlt width: rightX - leftX.
>>             aBitBlt height: self height.
>>             aBitBlt copyBits.
>>             destPoint _ destPoint + (rightX - leftX + kernDelta @ 0).
>>             charIndex _ charIndex + 1.
>>         ].
>>     ].
>>     ^destPoint.
>> ! !
>>
>>
>> !StrikeFontSet methodsFor: 'accessing' stamp: 'ar 4/10/2005 03:09'!
>> widthOf: aCharacter ifAbsent: aBlock
>>     "Answer the width of the argument as a character in the receiver."
>>     "1: optimizing"
>>     | encoding f |
>>     aCharacter class == Character
>>         ifTrue: [^ (fontArray at: 1) widthOf: aCharacter].
>>     "2: other case"
>>     encoding := aCharacter leadingChar + 1.
>>     f := ((((aCharacter isMemberOf: Character) not
>>                             and: [encoding > 1])
>>                         and: [encoding <= fontArray size])
>>                     and: [(fontArray at: encoding) notNil])
>>                 ifTrue: [fontArray at: encoding]
>>                 ifFalse: [^aBlock value].
>>     ^ f widthOf: aCharacter ifAbsent: aBlock! !
>>
>> !StrikeFontSet methodsFor: 'displaying' stamp: 'ar 4/10/2005 03:27'!
>> displayString: aString on: aBitBlt from: startIndex to: stopIndex at: 
>> aPoint kern: kernDelta baselineY: baselineY
>>
>>     | destPoint leftX rightX glyphInfo g destY ch str |
>>     destPoint _ aPoint.
>>     glyphInfo _ Array new: 5.
>>     startIndex to: stopIndex do: [:charIndex |
>>         ch _ aString at: charIndex.
>>         (self hasGlyphOf: ch) ifTrue:[
>>             self glyphInfoOf: ch into: glyphInfo.
>>             g _ glyphInfo first.
>>             leftX _ glyphInfo second.
>>             rightX _ glyphInfo third.
>>             (glyphInfo fifth ~= aBitBlt lastFont) ifTrue: [
>>                 glyphInfo fifth installOn: aBitBlt.
>>             ].
>>             aBitBlt sourceForm: g.
>>             destY _ baselineY - glyphInfo fourth.             aBitBlt 
>> destX: destPoint x.
>>             aBitBlt destY: destY.
>>             aBitBlt sourceOrigin: leftX @ 0.
>>             aBitBlt width: rightX - leftX.
>>             aBitBlt height: self height.
>>             aBitBlt copyBits.
>>             destPoint _ destPoint + (rightX - leftX + kernDelta @ 0).
>>         ] ifFalse:[
>>             str _ ch asUndefinedGlyph.
>>             destPoint _ self displayString: str on: aBitBlt from: 1 
>> to: str size at: destPoint kern: kernDelta baselineY: baselineY.
>>         ].
>>     ].
>>     ^ destPoint.
>>
>> ! !
>>
>> !StrikeFontSet methodsFor: 'private' stamp: 'ar 4/10/2005 03:26'!
>> hasGlyphOf: aCharacter
>>
>>     | index f code leftX |
>>     index _ aCharacter leadingChar + 1.
>>     fontArray size < index ifTrue: [^false].
>>     (f _ fontArray at: index) ifNil: [^false].
>>
>>     code _ aCharacter charCode.
>>     ((code between: f minAscii and: f maxAscii) not) ifTrue: [^false].
>>     leftX _ f xTable at: code + 1.
>>     leftX < 0 ifTrue: [^ false].
>>     ^true! !
>>
>>
>> !TTCFont methodsFor: 'friend' stamp: 'ar 4/10/2005 03:28'!
>> displayString: aString on: aBitBlt from: startIndex to: stopIndex at: 
>> aPoint kern: kernDelta baselineY: baselineY
>>
>>     | destPoint form glyphInfo destY ch str |
>>     destPoint _ aPoint.
>>     glyphInfo _ Array new: 5.
>>     startIndex to: stopIndex do: [:charIndex |
>>         ch _ aString at: charIndex.
>>         (self hasGlyphOf: ch) ifTrue:[
>>             self glyphInfoOf: ch into: glyphInfo.
>>             form _ glyphInfo first.
>>             (glyphInfo fifth ~= aBitBlt lastFont) ifTrue: [
>>                 glyphInfo fifth installOn: aBitBlt.
>>             ].
>>             destY _ baselineY - glyphInfo fourth.             aBitBlt 
>> sourceForm: form.
>>             aBitBlt destX: destPoint x.
>>             aBitBlt destY: destY.
>>             aBitBlt sourceOrigin: (glyphInfo second) @ 0.
>>             aBitBlt width: glyphInfo third - glyphInfo second.
>>             aBitBlt height: form height.
>>             aBitBlt copyBits.
>>             destPoint _ destPoint + ((glyphInfo third - glyphInfo 
>> second) + kernDelta @ 0).
>>         ] ifFalse:[
>>             str _ ch asUndefinedGlyph.
>>             destPoint _ self displayString: str on: aBitBlt from: 1 
>> to: str size at: destPoint kern: kernDelta baselineY: baselineY.
>>         ].
>>     ].
>>     ^ destPoint.
>> ! !
>>
>> !TTCFont methodsFor: 'public' stamp: 'ar 4/10/2005 03:11'!
>> widthOf: aCharacter ifAbsent: aBlock
>>
>>     "This method cannot use #formOf: because formOf: discriminates 
>> the color and causes unnecessary bitmap creation."
>>
>>     | f assoc |
>>     aCharacter charCode > 255 ifTrue: [^aBlock value].
>>     assoc _ self cache at: (aCharacter charCode + 1).
>>     assoc ifNotNil: [
>>         ^ assoc value width
>>     ].
>>
>>     f _ self computeForm: aCharacter.
>>     self at: aCharacter charCode put: f.
>>     ^ f width.
>> ! !
>>
>>
>> !MultiTTCFont methodsFor: 'as yet unclassified' stamp: 'ar 4/10/2005 
>> 03:13'!
>> widthOf: aCharacter ifAbsent: aBlock
>>     "ar 4/10/2005: This is odd - it looks like this assumes that all 
>> MultiTTCFonts define glyphs for all characters (which is rather 
>> unlikely...)"
>>     "This method cannot use #formOf: because formOf: discriminates 
>> the color and causes unnecessary bitmap creation."
>>
>>     | newForm |
>>     self hasCached: aCharacter ifTrue: [:form :index |
>>         self access: aCharacter at: index.
>>         ^ form width.
>>     ].
>>
>>     newForm _ self computeForm: aCharacter.
>>     self at: aCharacter put: newForm.
>>     ^ newForm width.
>>
>> ! !
>>
>>
>> !TTCFontSet methodsFor: 'as yet unclassified' stamp: 'ar 4/10/2005 
>> 03:30'!
>> displayString: aString on: aBitBlt from: startIndex to: stopIndex at: 
>> aPoint kern: kernDelta baselineY: baselineY
>>
>>     | destPoint font form encoding glyphInfo char charCode destY str |
>>     destPoint _ aPoint.
>>     glyphInfo _ Array new: 5.
>>     startIndex to: stopIndex do: [:charIndex |
>>         char _ aString at: charIndex.
>>         encoding _ char leadingChar + 1.
>>         charCode _ char charCode.
>>         font _ fontArray at: encoding.
>>         ((charCode between: font minAscii and: font maxAscii) not) 
>>             ifTrue: [charCode _ nil].
>>         charCode ifNil:[
>>             str _ char asUndefinedGlyph.
>>             destPoint _ self displayString: str on: aBitBlt from: 1 
>> to: str size at: destPoint kern: kernDelta baselineY: baselineY.
>>         ] ifNotNil:[
>>             self glyphInfoOf: char into: glyphInfo.
>>             form _ glyphInfo first.
>>             (glyphInfo fifth ~= aBitBlt lastFont) ifTrue: [
>>                 glyphInfo fifth installOn: aBitBlt.
>>             ].
>>             destY _ baselineY - glyphInfo fourth.             aBitBlt 
>> sourceForm: form.
>>             aBitBlt destX: destPoint x.
>>             aBitBlt destY: destY.
>>             aBitBlt sourceOrigin: 0 @ 0.
>>             aBitBlt width: form width.
>>             aBitBlt height: form height.
>>             aBitBlt copyBits.
>>             destPoint _ destPoint + (form width + kernDelta @ 0).
>>         ].
>>     ].
>>     ^ destPoint.
>> ! !
>>
>> !TTCFontSet methodsFor: 'as yet unclassified' stamp: 'ar 4/10/2005 
>> 03:14'!
>> widthOf: aCharacter ifAbsent: aBlock
>>
>>     | encoding |
>>     encoding _ aCharacter leadingChar.
>>     ^ (fontArray at: encoding + 1) widthOf: aCharacter ifAbsent: 
>> aBlock! !
>>
>> TTCFontSet removeSelector: #widthOf:!
>> MultiTTCFont removeSelector: #widthOf:!
>> TTCFont removeSelector: #widthOf:!
>> StrikeFontSet removeSelector: #widthOf:!
>> StrikeFont removeSelector: #widthOf:!
>> FixedFaceFont removeSelector: #widthOf:!
>>  
>>
>>
>> ------------------------------------------------------------------------
>>
>>
>> ------------------------------------------------------------------------
>>
>> ------------------------------------------------------------------------
>>
>>
>>  
>>
>
>
>