changed:
authorClaus Gittinger <cg@exept.de>
Tue, 29 Nov 2011 11:26:48 +0100
changeset 2628 7a777cdf027f
parent 2627 ca1a4b2b0f53
child 2629 4786ed332f59
changed: #versionALabel #versionBLabel #versionBaseLabel
ChangeSetDiffSet.st
--- a/ChangeSetDiffSet.st	Tue Nov 29 11:25:37 2011 +0100
+++ b/ChangeSetDiffSet.st	Tue Nov 29 11:26:48 2011 +0100
@@ -124,10 +124,10 @@
 !
 
 versionALabel
-    ^ versionALabel isNil ifTrue:[parent ifNotNil:[parent versionALabel]]
+    ^ versionALabel ifNil:[parent ifNotNil:[parent versionALabel]]
 
     "Modified: / 21-11-2009 / 07:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-11-2011 / 11:25:09 / cg"
+    "Modified: / 29-11-2011 / 11:26:15 / cg"
 !
 
 versionALabel:aString
@@ -135,10 +135,10 @@
 !
 
 versionBLabel
-    ^ versionBLabel isNil ifTrue:[parent ifNotNil:[parent versionBLabel]]
+    ^ versionBLabel ifNil:[parent ifNotNil:[parent versionBLabel]]
 
     "Modified: / 21-11-2009 / 07:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-11-2011 / 11:25:16 / cg"
+    "Modified: / 29-11-2011 / 11:26:19 / cg"
 !
 
 versionBLabel:aString
@@ -146,12 +146,11 @@
 !
 
 versionBaseLabel
-
-    ^ versionBaseLabel isNil ifTrue:[parent ifNotNil:[parent versionBaseLabel]]
+    ^ versionBaseLabel ifNil:[parent ifNotNil:[parent versionBaseLabel]]
 
     "Created: / 23-11-2009 / 22:54:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 24-11-2009 / 09:21:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-11-2011 / 11:25:21 / cg"
+    "Modified (format): / 29-11-2011 / 11:26:37 / cg"
 !
 
 versionBaseLabel:aString
@@ -241,6 +240,10 @@
 
 !ChangeSetDiffSet class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.4 2011-11-29 10:26:48 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.3 2011-11-29 10:25:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.4 2011-11-29 10:26:48 cg Exp $'
 ! !