Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
`InspectorView`: allow selecting and double-clicking on `-self` jv
authorJan Vrany <jan.vrany@labware.com>
Fri, 05 Nov 2021 15:24:22 +0000
branchjv
changeset 19615 7bb0c90effc5
parent 19614 0d756d4c5298
child 19616 f6fcf7a95cc5
`InspectorView`: allow selecting and double-clicking on `-self` Clicking on `-self` entry in inspector list did reinspect but when inspector is embedded in - say - debugger, this is pretty counter-intuitive and opening a full inspector on `self` requires use of menu. This commit allows to select self and double-click on so all items behave consistently.
InspectorView.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libtool