equal
deleted
inserted
replaced
3249 getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock |
3249 getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock |
3250 "open a dialog, asking for commit/checkin log info. |
3250 "open a dialog, asking for commit/checkin log info. |
3251 Returns 2 values: a log message and additional checkinInfo (containing things like |
3251 Returns 2 values: a log message and additional checkinInfo (containing things like |
3252 markAsStable, etc,)" |
3252 markAsStable, etc,)" |
3253 |
3253 |
3254 |initialLogMessage checkinInfo logMessage| |
3254 |initialLogMessage checkinInfo reasonLine logMessage| |
3255 |
3255 |
3256 "/ heuristics for a useful initial log message... |
3256 "/ heuristics for a useful initial log message... |
3257 aLogInfoOrNil isNil ifTrue:[ |
3257 aLogInfoOrNil isNil ifTrue:[ |
3258 initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''. |
3258 initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''. |
3259 "/ initial checkin ? |
3259 "/ initial checkin ? |
3263 checkinInfo := self |
3263 checkinInfo := self |
3264 getCheckinInfoFor:aClass name |
3264 getCheckinInfoFor:aClass name |
3265 initialAnswer:initialLogMessage. |
3265 initialAnswer:initialLogMessage. |
3266 checkinInfo isNil ifTrue:[^ false]. |
3266 checkinInfo isNil ifTrue:[^ false]. |
3267 logMessage := checkinInfo logMessage. |
3267 logMessage := checkinInfo logMessage. |
|
3268 |
|
3269 reasonLine := '#OTHER'. |
|
3270 checkinInfo checkinReason == Tools::CheckinInfoDialog reasonBugfix ifTrue:[ |
|
3271 reasonLine := '#BUGFIX' |
|
3272 ] ifFalse:[ |
|
3273 checkinInfo checkinReason == Tools::CheckinInfoDialog reasonFeature ifTrue:[ |
|
3274 reasonLine := '#FEATURE' |
|
3275 ] ifFalse:[ |
|
3276 checkinInfo checkinReason == Tools::CheckinInfoDialog reasonRefactoring ifTrue:[ |
|
3277 reasonLine := '#REFACTORING' |
|
3278 ] |
|
3279 ] |
|
3280 ] |
3268 ] ifFalse:[ |
3281 ] ifFalse:[ |
3269 aLogInfoOrNil isString ifTrue:[ |
3282 aLogInfoOrNil isString ifTrue:[ |
3270 "soon obsolete..." |
3283 "soon obsolete..." |
3271 logMessage := aLogInfoOrNil |
3284 logMessage := aLogInfoOrNil |
3272 ] ifFalse:[ |
3285 ] ifFalse:[ |
3274 logMessage := checkinInfo logMessage. |
3287 logMessage := checkinInfo logMessage. |
3275 ]. |
3288 ]. |
3276 ]. |
3289 ]. |
3277 logMessage notNil ifTrue:[ |
3290 logMessage notNil ifTrue:[ |
3278 logMessage := logMessage asSingleByteStringReplaceInvalidWith:$? |
3291 logMessage := logMessage asSingleByteStringReplaceInvalidWith:$? |
|
3292 ]. |
|
3293 reasonLine notNil ifTrue:[ |
|
3294 logMessage := reasonLine , '\' withCRs , (logMessage ? '') |
3279 ]. |
3295 ]. |
3280 aBlock value:logMessage value:checkinInfo. |
3296 aBlock value:logMessage value:checkinInfo. |
3281 ^ true |
3297 ^ true |
3282 ! |
3298 ! |
3283 |
3299 |