--- a/DeviceGraphicsContext.st	Wed Apr 18 14:52:30 2007 +0200
+++ b/DeviceGraphicsContext.st	Tue May 29 12:11:14 2007 +0200
@@ -2252,7 +2252,7 @@
                         "
                          create temp-form;
                         "
-                        tmpForm := Form width:w height:h depth:device depth on:device.
+                        tmpForm := Form width:w height:h depth:device depth onDevice:device.
                         tmpForm isNil ifTrue:[
                             'DeviceGraphicsContext [warning]: cannot create temp form' errorPrintCR.
                             ^self
@@ -2519,7 +2519,7 @@
     "
      create temp-form;
     "
-    tmpForm := Form width:w height:h depth:device depth on:device.
+    tmpForm := Form width:w height:h depth:device depth onDevice:device.
     tmpForm isNil ifTrue:[
         'DeviceGraphicsContext [warning]: cannot create temp form' errorPrintCR.
         ^self
@@ -2583,7 +2583,7 @@
     background := nil.
     device setFunction:function in:gcId.
 
-    "Modified: / 27.7.1998 / 20:07:22 / cg"
+    "Modified: / 27-05-2007 / 12:45:10 / cg"
 !
 
 displayDeviceLineFromX:x0 y:y0 toX:x1 y:y1
@@ -3919,7 +3919,7 @@
 !DeviceGraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.113 2007-04-17 12:12:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceGraphicsContext.st,v 1.114 2007-05-29 10:11:14 cg Exp $'
 ! !
 
 DeviceGraphicsContext initialize!