# HG changeset patch # User Claus Gittinger # Date 1369769459 -7200 # Node ID 81727a87cad871c9575f4e54bf513ee488f11240 # Parent b52f85ed724e5b7ecdfd2ad76ee9d9b7306bb916 class: InspectorView changed: #plainValueStringInListEntryForValue: #valueStringInListEntryForValue: diff -r b52f85ed724e -r 81727a87cad8 InspectorView.st --- a/InspectorView.st Tue May 28 20:52:32 2013 +0200 +++ b/InspectorView.st Tue May 28 21:30:59 2013 +0200 @@ -2352,7 +2352,7 @@ value class == ValueHolder ifTrue:[ s := self plainValueStringInListEntryForValue:value value. s notNil ifTrue:[ - ^ '[[' , s , ']]' + ^ '{' , s , '}' ]. ^ nil ]. @@ -2480,9 +2480,9 @@ valString := (self plainValueStringInListEntryForValue:value) ? ''. (inspectedObject notNil and:[value == inspectedObject]) ifTrue:[ - ^ ' <',valString,' (==self)>' + ^ ' (',valString,') (==self)' ]. - ^ ' <',valString,'>' + ^ ' (',valString,')' "Created: / 13-06-2012 / 12:04:31 / cg" ! ! @@ -3507,10 +3507,10 @@ !InspectorView class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.309 2013-05-28 19:30:59 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.309 2013-05-28 19:30:59 cg Exp $' ! !