Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: ClassDefinitionChange
authorClaus Gittinger <cg@exept.de>
Tue, 26 Mar 2013 13:14:14 +0100
changeset 3139 c6eb068647cc
parent 3138 0442e4f23d39
child 3140 25a1a02ce3d9
class: ClassDefinitionChange comment/format in: #delta
ClassDefinitionChange.st file | annotate | diff | comparison | revisions 
--- a/ClassDefinitionChange.st	Tue Mar 26 13:13:47 2013 +0100
+++ b/ClassDefinitionChange.st	Tue Mar 26 13:14:14 2013 +0100
@@ -50,7 +50,7 @@
 !ClassDefinitionChange class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.73 2013-03-05 11:39:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.74 2013-03-26 12:14:14 cg Exp $'
 ! !
 
 !ClassDefinitionChange methodsFor:'accessing'!
@@ -89,10 +89,11 @@
 !
 
 delta
+    | class |
 
-    | class |
     class := self changeClass.
     class ifNil:[^#+].
+
     ^(self class isSource: self source sameSourceAs: class definitionWithoutPackage "definition")
         ifTrue:[#=]
         ifFalse:[#~]
@@ -766,7 +767,7 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.73 2013-03-05 11:39:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.74 2013-03-26 12:14:14 cg Exp $'
 !
 
 version_SVN
hg/stx-libbasic3