--- a/Font.st	Fri May 03 20:04:24 2002 +0200
+++ b/Font.st	Mon May 06 08:04:18 2002 +0200
@@ -362,9 +362,14 @@
     "create a new Font representing the same font as
      myself on aDevice; if one already exists, return the one."
 
-"/    self obsoleteMethodWarning:'use onDevice:'.
+    "/ send out a warning: #on: is typically used to create views
+    "/ operating on a model.
+    "/ Please use #onDevice: to avoid confusion.
+
+    <resource:#obsolete>
+
+    self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
-
 !
 
 on:aDevice ifAbsent:exceptionBlock 
@@ -1090,6 +1095,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.81 2002-03-04 14:23:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.82 2002-05-06 06:03:47 cg Exp $'
 ! !
 Font initialize!