#OTHER by mawalch
occure -> occur
occurence -> occurrence
occures -> occurs
occured -> occurred
--- 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.