"{ Package: 'stx:goodies/monticello' }"

PackageInfo subclass:#MCStXPackageInfo

	instanceVariableNames:'projectDefinition classes'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-St/X support'

!

!MCStXPackageInfo methodsFor:'accessing'!

classes

    classes isNil ifTrue:[

        classes := self projectDefinition classes.

        "/ cg: not true; the projectDefinition is part of the package; at least for st/x packages.

        "/ classes remove: self projectDefinition ifAbsent:[].

        (classes includes:nil) ifTrue:[

            "/ some classes are not present - usually, these are architecture spcific classes

            "/ which are not present in this image (such as XWorkstation vs. WinWorkstation).

            "/ should do a query signal here, to get this info, instead of doing UI here..

            (Dialog confirm:'Not all classes as defined in the package are present in your image.\Typically, these are architecture or OS specific classes.\If you proceed, those classes will be missing in the enerated package file.\\Proceed?' withCRs)

            ifFalse:[

                AbortSignal raise

            ].

            classes := classes select:[:cls | cls notNil].

        ].

    ].

    ^classes

    "Created: / 23-08-2011 / 11:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 02-12-2011 / 15:56:35 / cg"

!

extensionMethods

    self assert:(self projectDefinition hasAllExtensionsLoaded).

    ^self projectDefinition extensionMethods

        collect:[:mthd|

            self assert:mthd notNil.

            self

                referenceForMethod: mthd selector

                ofClass:mthd mclass

        ]

    "Created: / 23-08-2011 / 11:58:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 27-08-2012 / 12:12:55 / cg"

!

projectDefinition

    projectDefinition isNil ifTrue:[

        projectDefinition := 

            (LibraryDefinition

                definitionClassForPackage: name

                createIfAbsent: true 

                projectType: nil)

    ].

    ^projectDefinition

    "Created: / 23-08-2011 / 13:37:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

systemCategories

    | cats |

    cats := Set new.

    self classes do:[:cls|cats add: cls category].

    ^cats

    "Created: / 23-08-2011 / 13:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCStXPackageInfo class methodsFor:'documentation'!

version

!

version_CVS

!

version_MC

! !