Win32OperatingSystem.st
changeset 19369 ccf33c1cd9d8
parent 19367 b7eef79ceeb8
child 19408 8c80107973c7
child 19416 90a164f523de
--- a/Win32OperatingSystem.st	Tue Mar 15 22:53:59 2016 +0100
+++ b/Win32OperatingSystem.st	Tue Mar 15 22:59:29 2016 +0100
@@ -11991,31 +11991,31 @@
 !
 
 collate
-    ^ self shortAt: 1+68
+    ^ self signedInt16At: 1+68 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 01-08-2006 / 09:56:38 / fm"
 !
 
 collate: n
-    ^ self shortAt: 1+68 put: n
+    ^ self signedInt16At: 1+68 put: n MSB: UninterpretedBytes isBigEndian
 
     "Created: / 01-08-2006 / 09:58:07 / fm"
 !
 
 color
-    ^ self shortAt: 1+60
+    ^ self signedInt16At: 1+60 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:31:25 / fm"
 !
 
 copies
-    ^ self shortAt: 1+54
+    ^ self signedInt16At: 1+54 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:30:52 / fm"
 !
 
 copies: n
-    ^ self shortAt: 1+54 put: n
+    ^ self signedInt16At: 1+54 put: n MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:36:39 / fm"
 !
@@ -12027,61 +12027,61 @@
 !
 
 orientation
-    ^ self shortAt: 1+44
+    ^ self signedInt16At: 1+44 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:34:57 / fm"
 !
 
 orientation: orientationInt
-    ^ self shortAt: 1+44 put: orientationInt
+    ^ self signedInt16At: 1+44 put: orientationInt MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:36:31 / fm"
 !
 
 paperLength
-    ^ self shortAt: 1+48
+    ^ self signedInt16At: 1+48 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:32:59 / fm"
 !
 
 paperSize
-    ^ self shortAt: 1+46
+    ^ self signedInt16At: 1+46 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:32:12 / fm"
 !
 
 paperSize:funnyMSPaperSizeCode
-    ^ self shortAt: 1+46 put: funnyMSPaperSizeCode
+    ^ self signedInt16At: 1+46 put: funnyMSPaperSizeCode MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:35:53 / fm"
 !
 
 paperWidth
-    ^ self shortAt: 1+50
+    ^ self signedInt16At: 1+50 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:32:25 / fm"
 !
 
 printQuality
-    ^ self shortAt: 1+58
+    ^ self signedInt16At: 1+58 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:33:58 / fm"
 !
 
 printQuality: qualityInteger
-    ^ self shortAt: 1+58 put: qualityInteger
+    ^ self signedInt16At: 1+58 put: qualityInteger MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:36:20 / fm"
 !
 
 scale
-    ^ self shortAt: 1+52
+    ^ self signedInt16At: 1+52 MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:33:31 / fm"
 !
 
 scale: percent
-    ^ self shortAt: 1+52 put: percent
+    ^ self signedInt16At: 1+52 put: percent MSB: UninterpretedBytes isBigEndian
 
     "Created: / 27-07-2006 / 15:36:05 / fm"
 ! !