Mercurial Mercurial > hg > stx-libview / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Font.st
changeset 1176 e0e2c8cbb3c8
parent 1166 a3bd26b25dc3
child 1224 2a2270ec4236 
--- a/Font.st	Fri Jan 10 18:59:11 1997 +0100
+++ b/Font.st	Fri Jan 10 19:00:38 1997 +0100
@@ -329,7 +329,7 @@
     |prevFont|
 
     replacementFont isNil ifTrue:[
-        'FONT: oops - no replacementFont. should not happen' errorPrintNL.
+        'Font: [warning]: no replacementFont. should not happen' errorPrintCR.
         ^ self
     ].
     prevFont := aGC font.
@@ -337,7 +337,7 @@
     aGC displayOpaqueString:aString from:index1 to:index2 x:x y:y.
     aGC basicFont:prevFont
 
-    "Modified: 23.2.1996 / 17:16:24 / cg"
+    "Modified: 10.1.1997 / 17:51:10 / cg"
 !
 
 displayOpaqueString:aString x:x y:y in:aGC
@@ -348,7 +348,7 @@
     |prevFont|
 
     replacementFont isNil ifTrue:[
-        'FONT: oops - no replacementFont. should not happen' errorPrintNL.
+        'Font: [warning]: no replacementFont. should not happen' errorPrintCR.
         ^ self
     ].
     prevFont := aGC font.
@@ -356,7 +356,7 @@
     aGC displayOpaqueString:aString x:x y:y.
     aGC basicFont:prevFont.
 
-    "Modified: 23.2.1996 / 17:16:29 / cg"
+    "Modified: 10.1.1997 / 17:51:14 / cg"
 !
 
 displayString:aString from:index1 to:index2 x:x y:y in:aGC
@@ -367,7 +367,7 @@
     |prevFont|
 
     replacementFont isNil ifTrue:[
-        'FONT: oops - no replacementFont. should not happen' errorPrintNL.
+        'Font: [warning]: no replacementFont. should not happen' errorPrintCR.
         ^ self
     ].
     prevFont := aGC font.
@@ -375,7 +375,7 @@
     aGC displayString:aString from:index1 to:index2 x:x y:y.
     aGC basicFont:prevFont.
 
-    "Modified: 23.2.1996 / 17:16:33 / cg"
+    "Modified: 10.1.1997 / 17:51:17 / cg"
 !
 
 displayString:aString x:x y:y in:aGC
@@ -386,7 +386,7 @@
     |prevFont|
 
     replacementFont isNil ifTrue:[
-        'FONT: oops - no replacementFont. should not happen' errorPrintNL.
+        'Font: [warning]: no replacementFont. should not happen' errorPrintCR.
         ^ self
     ].
     prevFont := aGC font.
@@ -394,7 +394,7 @@
     aGC displayString:aString x:x y:y.
     aGC basicFont:prevFont.
 
-    "Modified: 23.2.1996 / 17:16:37 / cg"
+    "Modified: 10.1.1997 / 17:51:22 / cg"
 ! !
 
 !Font methodsFor:'getting a device font'!
@@ -1112,6 +1112,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.54 1997-01-10 15:06:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.55 1997-01-10 18:00:38 cg Exp $'
 ! !
 Font initialize!
hg/stx-libview