--- a/DebugView.st	Fri Feb 01 00:03:53 2019 +0100
+++ b/DebugView.st	Fri Feb 01 16:16:43 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -207,10 +209,12 @@
 
     "
      DebugView newDebugger
+     DebugView withAllSubclassesDo:#newDebugger
     "
 
     "Modified: / 17-10-2017 / 12:55:09 / stefan"
     "Modified: / 30-01-2019 / 02:30:40 / Claus Gittinger"
+    "Modified (comment): / 01-02-2019 / 15:59:33 / Claus Gittinger"
 ! !
 
 !DebugView class methodsFor:'defaults'!
@@ -1334,7 +1338,7 @@
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
@@ -1355,10 +1359,12 @@
           )
          (MenuItem
             label: 'Receiver'
+            isVisible: receiverMenuVisible
             submenuChannel: classMenuSpec
           )
          (MenuItem
             label: 'Selector'
+            isVisible: selectorMenuVisible
             submenuChannel: selectorMenuSpec
           )
          (MenuItem
@@ -1584,7 +1590,7 @@
             isVisible: false
           )
          (MenuItem
-            enabled: notShowingDenseWalkbackHolder
+            "/ enabled: notShowingDenseWalkbackHolder
             label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
             itemValue: showingSupportCode:
             hideMenuOnActivated: false
@@ -1611,7 +1617,7 @@
         nil
       )
 
-    "Modified: / 26-06-2018 / 19:56:56 / Claus Gittinger"
+    "Modified: / 01-02-2019 / 15:48:18 / Claus Gittinger"
 ! !
 
 !DebugView class methodsFor:'misc'!
@@ -2080,6 +2086,18 @@
 
 !DebugView methodsFor:'aspects'!
 
+receiverMenuVisible
+    ^ true
+
+    "Created: / 01-02-2019 / 16:00:18 / Claus Gittinger"
+!
+
+selectorMenuVisible
+    ^ true
+
+    "Created: / 01-02-2019 / 15:58:33 / Claus Gittinger"
+!
+
 verboseBacktraceHolder
     verboseBacktraceHolder isNil ifTrue:[
         verboseBacktraceHolder := ValueHolder with:false
@@ -2215,7 +2233,7 @@
     
     iAmNew := self drawableId isNil.
 
-    self verboseBacktraceHolder value:(userprefs verboseBacktraceInDebugger).
+    self initializeVerboseBacktraceHolder.
 
     busy := cachable := true.
     inspecting := false.
@@ -2488,7 +2506,7 @@
     "Modified: / 13-10-1998 / 19:56:59 / ps"
     "Modified: / 27-07-2012 / 17:35:56 / cg"
     "Modified: / 01-02-2018 / 10:08:28 / stefan"
-    "Modified: / 28-01-2019 / 13:22:57 / Claus Gittinger"
+    "Modified: / 01-02-2019 / 15:45:07 / Claus Gittinger"
 !
 
 exit_abort
@@ -2768,7 +2786,7 @@
 
     |bpanel dummy w|
 
-    self verboseBacktraceHolder value:( UserPreferences current verboseBacktraceInDebugger ).
+    self initializeVerboseBacktraceHolder.
 
     busy := true.
     bigStep := false.
@@ -2867,7 +2885,7 @@
 
     "Modified: / 20-03-1997 / 16:53:56 / cg"
     "Modified: / 17-04-1997 / 13:01:57 / stefan"
-    "Modified: / 13-06-2018 / 11:12:09 / Claus Gittinger"
+    "Modified: / 01-02-2019 / 15:45:44 / Claus Gittinger"
 !
 
 redefinedEnableStepInterruptForReentry:aContext
@@ -3530,10 +3548,12 @@
     |userPrefs|
 
     userPrefs := UserPreferences current.
-    self verboseBacktraceHolder value:(userPrefs verboseBacktraceInDebugger).
+    self initializeVerboseBacktraceHolder.
     hideSupportCode := userPrefs hideSupportCodeInDebugger ? false.
     ignoreBreakpoints := true.    "/ ignore halts/breakpoints in doIts of
                                   "/ the debugger
+
+    "Modified: / 01-02-2019 / 15:45:26 / Claus Gittinger"
 !
 
 initializeGotoApplicationActionMethodButtonIn:bpanel
@@ -3759,6 +3779,12 @@
     "Created: / 17.11.2001 / 21:02:20 / cg"
 !
 
+initializeVerboseBacktraceHolder
+    self verboseBacktraceHolder value:(UserPreferences current verboseBacktraceInDebugger).
+
+    "Created: / 01-02-2019 / 15:44:52 / Claus Gittinger"
+!
+
 initializeViews
     |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel
      newLayout v exceptionAndTogglePanel codeToggleLabels|
@@ -7913,7 +7939,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             "/ s infoPrintCR.
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -10132,7 +10158,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.