equal
deleted
inserted
replaced
887 self searchForClasses do:[:eachClass | |
887 self searchForClasses do:[:eachClass | |
888 |attributes specEntry| |
888 |attributes specEntry| |
889 |
889 |
890 (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[ |
890 (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[ |
891 specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil. |
891 specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil. |
892 specEntry notNil ifTrue:[ |
892 specEntry isNil ifTrue:[ |
|
893 eachClass isLoaded ifFalse:[ |
|
894 attributes := #( autoload ). |
|
895 ]. |
|
896 ] ifFalse:[ |
893 attributes := specEntry copyFrom:2. |
897 attributes := specEntry copyFrom:2. |
894 ]. |
898 ]. |
895 |
899 |
896 s tab. |
900 s tab. |
897 attributes isEmptyOrNil ifTrue:[ |
901 attributes isEmptyOrNil ifTrue:[ |
912 stx_libbasic3 classNamesAndAttributes_code |
916 stx_libbasic3 classNamesAndAttributes_code |
913 " |
917 " |
914 |
918 |
915 "Modified: / 08-08-2006 / 19:24:34 / fm" |
919 "Modified: / 08-08-2006 / 19:24:34 / fm" |
916 "Created: / 17-08-2006 / 21:03:07 / cg" |
920 "Created: / 17-08-2006 / 21:03:07 / cg" |
917 "Modified: / 21-08-2006 / 18:41:25 / cg" |
921 "Modified: / 21-08-2006 / 19:16:14 / cg" |
918 ! |
922 ! |
919 |
923 |
920 extensionMethodNames_code |
924 extensionMethodNames_code |
921 ^ String streamContents:[:s | |
925 ^ String streamContents:[:s | |
922 s nextPutLine:'extensionMethodNames'. |
926 s nextPutLine:'extensionMethodNames'. |
952 ! ! |
956 ! ! |
953 |
957 |
954 !LibraryDefinition class methodsFor:'documentation'! |
958 !LibraryDefinition class methodsFor:'documentation'! |
955 |
959 |
956 version |
960 version |
957 ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.36 2006-08-21 17:11:34 cg Exp $' |
961 ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.37 2006-08-21 17:16:16 cg Exp $' |
958 ! ! |
962 ! ! |