Tools__CodeView2.st
changeset 14521 6625c6f46bf3
parent 14520 777b5112f927
child 14545 473b413f198b
--- a/Tools__CodeView2.st	Tue Jun 17 13:39:03 2014 +0200
+++ b/Tools__CodeView2.st	Tue Jun 17 14:17:26 2014 +0200
@@ -829,11 +829,11 @@
         oldValue := classHolder value.
         classHolder removeDependent:self.
     ].
+    old := classHolder.
     classHolder := aValueModel.
     classHolder notNil ifTrue:[
         classHolder addDependent:self.
     ].
-    old := methodHolder.
     newValue := classHolder value.
     oldValue ~~ newValue ifTrue:[
         self update:#value with:newValue from:classHolder.
@@ -841,7 +841,7 @@
 
     self changed: #classHolder with: old -> classHolder
 
-    "Modified: / 17-06-2011 / 12:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-06-2014 / 13:10:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 currentBlockNodeHolder
@@ -3955,15 +3955,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.157 2014-06-17 11:39:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.158 2014-06-17 12:17:26 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.157 2014-06-17 11:39:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.158 2014-06-17 12:17:26 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.157 2014-06-17 11:39:03 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.158 2014-06-17 12:17:26 vrany Exp $'
 ! !