Newbie looking for better fonts

Bob Arning arning at charm.net
Fri Nov 24 15:07:06 UTC 2000


On Fri, 24 Nov 2000 15:08:14 +0100 Jon Kleiser <jon.kleiser at usit.uio.no> wrote:
>I downloaded the attachment 
><http://attach5.egroups.com/attach/1027017/10483/gs-102=70=1027017/10- 
>1-10-171/application=octet-stream/BDFFontSets-nop.1.cs>
>
>.... and put it into my Squeak folder. However, when I did this:
>
>    (FileStream oldFileNamed: 'BDFFontSets-nop.1.cs') fileIn
>
>.... I ended up with a "MessageNotUnderstood: adaptToNumber:andSend:" ...

Jon,

If you first file-in the enclosed changes, you can then file-in the fonts successfully.

Cheers,
Bob

=====code follows=====
'From Squeak2.8 of 13 June 2000 [latest update: #2360] on 24 November 2000 at 10:04:33 am'!
"Change Set:		fonts2
Date:			24 November 2000
Author:			Bob Arning

- two changes to enable installing the fonts in 'BDFFontSets-nop.1.cs'"!


!FontSet class methodsFor: 'private' stamp: 'RAA 11/24/2000 10:00'!
fontName

	(self name beginsWith: superclass name) ifFalse: [^self name].
	^ (self name copyFrom: superclass name size + 1 to: self name size) asSymbol! !

!FontSet class methodsFor: 'installing' stamp: 'RAA 11/24/2000 09:53'!
size: pointSize fromLiteral: aString
	"This method allows a font set to be captured as sourcecode in a subclass.
	The string literals will presumably be created by printing, eg,
		(FileStream readOnlyFileNamed: 'Palatino24.sf2') contentsOfEntireFile,
		and then pasting into a browser after a heading like, eg,
size24
	^ self size: 24 fromLiteral:
	'--unreadable binary data--'

	See the method installAsTextStyle to see how this can be used."
	"This method is old and for backward compatibility only.
	please use fontNamed:fromLiteral: instead."

	^ StrikeFont new 
		name: self fontName , (pointSize < 10
			ifTrue: ['0' , pointSize printString]
			ifFalse: [pointSize printString]);
		readFromStrike2Stream: (RWBinaryOrTextStream with: aString) reset binary! !





More information about the Squeak-dev mailing list