--- a/extensions.st Wed Feb 25 01:12:38 2015 +0100
+++ b/extensions.st Wed Feb 25 01:14:48 2015 +0100
@@ -167,12 +167,14 @@
cats isEmpty ifTrue:[
^ 'Misc_Changes'
].
- longest := cats inject:cats anElement
+ longest := cats
+ inject:cats anElement
into:[:cat :each |
each size > cat size ifTrue:[
each
] ifFalse:[ cat ]
].
+
prefix := ''.
[
(index := longest indexOf:$- startingAt:prefix size + 2) ~~ 0
@@ -185,8 +187,10 @@
nm notNil ifTrue:[
^ nm
].
- self
- error:'Cannot infer Monticello package name from class categories. Please define #mcName explicitly'
+ ^ self package asString copyReplaceAny:':/' with:$_.
+
+"/ self
+"/ error:'Cannot infer Monticello package name from class categories. Please define #mcName explicitly'
"Created: / 29-05-2013 / 01:36:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 23-06-2013 / 21:12:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -470,6 +474,6 @@
!stx_goodies_monticello class methodsFor:'documentation'!
extensionsVersion_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.26 2014-12-21 13:07:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.27 2015-02-25 00:14:48 cg Exp $'
! !