class: MCPackage
authorClaus Gittinger <cg@exept.de>
Thu, 27 Mar 2014 21:44:08 +0100
changeset 920 3d0f65b1ab71
parent 919 0d9ef7572d08
child 921 dda5a9038a51
class: MCPackage fixed: #isStXPackage
MCPackage.st
--- a/MCPackage.st	Sat Mar 01 23:43:05 2014 +0100
+++ b/MCPackage.st	Thu Mar 27 21:44:08 2014 +0100
@@ -115,7 +115,10 @@
 !MCPackage methodsFor:'testing'!
 
 isStXPackage
-    ^(ProjectDefinition definitionClassForPackage: name) notNil.
+    |c|
+
+    ^(c := ProjectDefinition definitionClassForPackage: name) notNil
+      and:[c isProjectDefinition].
 
     "Created: / 29-05-2013 / 01:46:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -123,14 +126,14 @@
 !MCPackage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.16 2013-06-22 22:22:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.16 2013-06-22 22:22:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCPackage.st,v 1.16 2013-06-22 22:22:00 vrany Exp $'
+    ^ '$Id: MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $'
 ! !