equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1989-92 by Claus Gittinger |
2 COPYRIGHT (c) 1989-93 by Claus Gittinger |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
17 category:'Collections-Indexed' |
17 category:'Collections-Indexed' |
18 ! |
18 ! |
19 |
19 |
20 ByteArray comment:' |
20 ByteArray comment:' |
21 |
21 |
22 COPYRIGHT (c) 1989-92 by Claus Gittinger |
22 COPYRIGHT (c) 1989-93 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 ByteArrays store integers in the range 0..255 |
25 ByteArrays store integers in the range 0..255 |
26 unlike Smalltalk/80, my ByteArrays have fixed size - may change |
26 unlike Smalltalk/80, my ByteArrays have fixed size - may change |
27 |
27 |
28 %W% %E% |
28 $Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.3 1993-10-13 00:14:59 claus Exp $ |
29 |
29 |
30 written spring 89 by claus |
30 written spring 89 by claus |
31 '! |
31 '! |
|
32 |
|
33 !ByteArray class methodsFor:'queries'! |
|
34 |
|
35 isBuiltInClass |
|
36 "this class is known by the run-time-system" |
|
37 |
|
38 ^ self == ByteArray |
|
39 ! ! |
32 |
40 |
33 !ByteArray class methodsFor: 'binary storage'! |
41 !ByteArray class methodsFor: 'binary storage'! |
34 |
42 |
35 binaryDefinitionFrom: stream manager: manager |
43 binaryDefinitionFrom: stream manager: manager |
36 ^ (stream next: (stream nextNumber: 4)) |
44 ^ (stream next: (stream nextNumber: 4)) |