FileVersionDiffBrowser.st
changeset 3754 0ec001ff25a7
parent 3743 dd619d41915a
child 3807 8f68f4fb0756
equal deleted inserted replaced
3753:eb97ded9cc8e 3754:0ec001ff25a7
  1333         revisionEntries add:(
  1333         revisionEntries add:(
  1334                     (eachVersionInfo revision)
  1334                     (eachVersionInfo revision)
  1335                     , ((' (by %2 at %3)' 
  1335                     , ((' (by %2 at %3)' 
  1336                         bindWith:(eachVersionInfo revision)
  1336                         bindWith:(eachVersionInfo revision)
  1337                         with:(eachVersionInfo user)
  1337                         with:(eachVersionInfo user)
  1338                         with:(eachVersionInfo date)) withColor:Color grey)).
  1338                         with:(eachVersionInfo date)) allGray)).
  1339     ].
  1339     ].
  1340 
  1340 
  1341     revisions size < numOverallRevisions ifTrue:[
  1341     revisions size < numOverallRevisions ifTrue:[
  1342         revisions add:'...'.
  1342         revisions add:'...'.
  1343         revisionEntries add:'...'.
  1343         revisionEntries add:'...'.
  1355 
  1355 
  1356                     eachSymbolic = '-' ifTrue:[
  1356                     eachSymbolic = '-' ifTrue:[
  1357                         eachSymbolic.
  1357                         eachSymbolic.
  1358                     ] ifFalse:[    
  1358                     ] ifFalse:[    
  1359                         versionsString := symbolicToVersionMapping at:eachSymbolic ifAbsent:'<<none>>'.
  1359                         versionsString := symbolicToVersionMapping at:eachSymbolic ifAbsent:'<<none>>'.
  1360                         eachSymbolic,((' (',versionsString,')') withColor:Color grey)
  1360                         eachSymbolic,((' (',versionsString,')') allGray)
  1361                     ]
  1361                     ]
  1362                 ]).
  1362                 ]).
  1363     self versionList contents:revisions.
  1363     self versionList contents:revisions.
  1364     self versionEntriesList contents:revisionEntries.
  1364     self versionEntriesList contents:revisionEntries.
  1365     infoHolder value:'Done.'.
  1365     infoHolder value:'Done.'.