--- a/Font.st	Wed Aug 18 16:45:20 1999 +0200
+++ b/Font.st	Wed Aug 18 16:49:46 1999 +0200
@@ -729,7 +729,7 @@
     device == aDevice ifTrue:[
         ^ ascent
     ].
-    ^ (self on:aDevice) ascent
+    ^ (self onDevice:aDevice) ascent
 
     "Created: / 30.4.1996 / 16:41:32 / cg"
     "Modified: / 10.9.1998 / 12:09:06 / cg"
@@ -759,7 +759,7 @@
     device == aDevice ifTrue:[
         ^ descent
     ].
-    ^ (self on:aDevice) descent
+    ^ (self onDevice:aDevice) descent
 
     "Created: / 30.4.1996 / 16:41:43 / cg"
     "Modified: / 10.9.1998 / 12:09:30 / cg"
@@ -809,7 +809,7 @@
     device == aDevice ifTrue:[
         ^ self heightOf:aString
     ].
-    ^ (self on:aDevice) heightOf:aString
+    ^ (self onDevice:aDevice) heightOf:aString
 
     "Created: / 30.4.1996 / 17:14:18 / cg"
     "Modified: / 10.9.1998 / 12:09:47 / cg"
@@ -824,7 +824,7 @@
     device == aDevice ifTrue:[
         ^ descent + ascent
     ].
-    ^ (self on:aDevice) height
+    ^ (self onDevice:aDevice) height
 
     "Created: / 30.4.1996 / 16:41:59 / cg"
     "Modified: / 10.9.1998 / 12:08:18 / cg"
@@ -1003,7 +1003,7 @@
     device == aDevice ifTrue:[
         ^ self widthOf:aString from:startIndex to:endIndex
     ].
-    ^ (self on:aDevice) widthOf:aString from:startIndex to:endIndex
+    ^ (self onDevice:aDevice) widthOf:aString from:startIndex to:endIndex
 
     "Created: / 30.4.1996 / 17:15:20 / cg"
     "Modified: / 10.9.1998 / 12:10:11 / cg"
@@ -1020,7 +1020,7 @@
     device == aDevice ifTrue:[
         ^ self widthOf:aString
     ].
-    ^ (self on:aDevice) widthOf:aString
+    ^ (self onDevice:aDevice) widthOf:aString
 
     "Created: / 30.4.1996 / 17:14:18 / cg"
     "Modified: / 10.9.1998 / 12:10:26 / cg"
@@ -1037,7 +1037,7 @@
     device == aDevice ifTrue:[
         ^ self width
     ].
-    ^ (self on:aDevice) width
+    ^ (self onDevice:aDevice) width
 
     "Created: / 30.4.1996 / 16:42:28 / cg"
     "Modified: / 10.9.1998 / 12:11:33 / cg"
@@ -1106,6 +1106,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.68 1999-07-15 19:44:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.69 1999-08-18 14:49:46 cg Exp $'
 ! !
 Font initialize!