MCPackage.st
changeset 441 051b9184d951
parent 379 6cbcfe557046
child 542 0a74443b8b71
--- a/MCPackage.st	Tue Aug 23 15:46:54 2011 +0200
+++ b/MCPackage.st	Tue Aug 23 15:47:26 2011 +0200
@@ -37,7 +37,14 @@
 !
 
 packageInfo
-	^ PackageInfo named: name
+
+    ^(Smalltalk allProjectIDs includes: name) ifTrue:[
+        MCStXPackageInfo named: name
+    ] ifFalse:[
+        PackageInfo named: name
+    ]
+
+    "Modified: / 23-08-2011 / 13:31:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 printOn: aStream
@@ -87,11 +94,11 @@
 !MCPackage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.7 2011-08-20 12:31:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.8 2011-08-23 13:47:26 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.7 2011-08-20 12:31:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.8 2011-08-23 13:47:26 vrany Exp $'
 !
 
 version_SVN