171 !ByteArray methodsFor:'inspecting'! |
171 !ByteArray methodsFor:'inspecting'! |
172 |
172 |
173 inspectorExtraAttributes |
173 inspectorExtraAttributes |
174 "extra (pseudo instvar) entries to be shown in an inspector." |
174 "extra (pseudo instvar) entries to be shown in an inspector." |
175 |
175 |
|
176 |basePrinter| |
|
177 |
|
178 basePrinter := |
|
179 [:arr :b | |
|
180 String |
|
181 streamContents:[:s | |
|
182 arr class isWords ifTrue:[ |
|
183 arr asWordArray printOn:s base:b showRadix:true |
|
184 ] ifFalse:[ |
|
185 arr class isLongs ifTrue:[ |
|
186 arr asLongIntegerArray printOn:s base:b showRadix:true |
|
187 ] ifFalse:[ |
|
188 arr asByteArray printOn:s base:b showRadix:true |
|
189 ] |
|
190 ] |
|
191 ] |
|
192 ]. |
|
193 |
176 ^ Dictionary new |
194 ^ Dictionary new |
177 declareAllNewFrom:(super inspectorExtraAttributes ? #()); |
195 declareAllNewFrom:(super inspectorExtraAttributes ? #()); |
178 add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ]; |
196 add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ]; |
179 add:'-hexadecimal' -> |
197 add:'-hexadecimal' -> [ basePrinter value:self value:16 ]; |
180 [ |
198 add:'-binary' -> [ basePrinter value:self value:2 ]; |
181 String |
|
182 streamContents:[:s | |
|
183 self class isWords ifTrue:[ |
|
184 self asWordArray printOn:s base:16 showRadix:true |
|
185 ] ifFalse:[ |
|
186 self class isLongs ifTrue:[ |
|
187 self asLongIntegerArray printOn:s base:16 showRadix:true |
|
188 ] ifFalse:[ |
|
189 self asByteArray printOn:s base:16 showRadix:true |
|
190 ] |
|
191 ] |
|
192 ] |
|
193 ]; |
|
194 yourself |
199 yourself |
195 |
|
196 "Created: / 18-09-2006 / 21:29:59 / cg" |
|
197 "Modified: / 06-10-2006 / 13:57:20 / cg" |
|
198 ! ! |
200 ! ! |
199 |
201 |
200 !Change methodsFor:'private'! |
202 !Change methodsFor:'private'! |
201 |
203 |
202 flattenOnto: aCollection |
204 flattenOnto: aCollection |