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
|