--- a/GraphicsContext.st	Wed May 30 16:43:54 2007 +0200
+++ b/GraphicsContext.st	Thu May 31 17:17:34 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 Object subclass:#GraphicsContext
@@ -1528,35 +1527,35 @@
      xMin xMax yMin yMax x1 x2 y1 y2|
 
     xStart < xEnd ifTrue:[
-	xMin := xStart.
-	xMax := xEnd.
+        xMin := xStart.
+        xMax := xEnd.
     ] ifFalse:[
-	xMin := xEnd.
-	xMax := xStart
+        xMin := xEnd.
+        xMax := xStart
     ].
     yStart < yEnd ifTrue:[
-	yMin := yStart.
-	yMax := yEnd.
+        yMin := yStart.
+        yMax := yEnd.
     ] ifFalse:[
-	yMin := yEnd.
-	yMax := yStart
+        yMin := yEnd.
+        yMax := yStart
     ].
 
     tempForm := Form width:(xMax-xMin+1+aForm width)
-		     height:(yMax-yMin+1+aForm height) 
-		     depth:aForm depth
-		     on:device.
+                     height:(yMax-yMin+1+aForm height) 
+                     depth:aForm depth
+                     onDevice:device.
     tempForm clear.
     tempForm paint:(Color colorId:1) on:(Color colorId:0).
     tempForm function:#or.
 
     ((yStart = yEnd and:[xStart < xEnd])
     or: [yStart < yEnd]) ifTrue:[
-	x1 := xStart. y1 := yStart.
-	x2 := xEnd. y2 := yEnd.
+        x1 := xStart. y1 := yStart.
+        x2 := xEnd. y2 := yEnd.
     ] ifFalse:[
-	x1 := xEnd. y1 := yEnd.
-	x2 := xStart. y2 := yStart.
+        x1 := xEnd. y1 := yEnd.
+        x2 := xStart. y2 := yStart.
     ].
 
     x1 := x1 - xMin.  x2 := x2 - xMin.
@@ -1578,31 +1577,31 @@
     tempForm displayForm:aForm x:destX y:destY.
 
     py > px ifTrue:[
-	"horizontal"
-	p := py // 2.
-	py timesRepeat:[
-	    destX := destX + dx.
-	    (p := p - px) < 0 ifTrue:[ 
-		destY := destY + dy.
-		p := p + py
-	    ].
-	    tempForm displayForm:aForm x:destX y:destY.
-	]
+        "horizontal"
+        p := py // 2.
+        py timesRepeat:[
+            destX := destX + dx.
+            (p := p - px) < 0 ifTrue:[ 
+                destY := destY + dy.
+                p := p + py
+            ].
+            tempForm displayForm:aForm x:destX y:destY.
+        ]
     ] ifFalse:[ 
-	"vertical"
-	p := px // 2.
-	px timesRepeat:[
-	    destY := destY + dy.
-	    (p := p - py) < 0 ifTrue:[ 
-		destX := destX + dx.
-		p := p + px
-	    ].
-	    tempForm displayForm:aForm x:destX y:destY
-	]
+        "vertical"
+        p := px // 2.
+        px timesRepeat:[
+            destY := destY + dy.
+            (p := p - py) < 0 ifTrue:[ 
+                destX := destX + dx.
+                p := p + px
+            ].
+            tempForm displayForm:aForm x:destX y:destY
+        ]
     ].
     self displayForm:tempForm 
-		   x:xMin-aForm offset x 
-		   y:yMin-aForm offset y.
+                   x:xMin-aForm offset x 
+                   y:yMin-aForm offset y.
     tempForm close
 
     "Modified: 1.4.1997 / 21:29:06 / cg"
@@ -1897,7 +1896,7 @@
         tempForm := Form 
                     width:w 
                     height:h
-                    on:device.
+                    onDevice:device.
 
         tempForm clear.
         tempForm font:font.
@@ -1919,7 +1918,7 @@
                     width:w 
                     height:h
                     depth:(device depth)
-                    on:device.
+                    onDevice:device.
 
         tempForm paint:bgPaint.
         tempForm fillRectangleX:0 y:0 width:w height:h.
@@ -2401,7 +2400,7 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.111 2005-10-05 09:18:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.112 2007-05-31 15:17:34 stefan Exp $'
 ! !
 
 GraphicsContext initialize!