equal
deleted
inserted
replaced
519 |
519 |
520 stopAsking := dialog allowEmptyLogMessage |
520 stopAsking := dialog allowEmptyLogMessage |
521 or:[ (dialog logMessage) withoutSeparators notEmptyOrNil ]. |
521 or:[ (dialog logMessage) withoutSeparators notEmptyOrNil ]. |
522 stopAsking ifFalse:[ |
522 stopAsking ifFalse:[ |
523 warnMessage := (self resources string:'Please enter a description of your changes!!') |
523 warnMessage := (self resources string:'Please enter a description of your changes!!') |
524 asText |
524 withColor:Color red. |
525 colorizeAllWith:Color red. |
|
526 ]. |
525 ]. |
527 stopAsking |
526 stopAsking |
528 ]. |
527 ]. |
529 LastReason := dialog checkinReason. |
528 LastReason := dialog checkinReason. |
530 ^ dialog |
529 ^ dialog |