LibraryDefinition.st
branchjv
changeset 18042 2aa6ef1820fe
parent 18040 a11a12546f23
parent 14980 7debf39501f8
child 18120 e3a375d5f6a8
equal deleted inserted replaced
18041:d17dbf11e306 18042:2aa6ef1820fe
   661 ! !
   661 ! !
   662 
   662 
   663 
   663 
   664 !LibraryDefinition class methodsFor:'queries'!
   664 !LibraryDefinition class methodsFor:'queries'!
   665 
   665 
   666 canHaveExtensions
       
   667     "return true, if this class allows extensions from other packages.
       
   668      Private classes, namespaces and projectDefinitions don't allow this"
       
   669 
       
   670     ^ self == LibraryDefinition
       
   671 
       
   672     "
       
   673      Smalltalk allClasses select:[:each | each canHaveExtensions not]
       
   674     "
       
   675 
       
   676     "Created: / 30-08-2006 / 15:29:53 / cg"
       
   677 !
       
   678 
       
   679 projectType
   666 projectType
   680     ^ LibraryType
   667     ^ LibraryType
   681 ! !
   668 ! !
   682 
   669 
   683 
   670 
   717 isAbstract
   704 isAbstract
   718     ^ self == LibraryDefinition
   705     ^ self == LibraryDefinition
   719 !
   706 !
   720 
   707 
   721 isLibraryDefinition
   708 isLibraryDefinition
   722     ^ self ~~ LibraryDefinition
   709     ^ self isAbstract not
   723 
   710 
   724     "
   711     "
   725      stx_libboss isLibraryDefinition
   712      stx_libboss isLibraryDefinition
   726      ProjectDefinition isLibraryDefinition
   713      ProjectDefinition isLibraryDefinition
   727      LibraryDefinition isLibraryDefinition
   714      LibraryDefinition isLibraryDefinition
   728     "
   715     "
   729 
   716 
   730     "Created: / 23-08-2006 / 15:17:50 / cg"
   717     "Created: / 23-08-2006 / 15:17:50 / cg"
   731 !
       
   732 
       
   733 isProjectDefinition
       
   734     ^ self ~~ LibraryDefinition "/ skip myself - I am abstract
       
   735 
       
   736     "
       
   737      stx_libboss isProjectDefinition
       
   738      ProjectDefinition isProjectDefinition
       
   739     "
       
   740 
       
   741     "Created: / 17-08-2006 / 14:11:46 / cg"
       
   742     "Modified: / 08-02-2011 / 10:03:42 / cg"
       
   743 ! !
   718 ! !
   744 
   719 
   745 
   720 
   746 !LibraryDefinition class methodsFor:'documentation'!
   721 !LibraryDefinition class methodsFor:'documentation'!
   747 
   722 
   748 version
   723 version
   749     ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.117 2013-03-25 12:16:02 stefan Exp $'
   724     ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.118 2013-03-27 12:18:12 stefan Exp $'
   750 !
   725 !
   751 
   726 
   752 version_CVS
   727 version_CVS
   753     ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.117 2013-03-25 12:16:02 stefan Exp $'
   728     ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.118 2013-03-27 12:18:12 stefan Exp $'
   754 ! !
   729 ! !
   755 
   730