equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2000 by eXept Software AG |
2 COPYRIGHT (c) 2000 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3201 filteredList do:[:entry| |
3199 filteredList do:[:entry| |
3202 |string| |
3200 |string| |
3203 |
3201 |
3204 string := printStringGenerator value:(entry first). |
3202 string := printStringGenerator value:(entry first). |
3205 (entryIsForCommentOrFormatOnly value:entry) ifTrue:[ |
3203 (entryIsForCommentOrFormatOnly value:entry) ifTrue:[ |
3206 string := string withColor:Color grey. |
3204 string := string allGray. |
3207 ]. |
3205 ]. |
3208 listChanged add:string |
3206 listChanged add:string |
3209 ]. |
3207 ]. |
3210 ]. |
3208 ]. |
3211 ]. |
3209 ]. |
3327 revisionEntries add:( |
3325 revisionEntries add:( |
3328 (eachVersionInfo revision) |
3326 (eachVersionInfo revision) |
3329 , ((' (by %2 at %3)' |
3327 , ((' (by %2 at %3)' |
3330 bindWith:(eachVersionInfo revision) |
3328 bindWith:(eachVersionInfo revision) |
3331 with:(eachVersionInfo user) |
3329 with:(eachVersionInfo user) |
3332 with:(eachVersionInfo date)) withColor:Color grey)). |
3330 with:(eachVersionInfo date)) allGray)). |
3333 ]. |
3331 ]. |
3334 |
3332 |
3335 revisions size < numOverallRevisions ifTrue:[ |
3333 revisions size < numOverallRevisions ifTrue:[ |
3336 revisions add:'...'. |
3334 revisions add:'...'. |
3337 revisionEntries add:'...'. |
3335 revisionEntries add:'...'. |
3349 |
3347 |
3350 eachSymbolic = '-' ifTrue:[ |
3348 eachSymbolic = '-' ifTrue:[ |
3351 eachSymbolic. |
3349 eachSymbolic. |
3352 ] ifFalse:[ |
3350 ] ifFalse:[ |
3353 versionsString := symbolicToVersionMapping at:eachSymbolic ifAbsent:'<<none>>'. |
3351 versionsString := symbolicToVersionMapping at:eachSymbolic ifAbsent:'<<none>>'. |
3354 eachSymbolic,((' (',versionsString,')') withColor:Color grey) |
3352 eachSymbolic,((' (',versionsString,')') allGray) |
3355 ] |
3353 ] |
3356 ]). |
3354 ]). |
3357 self versionList contents:revisions. |
3355 self versionList contents:revisions. |
3358 self versionEntriesList contents:revisionEntries. |
3356 self versionEntriesList contents:revisionEntries. |
3359 infoHolder value:'Done.'. |
3357 infoHolder value:'Done.'. |
4343 m := m originalMethodIfWrapped. |
4341 m := m originalMethodIfWrapped. |
4344 selectorString := m printStringForBrowserWithSelector:aChange changeSelector inClass:aChange changeClass. |
4342 selectorString := m printStringForBrowserWithSelector:aChange changeSelector inClass:aChange changeClass. |
4345 ]. |
4343 ]. |
4346 ]. |
4344 ]. |
4347 changeClassName notEmptyOrNil ifTrue:[ |
4345 changeClassName notEmptyOrNil ifTrue:[ |
4348 selectorString := ' » ',selectorString |
4346 selectorString := ' » ',selectorString |
4349 ] |
4347 ] |
4350 ]. |
4348 ]. |
4351 |
4349 |
4352 printString := changeClassName,classOrMetaString,selectorString. |
4350 printString := changeClassName,classOrMetaString,selectorString. |
4353 aChange isMethodCategoryChange ifTrue:[ |
4351 aChange isMethodCategoryChange ifTrue:[ |