class: Tools::HierarchicalPackageFilterList
changed: #addPackage:
use new copyButLast
--- a/Tools__HierarchicalPackageFilterList.st Fri Jul 04 12:28:25 2014 +0200
+++ b/Tools__HierarchicalPackageFilterList.st Fri Jul 04 12:28:31 2014 +0200
@@ -262,7 +262,7 @@
package size > 0 ifTrue:[
"/ find the parent ...
p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
- pp := p copyButLast:1.
+ pp := p copyButLast.
l := (pp asStringWith:$/) size.
parentPackage := package copyTo:l.
@@ -302,7 +302,7 @@
!HierarchicalPackageFilterList::PackageItem class methodsFor:'documentation'!
version
- ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.6 2014-05-23 08:16:49 stefan Exp $'
+ ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.7 2014-07-04 10:28:31 cg Exp $'
! !
!HierarchicalPackageFilterList::PackageItem class methodsFor:'image specs'!
@@ -488,10 +488,10 @@
!HierarchicalPackageFilterList class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.6 2014-05-23 08:16:49 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.7 2014-07-04 10:28:31 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__HierarchicalPackageFilterList.st,v 1.6 2014-05-23 08:16:49 stefan Exp $'
+ ^ '$Id: Tools__HierarchicalPackageFilterList.st,v 1.7 2014-07-04 10:28:31 cg Exp $'
! !