# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1003399138 -7200
# Node ID 46c3347385f48beb9206440ad787ba85e71cf3ef
# Parent  f67c198a61e066abf55f80d810a7a1e4117b0d41
preps to allow for displayString message to be configured

diff -r f67c198a61e0 -r 46c3347385f4 InspectorView.st
--- a/InspectorView.st	Thu Oct 18 11:22:39 2001 +0200
+++ b/InspectorView.st	Thu Oct 18 11:58:58 2001 +0200
@@ -16,7 +16,7 @@
 	instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown
 		hasMore monitorProcess hideReceiver showHex inspectHistory
 		allowFollow isStandaloneInspector selectionIndex object
-		inspectedObjectHolder'
+		inspectedObjectHolder displayStringMessage'
 	classVariableNames:'DefaultIcon'
 	poolDictionaries:''
 	category:'Interface-Inspector'
@@ -393,6 +393,7 @@
 
     super initialize.
 
+    displayStringMessage := #displayString.
     hideReceiver := false.
     showHex := false.
     allowFollow := false.
@@ -1246,9 +1247,17 @@
         |s|
 
         Object errorSignal handle:[:ex |
-            s := someValue classNameWithArticle , ' "error in displayString"'
+            s := someValue classNameWithArticle.
+            displayStringMessage == #displayString ifTrue:[
+                s := s , ' "error in displayString"'
+            ] ifFalse:[
+                s := s , ' "error in displayString (' , displayStringMessage , ')"'
+            ]
         ] do:[
-            s := someValue displayString.
+            "/ displayStringMessage := #classNameWithArticle
+            "/ displayStringMessage := #displayString
+            "/ displayStringMessage := #printString
+            s := someValue perform:displayStringMessage.
             showHex ifTrue:[
                 someValue isInteger ifTrue:[
                     s := '16r' , someValue hexPrintString
@@ -1347,5 +1356,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.114 2001-09-25 12:57:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.115 2001-10-18 09:58:58 cg Exp $'
 ! !