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: ClassChange
authorStefan Vogel <sv@exept.de>
Mon, 15 Apr 2013 10:42:41 +0200
changeset 3216 9c175e6d1a7f
parent 3215 b2aed720bfd8
child 3217 bdb39c2074e7
class: ClassChange comment/format in: #className changed: #cutMyNameSpaceOf:
ClassChange.st file | annotate | diff | comparison | revisions 
--- a/ClassChange.st	Sun Apr 14 20:24:14 2013 +0200
+++ b/ClassChange.st	Mon Apr 15 10:42:41 2013 +0200
@@ -390,7 +390,7 @@
 cutMyNameSpaceOf:aString
     |ns|
 
-    aString isNil ifTrue:[ ^ aString ].
+    aString isNil ifTrue:[ ^ nil ].
     (ns := self nameSpaceOverride) isNil ifTrue:[ ^ aString ].
     (aString startsWith:(ns , '.')) ifTrue:[ ^ self cutNameSpaceOf:aString ].
     (aString startsWith:(ns , '::')) ifTrue:[ ^ self cutNameSpaceOf:aString ].
@@ -445,10 +445,10 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.70 2013-04-02 19:21:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.71 2013-04-15 08:42:41 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.70 2013-04-02 19:21:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.71 2013-04-15 08:42:41 stefan Exp $'
 ! !
hg/stx-libbasic3