LibraryDefinition.st
changeset 9586 eb87399baea3
parent 9582 8753d32d0969
child 9590 4b6cfa035ecb
equal deleted inserted replaced
9585:b26c46ba7c2e 9586:eb87399baea3
    48 
    48 
    49     self module = 'stx' ifTrue:[
    49     self module = 'stx' ifTrue:[
    50         ^ 'Smalltalk/X Class library'
    50         ^ 'Smalltalk/X Class library'
    51     ].
    51     ].
    52 
    52 
    53     self subclassResponsibility
    53     ^ 'Class Library'
    54 
    54 
    55     "Created: / 17-08-2006 / 20:52:16 / cg"
    55     "Created: / 17-08-2006 / 20:52:16 / cg"
       
    56     "Modified: / 18-08-2006 / 16:15:53 / cg"
    56 ! !
    57 ! !
    57 
    58 
    58 !LibraryDefinition class methodsFor:'file generation'!
    59 !LibraryDefinition class methodsFor:'file generation'!
    59 
    60 
    60 fileNamesToGenerate
    61 fileNamesToGenerate
   899 
   900 
   900     "Created: / 17-08-2006 / 21:21:48 / cg"
   901     "Created: / 17-08-2006 / 21:21:48 / cg"
   901 !
   902 !
   902 
   903 
   903 forEachMethodsCodeToCompileDo:aTwoArgBlock
   904 forEachMethodsCodeToCompileDo:aTwoArgBlock
       
   905     super forEachMethodsCodeToCompileDo:aTwoArgBlock.
       
   906 
   904     aTwoArgBlock 
   907     aTwoArgBlock 
   905         value:self autoloadedClassNames_code
   908         value:self autoloadedClassNames_code
   906         value:'description'.
   909         value:'description'.
   907 
   910 
   908    aTwoArgBlock
   911     aTwoArgBlock
   909         value: self classNames_code
   912         value: self classNames_code
   910         value: 'description'.
   913         value: 'description'.
   911 
   914 
   912    (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
   915     (self theMetaclass includesSelector:#excluded_classNames) ifFalse:[
   913        aTwoArgBlock
   916         aTwoArgBlock
   914             value: 'excluded_classNames\^ #()' withCRs
   917             value: 'excluded_classNames\^ #()' withCRs
   915             value: 'description'.
   918             value: 'description'.
   916    ].
   919     ].
   917 
   920 
   918    aTwoArgBlock 
   921     aTwoArgBlock 
   919         value: self extensionMethodNames_code
   922         value: self extensionMethodNames_code
   920         value: 'description'.
   923         value: 'description'.
   921 
   924 
   922    aTwoArgBlock 
       
   923         value: self description_code
       
   924         value: 'description - project information'.
       
   925 
       
   926     "Created: / 10-08-2006 / 16:35:47 / cg"
   925     "Created: / 10-08-2006 / 16:35:47 / cg"
   927     "Modified: / 17-08-2006 / 21:22:26 / cg"
   926     "Modified: / 18-08-2006 / 16:22:49 / cg"
   928 ! !
   927 ! !
   929 
   928 
   930 !LibraryDefinition class methodsFor:'documentation'!
   929 !LibraryDefinition class methodsFor:'documentation'!
   931 
   930 
   932 version
   931 version
   933     ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.24 2006-08-18 13:42:15 cg Exp $'
   932     ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.25 2006-08-18 14:23:48 cg Exp $'
   934 ! !
   933 ! !