equal
deleted
inserted
replaced
119 #visibilityChannel: #boxAVisible |
119 #visibilityChannel: #boxAVisible |
120 #component: |
120 #component: |
121 #(#SpecCollection |
121 #(#SpecCollection |
122 #collection: #( |
122 #collection: #( |
123 #(#LabelSpec |
123 #(#LabelSpec |
124 #label: 'Only in A (i.e. removed)' |
124 #label: 'Only in A' |
125 #name: 'OnlyInALabel' |
125 #name: 'OnlyInALabel' |
126 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 20 0) |
126 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 20 0) |
127 #translateLabel: true |
127 #translateLabel: true |
128 #labelChannel: #onlyInALabelHolder |
128 #labelChannel: #onlyInALabelHolder |
129 ) |
129 ) |
179 #visibilityChannel: #boxBVisible |
179 #visibilityChannel: #boxBVisible |
180 #component: |
180 #component: |
181 #(#SpecCollection |
181 #(#SpecCollection |
182 #collection: #( |
182 #collection: #( |
183 #(#LabelSpec |
183 #(#LabelSpec |
184 #label: 'Only in B (i.e. added)' |
184 #label: 'Only in B' |
185 #name: 'OnlyInBLabel' |
185 #name: 'OnlyInBLabel' |
186 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 20 0) |
186 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 20 0) |
187 #translateLabel: true |
187 #translateLabel: true |
188 #labelChannel: #onlyInBLabelHolder |
188 #labelChannel: #onlyInBLabelHolder |
189 ) |
189 ) |
1300 |theVersionA theVersionB builder| |
1300 |theVersionA theVersionB builder| |
1301 |
1301 |
1302 builder := self builder. |
1302 builder := self builder. |
1303 (theVersionA := self versionA) notNil ifTrue:[ |
1303 (theVersionA := self versionA) notNil ifTrue:[ |
1304 self diffTextLabelA value:theVersionA. |
1304 self diffTextLabelA value:theVersionA. |
1305 self onlyInALabelHolder value:('Only in ' , theVersionA , ' (i.e. removed)'). |
1305 self onlyInALabelHolder value:('Only in ' , theVersionA). |
1306 (builder componentAt:#OnlyInALabel) backgroundColor:Color green darkened. |
1306 (builder componentAt:#OnlyInALabel) backgroundColor:Color green darkened. |
1307 ]. |
1307 ]. |
1308 (theVersionB :=self versionB) notNil ifTrue:[ |
1308 (theVersionB :=self versionB) notNil ifTrue:[ |
1309 self diffTextLabelB value:theVersionB. |
1309 self diffTextLabelB value:theVersionB. |
1310 self onlyInBLabelHolder value:('Only in ' , theVersionB , ' (i.e. added)'). |
1310 self onlyInBLabelHolder value:('Only in ' , theVersionB). |
1311 (builder componentAt:#OnlyInBLabel) backgroundColor:Color red darkened. |
1311 (builder componentAt:#OnlyInBLabel) backgroundColor:Color red darkened. |
1312 ]. |
1312 ]. |
1313 ! |
1313 ! |
1314 |
1314 |
1315 updateLists |
1315 updateLists |
1686 ! ! |
1686 ! ! |
1687 |
1687 |
1688 !VersionDiffBrowser class methodsFor:'documentation'! |
1688 !VersionDiffBrowser class methodsFor:'documentation'! |
1689 |
1689 |
1690 version |
1690 version |
1691 ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.29 2000-08-21 22:45:50 cg Exp $' |
1691 ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.30 2000-08-22 10:55:30 cg Exp $' |
1692 ! ! |
1692 ! ! |