#OTHER by mawalch
authormawalch
Mon, 15 Aug 2016 12:51:50 +0200
changeset 7506 184d2085d4fd
parent 7505 fffd388f32f9
child 7507 cb7c25da60d0
#OTHER by mawalch occure -> occur occurence -> occurrence occures -> occurs occured -> occurred
XWorkstation.st
--- a/XWorkstation.st	Tue Aug 09 12:42:52 2016 +0200
+++ b/XWorkstation.st	Mon Aug 15 12:51:50 2016 +0200
@@ -11294,38 +11294,38 @@
     |rawInfo info|
 
     ((w <= 0) or:[h <= 0]) ifTrue:[
-	self primitiveFailed.
-	^ nil
+        self primitiveFailed.
+        ^ nil
     ].
 
     rawInfo := Array new:8.
-		  "1 -> bit order"
-		  "2 -> depth"
-		  "3 -> bytes_per_line"
-		  "4 -> byte_order"
-		  "5 -> format"
-		  "6 -> bitmap_unit"
-		  "7 -> bitmap_pad"
-		  "8 -> bits_per_pixel"
+                  "1 -> bit order"
+                  "2 -> depth"
+                  "3 -> bytes_per_line"
+                  "4 -> byte_order"
+                  "5 -> format"
+                  "6 -> bitmap_unit"
+                  "7 -> bitmap_pad"
+                  "8 -> bits_per_pixel"
 
     "/ had to extract the getPixel call into a separate method, to specify
     "/ unlimitedStack (some implementations use alloca and require huge amounts
     "/ of temporary stack space
 
     (self primGetBitsFrom:aDrawableId x:srcx y:srcy width:w height:h into:imageBits infoInto:rawInfo) ifTrue:[
-	info := IdentityDictionary new.
-	info at:#bitOrder put:(rawInfo at:1).
-	info at:#depth put:(rawInfo at:2).
-	info at:#bytesPerLine put:(rawInfo at:3).
-	info at:#byteOrder put:(rawInfo at:4).
-	info at:#format put:(rawInfo at:5).
-	info at:#bitmapUnit put:(rawInfo at:6).
-	info at:#bitmapPad put:(rawInfo at:7).
-	info at:#bitsPerPixel put:(rawInfo at:8).
-	^ info
-    ].
-    "
-     some error occured - either args are not smallintegers, imageBits is not a ByteArray
+        info := IdentityDictionary new.
+        info at:#bitOrder put:(rawInfo at:1).
+        info at:#depth put:(rawInfo at:2).
+        info at:#bytesPerLine put:(rawInfo at:3).
+        info at:#byteOrder put:(rawInfo at:4).
+        info at:#format put:(rawInfo at:5).
+        info at:#bitmapUnit put:(rawInfo at:6).
+        info at:#bitmapPad put:(rawInfo at:7).
+        info at:#bitsPerPixel put:(rawInfo at:8).
+        ^ info
+    ].
+    "
+     some error occurred - either args are not smallintegers, imageBits is not a ByteArray
      or is too small to hold the bits
     "
     self primitiveFailedOrClosedConnection.