8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
|
13 |
|
14 "{ Package: 'stx:libbasic3' }" |
13 |
15 |
14 Object subclass:#SourceCodeManagerUtilities |
16 Object subclass:#SourceCodeManagerUtilities |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'LastSourceLogMessage LastModule LastPackage' |
18 classVariableNames:'LastSourceLogMessage LastModule LastPackage' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
152 self information:'cannot checkin unloaded classes (' , aClass name , ').'. |
154 self information:'cannot checkin unloaded classes (' , aClass name , ').'. |
153 ^ false. |
155 ^ false. |
154 ]. |
156 ]. |
155 |
157 |
156 aLogMessageOrNil isNil ifTrue:[ |
158 aLogMessageOrNil isNil ifTrue:[ |
157 logMessage := SourceCodeManagerUtilities getLogMessageFor:aClass name. |
159 logMessage := SourceCodeManagerUtilities getLogMessageFor:aClass name asText allBold. |
158 logMessage isNil ifTrue:[^ self]. |
160 logMessage isNil ifTrue:[^ self]. |
159 ] ifFalse:[ |
161 ] ifFalse:[ |
160 logMessage := aLogMessageOrNil |
162 logMessage := aLogMessageOrNil |
161 ]. |
163 ]. |
162 |
164 |
216 ]. |
218 ]. |
217 ]. |
219 ]. |
218 ^ true |
220 ^ true |
219 ! |
221 ! |
220 |
222 |
221 checkinClasses:aClass |
223 checkinClasses:aCollectionOfClass |
222 "check a collection of classes into the source repository. |
224 "check a collection of classes into the source repository. |
223 Asks interactively for log-message." |
225 Asks interactively for log-message." |
224 |
226 |
225 ^ self checkinClasses:aClass withLog:nil |
227 ^ self checkinClasses:aCollectionOfClass withLog:nil |
226 ! |
228 ! |
227 |
229 |
228 checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil |
230 checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil |
229 "check a bunch of classes into the source repository. |
231 "check a bunch of classes into the source repository. |
230 If the argument, aLogMessageOrNil isNil, ask interactively for log-message." |
232 If the argument, aLogMessageOrNil isNil, ask interactively for log-message." |
231 |
233 |
232 |classes logMessage resources| |
234 |classes logMessage resources| |
233 |
235 |
|
236 "/ ignore private classes |
|
237 classes := aCollectionOfClasses select:[:aClass | aClass owningClass isNil]. |
|
238 classes isEmpty ifTrue:[ |
|
239 self information:'Only private classes given - nothing checked in.'. |
|
240 ^ self |
|
241 ]. |
|
242 classes := classes select:[:aClass | aClass isLoaded]. |
|
243 classes isEmpty ifTrue:[ |
|
244 self information:'Only unloaded classes given - nothing checked in.'. |
|
245 ^ self |
|
246 ]. |
|
247 |
234 resources := ResourcePack for:self. |
248 resources := ResourcePack for:self. |
235 |
249 |
236 (logMessage := aLogMessageOrNil) isNil ifTrue:[ |
250 (logMessage := aLogMessageOrNil) isNil ifTrue:[ |
237 logMessage := SourceCodeManagerUtilities getLogMessageFor:(resources string:'classes to checkin'). |
251 logMessage := SourceCodeManagerUtilities getLogMessageFor:(resources string:'classes to checkin'). |
238 ]. |
252 ]. |
239 |
|
240 "/ ignore private classes |
|
241 classes := aCollectionOfClasses select:[:aClass | aClass owningClass isNil]. |
|
242 |
253 |
243 classes do:[:aClass | |
254 classes do:[:aClass | |
244 self activityNotification:(resources string:'checking in %1' with:aClass name). |
255 self activityNotification:(resources string:'checking in %1' with:aClass name). |
245 "/ ca does not want boxes to pop up all over ... |
256 "/ ca does not want boxes to pop up all over ... |
246 InformationSignal handle:[:ex | |
257 InformationSignal handle:[:ex | |