diff -r 0d756d4c5298 -r 7bb0c90effc5 InspectorView.st --- a/InspectorView.st Thu Oct 14 11:55:23 2021 +0200 +++ b/InspectorView.st Fri Nov 05 15:24:22 2021 +0000 @@ -1,7 +1,6 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1989 by Claus Gittinger + COPYRIGHT (c) 2021 LabWare All Rights Reserved This software is furnished under a license and may be used @@ -35,6 +34,7 @@ copyright " COPYRIGHT (c) 1989 by Claus Gittinger + COPYRIGHT (c) 2021 LabWare All Rights Reserved This software is furnished under a license and may be used @@ -3269,8 +3269,8 @@ d := self derivedFields. (d isDictionary) ifTrue:[ actionItems := d keys select:[:k | k first == $!!] as:OrderedCollection . - valueItems := d keys select:[:k | '-¤' includes:k first] as:OrderedCollection. - otherItems := d keys select:[:k | ('!!-¤' includes: k first) not] as:OrderedCollection. + valueItems := d keys select:[:k | '-¤' includes:k first] as:OrderedCollection. + otherItems := d keys select:[:k | ('!!-¤' includes: k first) not] as:OrderedCollection. ^ ((actionItems sort , valueItems sort) collect:[:k | (k copyTo:1),(k copyFrom:2) allItalic]) , otherItems sort @@ -3894,7 +3894,7 @@ ^ self valueForSpecialLine:lineEntry ]. ]. - (lineEntry startsWith:$¤) ifTrue:[ + (lineEntry startsWith:$¤) ifTrue:[ ^ self valueForSpecialLine:lineEntry ]. @@ -4123,7 +4123,7 @@ (self hasSelfEntry and:[lineNr == 1]) ifTrue:[ "selecting self also does a re-set, this allows updating the list" - self reinspect. + "/self reinspect. ]. selectionIndex := selectedLine := lineNr. self showValue:(self selection). @@ -4131,6 +4131,7 @@ self setAcceptAction. "Modified: / 03-08-2006 / 14:26:22 / cg" + "Modified: / 05-11-2021 / 15:19:17 / Jan Vrany " ! showValue:someValue