--- a/InspectorView.st Tue May 28 20:49:08 2019 +0200
+++ b/InspectorView.st Tue May 28 21:10:41 2019 +0200
@@ -23,10 +23,11 @@
suppressPseudoSlots dereferenceValueHolders suppressHeadline
headLineLabel sortOrder hideMessages hideHashes
holderChangeInterest sortOrderHolder maxValueDisplayStringLength'
- classVariableNames:'DefaultIcon DefaultIntegerDisplayRadix ExpandArraysInAllLists
- IdDictionary LastExtent NextSequentialID SortOrderAlphabetical
- SortOrderInstvarOrder DefaultHideMessages DefaultHideHashes
- NoLongerPresentDummyObject DefaultMaxValueDisplayStringLength'
+ classVariableNames:'DefaultHideHashes DefaultHideMessages DefaultIcon
+ DefaultIntegerDisplayRadix DefaultMaxValueDisplayStringLength
+ ExpandArraysInAllLists IdDictionary LastExtent NextSequentialID
+ NoLongerPresentDummyObject SortOrderAlphabetical
+ SortOrderInstvarOrder'
poolDictionaries:''
category:'Interface-Inspector'
!
@@ -2403,8 +2404,10 @@
|symbol|
symbol := self selection.
- inspectedObject class browserClass
+ inspectedObject class browserClass
browseImplementorsOf:symbol
+
+ "Modified (format): / 28-05-2019 / 19:53:17 / Claus Gittinger"
!
browseMethodsClass
@@ -4336,7 +4339,11 @@
!InspectorView methodsFor:'selection'!
selection:lineNr
- self showSelection:lineNr
+ AbortOperationRequest catch:[
+ self showSelection:lineNr
+ ].
+
+ "Modified: / 28-05-2019 / 19:27:12 / Claus Gittinger"
!
showSelection:lineNr
@@ -4442,7 +4449,9 @@
!
doInspect:objectToInspect basic:basic
- "user selected the basic-inspect-menu entry"
+ "user selected the basic-inspect-menu entry.
+ Hack: basic used to be a boolean;
+ it can now be also #new (for the new inspector)"
objectToInspect notNil ifTrue:[
(basic == #new and:[NewInspector::NewInspectorView notNil]) ifTrue:[
@@ -4467,6 +4476,7 @@
"Modified: / 06-07-2011 / 15:58:55 / jv"
"Modified: / 27-07-2012 / 22:43:11 / cg"
+ "Modified (comment): / 28-05-2019 / 19:40:20 / Claus Gittinger"
!
doUpdate
@@ -4500,7 +4510,10 @@
lineEntry := self listEntryAt:lineNr.
"/ an ignored entry? (typically a separator between groups of variables in subclasses)
- (self isIgnoredEntry:lineEntry atIndex:lineNr) ifTrue:[^ nil].
+ (self isIgnoredEntry:lineEntry atIndex:lineNr) ifTrue:[
+ AbortOperationRequest isHandled ifTrue:[ AbortOperationRequest raise ].
+ ^ ''
+ ].
val := self valueAtLine:lineNr.
self dereferenceValueHolders ifTrue:[
@@ -4510,7 +4523,7 @@
^ val
"Modified: / 03-08-2006 / 14:27:02 / cg"
- "Modified: / 28-05-2019 / 18:25:15 / Claus Gittinger"
+ "Modified: / 28-05-2019 / 19:55:44 / Claus Gittinger"
!
showLast