--- a/InspectorView.st	Fri Mar 12 11:27:00 2004 +0100
+++ b/InspectorView.st	Fri Mar 12 13:19:16 2004 +0100
@@ -1482,6 +1482,9 @@
     (line startsWith:'-source') ifTrue:[
         ^ inspectedObject source
     ].
+    (line startsWith:'-text') ifTrue:[
+        ^ inspectedObject
+    ].
     (line startsWith:'-hex') ifTrue:[
         ^ inspectedObject
     ].
@@ -1724,5 +1727,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.148 2004-03-05 20:01:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.149 2004-03-12 12:19:16 cg Exp $'
 ! !