--- 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 <jan.vrany@labware.com>"
!
showValue:someValue