2146 |
2146 |
2147 classCategoryCheckinEach |
2147 classCategoryCheckinEach |
2148 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
2148 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
2149 |
2149 |
2150 self withBusyCursorDo:[ |
2150 self withBusyCursorDo:[ |
2151 |logMessage classes| |
2151 |logMessage classes allSelected| |
|
2152 |
|
2153 allSelected := (currentClassCategory = '* all *' |
|
2154 or:[currentClassCategory = '* hierarchy *']). |
2152 |
2155 |
2153 logMessage := SourceCodeManagerUtilities |
2156 logMessage := SourceCodeManagerUtilities |
2154 getLogMessageFor:(resources |
2157 getLogMessageFor:(resources |
2155 string:'(any in classCategory ''%1'')' |
2158 string:(allSelected ifTrue:['all classes'] ifFalse:[' any in classCategory ''%1''']) |
2156 with:currentClassCategory). |
2159 with:currentClassCategory). |
2157 |
2160 |
2158 logMessage notNil ifTrue:[ |
2161 logMessage notNil ifTrue:[ |
2159 (currentClassCategory = '* all *' |
2162 allSelected ifTrue:[ |
2160 or:[currentClassCategory = '* hierarchy *']) ifTrue:[ |
|
2161 classes := self allClasses |
2163 classes := self allClasses |
2162 ] ifFalse:[ |
2164 ] ifFalse:[ |
2163 classes := self allClassesInCategory:currentClassCategory. |
2165 classes := self allClassesInCategory:currentClassCategory. |
2164 ]. |
2166 ]. |
2165 |
2167 classes := classes select:[:eachClass | eachClass isPrivate not]. |
2166 SourceCodeManagerUtilities |
2168 self halt. |
2167 checkinClasses:classes withLog:logMessage. |
2169 SourceCodeManagerUtilities checkinClasses:classes withLog:logMessage. |
2168 ]. |
2170 ]. |
2169 self normalLabel. |
2171 self normalLabel. |
2170 ] |
2172 ] |
2171 |
2173 |
2172 "Created: 23.11.1995 / 11:41:38 / cg" |
2174 "Created: 23.11.1995 / 11:41:38 / cg" |
5010 "Created: / 14.11.1995 / 16:43:15 / cg" |
5012 "Created: / 14.11.1995 / 16:43:15 / cg" |
5011 "Modified: / 10.2.2000 / 14:14:09 / cg" |
5013 "Modified: / 10.2.2000 / 14:14:09 / cg" |
5012 ! ! |
5014 ! ! |
5013 |
5015 |
5014 !BrowserView methodsFor:'class stuff'! |
5016 !BrowserView methodsFor:'class stuff'! |
|
5017 |
|
5018 allClasses |
|
5019 |classes| |
|
5020 |
|
5021 currentNamespace = '* all *' ifTrue:[ |
|
5022 ^ Smalltalk allClasses |
|
5023 ]. |
|
5024 |
|
5025 classes := Set new. |
|
5026 |
|
5027 (self listOfNamespaces) do:[:aNamespace | |
|
5028 aNamespace allBehaviorsDo:[:aClass | |
|
5029 |actualNamespace nm| |
|
5030 |
|
5031 aClass isMeta ifFalse:[ |
|
5032 (aClass isNameSpace not |
|
5033 or:[aClass == Smalltalk]) ifTrue:[ |
|
5034 actualNamespace := aClass nameSpace. |
|
5035 (actualNamespace isNameSpace not "/ a private class |
|
5036 or:[actualNamespace == aNamespace]) ifTrue:[ |
|
5037 classes add:aClass |
|
5038 ] |
|
5039 ] |
|
5040 ] |
|
5041 ] |
|
5042 ]. |
|
5043 ^ classes |
|
5044 ! |
5015 |
5045 |
5016 allClassesInCategory:aCategory |
5046 allClassesInCategory:aCategory |
5017 |classes| |
5047 |classes| |
5018 |
5048 |
5019 currentNamespace = '* all *' ifTrue:[ |
5049 currentNamespace = '* all *' ifTrue:[ |