--- a/DeviceGraphicsContext.st	Sat Jan 18 18:22:06 1997 +0100
+++ b/DeviceGraphicsContext.st	Sat Jan 18 19:08:55 1997 +0100
@@ -99,7 +99,10 @@
 on:aDevice
     "create a new drawable on aDevice"
 
+    self obsoleteMethodWarning:'use #onDevice:'.
     ^ self onDevice:aDevice
+
+    "Modified: 18.1.1997 / 18:25:00 / cg"
 !
 
 onDevice:aDevice
@@ -3498,6 +3501,6 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.28 1997-01-18 16:24:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.29 1997-01-18 18:08:05 cg Exp $'
 ! !
 DeviceGraphicsContext initialize!