equal
deleted
inserted
replaced
2058 ^ implementors |
2058 ^ implementors |
2059 |
2059 |
2060 " |
2060 " |
2061 Smalltalk allImplementorsOf:#isNil |
2061 Smalltalk allImplementorsOf:#isNil |
2062 (Smalltalk allImplementorsOf:#add:) size |
2062 (Smalltalk allImplementorsOf:#add:) size |
|
2063 " |
|
2064 ! |
|
2065 |
|
2066 allProjectIDs |
|
2067 |allProjects| |
|
2068 |
|
2069 allProjects := Set new. |
|
2070 self allClassesDo:[:eachClass | |
|
2071 |cls pkg| |
|
2072 |
|
2073 cls := eachClass theNonMetaclass. |
|
2074 |
|
2075 pkg := cls package. |
|
2076 pkg "withoutSeparators" size > 0 ifTrue:[ |
|
2077 allProjects add:pkg. |
|
2078 ] ifFalse:[ |
|
2079 "/ for now, nameSpaces are not in any package; |
|
2080 "/ this might change. Then, 0-sized packages are |
|
2081 "/ illegal, and the following should be enabled. |
|
2082 "/ self halt |
|
2083 ]. |
|
2084 cls isJavaClass ifFalse:[ |
|
2085 cls instAndClassSelectorsAndMethodsDo:[:sel :mthd | |
|
2086 allProjects add:mthd package asSymbol. |
|
2087 ]. |
|
2088 ]. |
|
2089 ]. |
|
2090 allProjects := allProjects asOrderedCollection sort. |
|
2091 ^ allProjects |
|
2092 |
|
2093 " |
|
2094 Smalltalk allProjectIDs |
2063 " |
2095 " |
2064 ! |
2096 ! |
2065 |
2097 |
2066 cellAt:aName |
2098 cellAt:aName |
2067 "{ Pragma: +optSpace }" |
2099 "{ Pragma: +optSpace }" |
6702 ! ! |
6734 ! ! |
6703 |
6735 |
6704 !Smalltalk class methodsFor:'documentation'! |
6736 !Smalltalk class methodsFor:'documentation'! |
6705 |
6737 |
6706 version |
6738 version |
6707 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.721 2006-03-06 13:58:40 cg Exp $' |
6739 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.722 2006-03-06 18:47:14 cg Exp $' |
6708 ! ! |
6740 ! ! |