--- a/Font.st	Fri Jul 26 16:25:20 2013 +0200
+++ b/Font.st	Fri Jul 26 16:30:57 2013 +0200
@@ -1229,6 +1229,14 @@
     ^ pixelSize ? self height
 ! !
 
+!Font methodsFor:'testing'!
+
+isAlienFont
+    "answer true, if this is an alien font which does not have a device representation"
+
+    ^ false
+! !
+
 !Font::DeviceFontHandle class methodsFor:'documentation'!
 
 documentation
@@ -1276,11 +1284,11 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.131 2013-06-05 14:36:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.132 2013-07-26 14:30:57 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.131 2013-06-05 14:36:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.132 2013-07-26 14:30:57 stefan Exp $'
 ! !