--- a/CharacterArray.st	Mon May 06 08:01:41 2002 +0200
+++ b/CharacterArray.st	Mon May 06 08:05:11 2002 +0200
@@ -4886,7 +4886,7 @@
 heightOn:aGC
     "return the size of the recevier in device units if displayed on aGC"
 
-    ^ (aGC font on:aGC device) heightOf:self
+    ^ (aGC font onDevice:aGC device) heightOf:self
 
     "
      'hello world' heightOn:(View new)                 
@@ -4931,7 +4931,7 @@
 widthOn:aGC
     "return ths size of the recevier in device units if displayed on aGC"
 
-    ^ (aGC font on:aGC device) widthOf:self
+    ^ (aGC font onDevice:aGC device) widthOf:self
 
     "
      'hello world' widthOn:(View new)                 
@@ -6118,6 +6118,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.220 2002-05-03 12:29:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.221 2002-05-06 06:05:11 cg Exp $'
 ! !
 CharacterArray initialize!