--- a/InspectorView.st Wed Mar 03 22:09:33 2004 +0100
+++ b/InspectorView.st Wed Mar 03 22:12:26 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1000,7 +1002,11 @@
inspectedObject class isWords ifTrue:[
inspectedObject asWordArray printOn:s base:16 showRadix:true
] ifFalse:[
- inspectedObject asByteArray printOn:s base:16 showRadix:true
+ inspectedObject class isLongs ifTrue:[
+ inspectedObject asLongIntegerArray printOn:s base:16 showRadix:true
+ ] ifFalse:[
+ inspectedObject asByteArray printOn:s base:16 showRadix:true
+ ]
]
]
].
@@ -1720,5 +1726,5 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.146 2004-02-21 11:26:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.147 2004-03-03 21:12:26 cg Exp $'
! !