Mercurial Mercurial > hg > stx-libtool / 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.
Changed usage of deprecated #copyWithoutLast: to #copyButLast:
authorStefan Vogel <sv@exept.de>
Thu, 25 Apr 2013 15:10:59 +0200
changeset 12710 94aac7b5d592
parent 12709 b6a7b058e665
child 12711 e970bedfb0af
Changed usage of deprecated #copyWithoutLast: to #copyButLast:
Tools_HierarchicalProjectList.st file | annotate | diff | comparison | revisions 
--- a/Tools_HierarchicalProjectList.st	Thu Apr 25 15:10:58 2013 +0200
+++ b/Tools_HierarchicalProjectList.st	Thu Apr 25 15:10:59 2013 +0200
@@ -415,31 +415,31 @@
 
     i:= packageToItemDictionary at:package asSymbol ifAbsent:nil.
     i isNil ifTrue:[
-	i := ProjectItem new.
-	i package:package.
-	packageToItemDictionary at:package asSymbol put:i.
+        i := ProjectItem new.
+        i package:package.
+        packageToItemDictionary at:package asSymbol put:i.
 
-	package size > 0 ifTrue:[
-	    "/ find the parent ...
-	    p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
-	    pp := p copyWithoutLast:1.
-	    l := (pp asStringWith:$/) size.
-	    parentPackage := package copyTo:l.
+        package size > 0 ifTrue:[
+            "/ find the parent ...
+            p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
+            pp := p copyButLast:1.
+            l := (pp asStringWith:$/) size.
+            parentPackage := package copyTo:l.
 
-	    parentItem := self addPackage:parentPackage asSymbol .
+            parentItem := self addPackage:parentPackage asSymbol .
 
-	    parentPackage size == 0 ifTrue:[
-		idx := 1.
-	    ] ifFalse:[
-		idx := parentPackage size + 2
-	    ].
-	    i label:(package copyFrom:idx).
+            parentPackage size == 0 ifTrue:[
+                idx := 1.
+            ] ifFalse:[
+                idx := parentPackage size + 2
+            ].
+            i label:(package copyFrom:idx).
 
-	    parentItem add:i sortBlock:[:i1 :i2 | i1 label asLowercase < i2 label asLowercase].
+            parentItem add:i sortBlock:[:i1 :i2 | i1 label asLowercase < i2 label asLowercase].
 
-	    "/ TODO: special items for classes, resources etc.
+            "/ TODO: special items for classes, resources etc.
         
-	]
+        ]
     ].
     ^ i
 !
@@ -518,10 +518,10 @@
 !HierarchicalProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.11 2013-03-27 19:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.12 2013-04-25 13:10:59 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.11 2013-03-27 19:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalProjectList.st,v 1.12 2013-04-25 13:10:59 stefan Exp $'
 ! !
hg/stx-libtool