--- a/VersionDiffBrowser.st Tue Aug 22 00:45:50 2000 +0200
+++ b/VersionDiffBrowser.st Tue Aug 22 12:55:30 2000 +0200
@@ -121,7 +121,7 @@
#(#SpecCollection
#collection: #(
#(#LabelSpec
- #label: 'Only in A (i.e. removed)'
+ #label: 'Only in A'
#name: 'OnlyInALabel'
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
#translateLabel: true
@@ -181,7 +181,7 @@
#(#SpecCollection
#collection: #(
#(#LabelSpec
- #label: 'Only in B (i.e. added)'
+ #label: 'Only in B'
#name: 'OnlyInBLabel'
#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 20 0)
#translateLabel: true
@@ -1302,12 +1302,12 @@
builder := self builder.
(theVersionA := self versionA) notNil ifTrue:[
self diffTextLabelA value:theVersionA.
- self onlyInALabelHolder value:('Only in ' , theVersionA , ' (i.e. removed)').
+ self onlyInALabelHolder value:('Only in ' , theVersionA).
(builder componentAt:#OnlyInALabel) backgroundColor:Color green darkened.
].
(theVersionB :=self versionB) notNil ifTrue:[
self diffTextLabelB value:theVersionB.
- self onlyInBLabelHolder value:('Only in ' , theVersionB , ' (i.e. added)').
+ self onlyInBLabelHolder value:('Only in ' , theVersionB).
(builder componentAt:#OnlyInBLabel) backgroundColor:Color red darkened.
].
!
@@ -1688,5 +1688,5 @@
!VersionDiffBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.29 2000-08-21 22:45:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.30 2000-08-22 10:55:30 cg Exp $'
! !