ContextInspectorView.st
branchjv
changeset 12807 ba8c5416aa28
parent 12459 7899fe07efd7
parent 12779 4b9dd97e4033
child 13173 e9da2324940d
--- a/ContextInspectorView.st	Tue May 28 22:46:27 2013 +0100
+++ b/ContextInspectorView.st	Fri May 31 00:35:44 2013 +0100
@@ -51,7 +51,6 @@
 "
 ! !
 
-
 !ContextInspectorView methodsFor:'accessing'!
 
 inspect:aContext
@@ -267,10 +266,12 @@
                         "/ hidden temps used for loop.
                         "/
                         blockNode invocationSelector == #timesRepeat ifTrue:[
-                            realTempNames asOrderedCollection addFirst:'*loopStop*'
+                            realTempNames := realTempNames asOrderedCollection.
+                            realTempNames addFirst:'*loopStop*'
                         ] ifFalse:[
                             blockNode invocationSelector == #to:do: ifTrue:[
-                                realTempNames asOrderedCollection addFirst:'*loopStop*'
+                                realTempNames := realTempNames asOrderedCollection.
+                                realTempNames addFirst:'*loopStop*'
                             ]
                         ].
                         blockNode := blockNode home.
@@ -370,7 +371,6 @@
     "Modified: 14.12.1995 / 21:49:43 / cg"
 ! !
 
-
 !ContextInspectorView methodsFor:'initialization'!
 
 initialize
@@ -379,7 +379,6 @@
 
 ! !
 
-
 !ContextInspectorView methodsFor:'menu'!
 
 fieldMenu
@@ -460,7 +459,6 @@
     "Modified: / 20-07-2012 / 10:51:12 / cg"
 ! !
 
-
 !ContextInspectorView methodsFor:'private'!
 
 defaultLabel
@@ -630,11 +628,8 @@
     "Created: / 31.10.2001 / 09:17:45 / cg"
 ! !
 
-
 !ContextInspectorView methodsFor:'user actions'!
 
-
-
 hideTemporaries
     "do not show contexts temporaries"
 
@@ -672,15 +667,14 @@
     inspectedContext at:contextIndex put:newValue.
 ! !
 
-
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.80 2013-03-11 16:58:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.81 2013-05-28 18:23:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.80 2013-03-11 16:58:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.81 2013-05-28 18:23:50 cg Exp $'
 !
 
 version_HG