--- a/Font.st Sun Jun 04 18:38:31 1995 +0200
+++ b/Font.st Tue Jun 06 06:09:07 1995 +0200
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libview/Font.st,v 1.20 1995-05-19 13:41:39 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.21 1995-06-06 04:06:37 claus Exp $
'!
!Font class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
version
"
-$Header: /cvs/stx/stx/libview/Font.st,v 1.20 1995-05-19 13:41:39 claus Exp $
+$Header: /cvs/stx/stx/libview/Font.st,v 1.21 1995-06-06 04:06:37 claus Exp $
"
!
@@ -319,10 +319,10 @@
encoding:encoding.
].
id notNil ifTrue:[
- ('replaced ' , family , '- with ' , alternative , '-font') errorPrintNL.
+ ('replaced ' , family , '- with ' , alternative , '-font') infoPrintNL.
] ifFalse:[
id := aDevice getDefaultFont.
- ('replaced ' , family , '- with default-font') errorPrintNL.
+ ('replaced ' , family , '- with default-font') infoPrintNL.
].
id isNil ifTrue:[
"oops did not work - this is a serious an error"
@@ -572,8 +572,8 @@
and therefore use the replacementFont"
replacementFont isNil ifTrue:[
- 'FONT: oops should not happen' errorPrintNL.
- ^ self
+ 'FONT: oops should not happen' errorPrintNL.
+ ^ self
].
aGC font:replacementFont.
aGC displayString:aString from:index1 to:index2 x:x y:y