InspectorView.st
branchjv
changeset 19615 7bb0c90effc5
parent 18532 cccb41254edf
child 19616 f6fcf7a95cc5
--- 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