--- a/InspectorView.st	Wed Oct 31 10:52:23 2001 +0100
+++ b/InspectorView.st	Wed Oct 31 11:38:37 2001 +0100
@@ -1021,24 +1021,29 @@
     cls := inspectedObject class.
     baseCls := self baseInspectedObjectClass.
 
-    aList := cls allInstVarNames asOrderedCollection copy.
-    (cls == baseCls or:[cls isSubclassOf:baseCls]) ifTrue:[
-        "/ hide some stuff
-        aList := aList copyFrom:(self baseInspectedObjectClass instSize + 1).
-    ].
+    aList := OrderedCollection new.
 
     inspectedObject isInteger ifTrue:[
         aList addLast:'-hexadecimal'.
         aList addLast:'-octal'.
         aList addLast:'-binary'.
     ].
+    (inspectedObject isKindOf:Text) ifTrue:[
+        aList addLast:'-text'.
+    ].
     (inspectedObject isKindOf:ByteArray) ifTrue:[
         aList addLast:'-hexadecimal'.
     ].
 
+    aList addAll:(cls allInstVarNames).
+    (cls == baseCls or:[cls isSubclassOf:baseCls]) ifTrue:[
+        "/ hide some stuff
+        aList := aList copyFrom:(self baseInspectedObjectClass instSize + 1).
+    ].
+
     ^ aList
 
-    "Modified: / 31.10.2001 / 09:40:18 / cg"
+    "Modified: / 31.10.2001 / 10:44:29 / cg"
 !
 
 setDoItAction
@@ -1152,6 +1157,12 @@
         ]
     ].
 
+    (inspectedObject isKindOf:Text) ifTrue:[
+        (sel startsWith:'-text') ifTrue:[
+            ^ inspectedObject
+        ].
+    ].
+
     (inspectedObject isKindOf:ByteArray) ifTrue:[
         (sel startsWith:'-hex') ifTrue:[
             ^ String streamContents:[:s | inspectedObject asByteArray printOn:s base:16 showRadix:true]
@@ -1193,7 +1204,7 @@
     ].
     ^ s.
 
-    "Modified: / 31.10.2001 / 09:56:53 / cg"
+    "Modified: / 31.10.2001 / 10:44:16 / cg"
 !
 
 doAccept:theText
@@ -1431,5 +1442,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.117 2001-10-31 09:51:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.118 2001-10-31 10:38:37 cg Exp $'
 ! !