class: DebugView
authorClaus Gittinger <cg@exept.de>
Mon, 03 Jun 2013 12:39:14 +0200
changeset 12809 24d2a31e458b
parent 12798 7a9cb502b326
child 12810 b7a6631ef77e
class: DebugView changed: #enter:select: #updateForContext: change the inspector labels
DebugView.st
--- a/DebugView.st	Thu May 30 03:25:48 2013 +0000
+++ b/DebugView.st	Mon Jun 03 12:39:14 2013 +0200
@@ -1689,10 +1689,10 @@
          view at the previous position, without a need for the user to set the
          position again
         "
-        iAmNew ifFalse:[
+        iAmNew ifTrue:[
+            self realize.
+        ] ifFalse:[
             self remap.
-        ] ifTrue:[
-            self realize.
         ].
         self setForegroundWindow.
 
@@ -7649,10 +7649,12 @@
                 'DebugView [warning]: error while accessing context: ' errorPrint.
                 ex description errorPrintCR.
                 contextInspector inspect:nil.
+                contextInspector fieldListLabel:('Context').
                 ex suspendedContext fullPrintAllOn: Transcript.
 "/ ex reject.
             ] do:[
                 contextInspector inspect:con.
+                "/ contextInspector fieldListLabel:('Context: ',con method whoString).
                 contextInspector tryToSelectKeyNamed:lastSelectionInContextInspector.
             ].
 
@@ -7804,6 +7806,7 @@
                         ]
                     ]
                 ].
+                contextInspector fieldListLabel:('Context: ', method whoString).
                 method notNil ifTrue:[
                     Error handle:[:ex |
 "/ not covered by Error, anyway
@@ -7953,6 +7956,7 @@
             ].
 
             receiverInspector inspect:rec.
+            receiverInspector fieldListLabel:('Receiver: ',rec classNameWithArticle).
             receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
 
             "
@@ -8279,15 +8283,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.584 2013-05-07 13:16:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.585 2013-06-03 10:39:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.584 2013-05-07 13:16:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.585 2013-06-03 10:39:14 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
+    ^ '$Id: DebugView.st,v 1.585 2013-06-03 10:39:14 cg Exp $'
 ! !