checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 21 Jan 1998 17:38:18 +0100
changeset 3209 eff7ad7f0825
parent 3208 2d71538b9fd5
child 3210 6c4099f5c318
checkin from browser
UIBytes.st
UninterpretedBytes.st
--- a/UIBytes.st	Wed Jan 21 17:09:08 1998 +0100
+++ b/UIBytes.st	Wed Jan 21 17:38:18 1998 +0100
@@ -55,6 +55,17 @@
 "
 ! !
 
+!UninterpretedBytes class methodsFor:'binary storage'!
+
+binaryDefinitionFrom:stream manager:manager
+    "get a ByteArray from the binary stream.
+     ByteArrays are stored as 4-byte size, followed by the bytes.
+     This is only invoked for long bytearrays. 
+     Short ones are stored with 1byte length."
+
+    self subclassResponsibility
+! !
+
 !UninterpretedBytes class methodsFor:'queries'!
 
 isBigEndian
@@ -78,20 +89,7 @@
     RETURN (true);
 %}
     "UninterpretedBytes isBigEndian"
-! !
-
-!UninterpretedBytes class methodsFor:'binary storage'!
-
-binaryDefinitionFrom:stream manager:manager
-    "get a ByteArray from the binary stream.
-     ByteArrays are stored as 4-byte size, followed by the bytes.
-     This is only invoked for long bytearrays. 
-     Short ones are stored with 1byte length."
-
-    self subclassResponsibility
-! !
-
-!UninterpretedBytes class methodsFor:'queries'!
+!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -749,16 +747,8 @@
     "Created: 9.9.1996 / 15:28:34 / cg"
 ! !
 
-!UninterpretedBytes methodsFor:'converting'!
-
-asByteArray
-    "return the receiver as a byteArray"
-
-    self subclassResponsibility
-! !
-
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.17 1998-01-21 16:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.18 1998-01-21 16:38:18 cg Exp $'
 ! !
--- a/UninterpretedBytes.st	Wed Jan 21 17:09:08 1998 +0100
+++ b/UninterpretedBytes.st	Wed Jan 21 17:38:18 1998 +0100
@@ -55,6 +55,17 @@
 "
 ! !
 
+!UninterpretedBytes class methodsFor:'binary storage'!
+
+binaryDefinitionFrom:stream manager:manager
+    "get a ByteArray from the binary stream.
+     ByteArrays are stored as 4-byte size, followed by the bytes.
+     This is only invoked for long bytearrays. 
+     Short ones are stored with 1byte length."
+
+    self subclassResponsibility
+! !
+
 !UninterpretedBytes class methodsFor:'queries'!
 
 isBigEndian
@@ -78,20 +89,7 @@
     RETURN (true);
 %}
     "UninterpretedBytes isBigEndian"
-! !
-
-!UninterpretedBytes class methodsFor:'binary storage'!
-
-binaryDefinitionFrom:stream manager:manager
-    "get a ByteArray from the binary stream.
-     ByteArrays are stored as 4-byte size, followed by the bytes.
-     This is only invoked for long bytearrays. 
-     Short ones are stored with 1byte length."
-
-    self subclassResponsibility
-! !
-
-!UninterpretedBytes class methodsFor:'queries'!
+!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -749,16 +747,8 @@
     "Created: 9.9.1996 / 15:28:34 / cg"
 ! !
 
-!UninterpretedBytes methodsFor:'converting'!
-
-asByteArray
-    "return the receiver as a byteArray"
-
-    self subclassResponsibility
-! !
-
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.17 1998-01-21 16:08:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.18 1998-01-21 16:38:18 cg Exp $'
 ! !