PerforceSourceCodeManagerUtilities.st
branchjv
changeset 16571 cf319f2e56d0
parent 16213 f667b5b42a11
parent 16519 0a978c516824
child 16717 814e3fa20205
equal deleted inserted replaced
16570:dc5e958a20dc 16571:cf319f2e56d0
   948         |stopAsking|
   948         |stopAsking|
   949 
   949 
   950         stopAsking := dialog allowEmptyLogMessage 
   950         stopAsking := dialog allowEmptyLogMessage 
   951                       or:[ dialog logMessage withoutSeparators notEmptyOrNil ].
   951                       or:[ dialog logMessage withoutSeparators notEmptyOrNil ].
   952         stopAsking ifFalse:[
   952         stopAsking ifFalse:[
   953             warnMessage := (self resources string:'Please enter a description of your changes!!') 
   953             warnMessage := (self resources 
   954                                 asText 
   954                                 string:'Please enter a description of your changes!!') 
   955                                     colorizeAllWith:Color red.
   955                                     withColor:Color red.
   956         ].
   956         ].
   957         stopAsking
   957         stopAsking
   958     ].
   958     ].
   959     ^ dialog    
   959     ^ dialog    
   960 
   960 
  1337         |stopAsking|
  1337         |stopAsking|
  1338 
  1338 
  1339         stopAsking := dialog allowEmptyLogMessage 
  1339         stopAsking := dialog allowEmptyLogMessage 
  1340                       or:[ dialog logMessage withoutSeparators notEmptyOrNil ].
  1340                       or:[ dialog logMessage withoutSeparators notEmptyOrNil ].
  1341         stopAsking ifFalse:[
  1341         stopAsking ifFalse:[
  1342             warnMessage := (self resources string:'Please enter a description of your changes!!') 
  1342             warnMessage := (self resources 
  1343                                 asText 
  1343                                 string:'Please enter a description of your changes!!') 
  1344                                     colorizeAllWith:Color red.
  1344                                     withColor:Color red.
  1345         ].
  1345         ].
  1346         stopAsking
  1346         stopAsking
  1347     ].
  1347     ].
  1348     ^ dialog    
  1348     ^ dialog    
  1349 
  1349 
  1374         |stopAsking|
  1374         |stopAsking|
  1375 
  1375 
  1376         stopAsking := dialog allowEmptyLogMessage 
  1376         stopAsking := dialog allowEmptyLogMessage 
  1377                       or:[ dialog logMessage withoutSeparators notEmptyOrNil ].
  1377                       or:[ dialog logMessage withoutSeparators notEmptyOrNil ].
  1378         stopAsking ifFalse:[
  1378         stopAsking ifFalse:[
  1379             warnMessage := (self resources string:'Please enter a description of your changes!!') 
  1379             warnMessage := (self resources 
  1380                                 asText 
  1380                                 string:'Please enter a description of your changes!!') 
  1381                                     colorizeAllWith:Color red.
  1381                                     withColor:Color red.
  1382         ].
  1382         ].
  1383         stopAsking
  1383         stopAsking
  1384     ].
  1384     ].
  1385     ^ dialog    
  1385     ^ dialog    
  1386 
  1386