diff -r 715a1380a3ca -r 8ff9798593ec InspectorView.st
--- 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