Change senders of obsolete messages Form>>...on: to ...onDevice:
authorStefan Vogel <sv@exept.de>
Thu, 31 May 2007 17:28:39 +0200
changeset 4781 7f2473db5652
parent 4780 03c3e810a584
child 4782 ef80a2590a84
Change senders of obsolete messages Form>>...on: to ...onDevice:
DeviceGraphicsContext.st
--- a/DeviceGraphicsContext.st	Thu May 31 17:26:08 2007 +0200
+++ b/DeviceGraphicsContext.st	Thu May 31 17:28:39 2007 +0200
@@ -2847,9 +2847,9 @@
     "
      create temp-forms;
     "
-    bgForm := Form width:w height:h depth:deviceDepth on:device.
-    fgForm := Form width:w height:h depth:deviceDepth on:device.
-    tmpForm := Form width:w height:h depth:deviceDepth on:device.
+    bgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+    fgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+    tmpForm := Form width:w height:h depth:deviceDepth onDevice:device.
 
     "
      fill
@@ -3128,10 +3128,10 @@
     "
      create temp-forms;
     "
-    bgForm := Form width:w height:h depth:deviceDepth on:device.
-    fgForm := Form width:w height:h depth:deviceDepth on:device.
-    tmpForm := Form width:w height:h depth:deviceDepth on:device.
-    maskForm := Form width:w height:h depth:deviceDepth on:device.
+    bgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+    fgForm := Form width:w height:h depth:deviceDepth onDevice:device.
+    tmpForm := Form width:w height:h depth:deviceDepth onDevice:device.
+    maskForm := Form width:w height:h depth:deviceDepth onDevice:device.
 
     "
      fill
@@ -3919,7 +3919,7 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.114 2007-05-29 10:11:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.115 2007-05-31 15:28:39 stefan Exp $'
 ! !
 
 DeviceGraphicsContext initialize!