2206 m := m originalMethodIfWrapped. |
2208 m := m originalMethodIfWrapped. |
2207 selectorString := m printStringForBrowserWithSelector:aChange selector inClass:aChange changeClass. |
2209 selectorString := m printStringForBrowserWithSelector:aChange selector inClass:aChange changeClass. |
2208 ]. |
2210 ]. |
2209 ]. |
2211 ]. |
2210 changeClassName notEmptyOrNil ifTrue:[ |
2212 changeClassName notEmptyOrNil ifTrue:[ |
2211 selectorString := ' » ',selectorString |
2213 selectorString := ' » ',selectorString |
2212 ] |
2214 ] |
2213 ]. |
2215 ]. |
2214 |
2216 |
2215 printString := changeClassName,classOrMetaString,selectorString. |
2217 printString := changeClassName,classOrMetaString,selectorString. |
2216 aChange isMethodCategoryChange ifTrue:[ |
2218 aChange isMethodCategoryChange ifTrue:[ |
2294 |
2296 |
2295 updateLabels |
2297 updateLabels |
2296 "update the labels of the diff text view. Show the version numbers |
2298 "update the labels of the diff text view. Show the version numbers |
2297 of the class." |
2299 of the class." |
2298 |
2300 |
2299 |theVersionA theVersionB builder| |
2301 |theVersionA theVersionB builder revInfo labelA labelB date author| |
2300 |
2302 |
2301 builder := self builder. |
2303 builder := self builder. |
2302 (theVersionA := self versionA) notNil ifTrue:[ |
2304 (theVersionA := self versionA) notNil ifTrue:[ |
2303 self diffTextLabelA value:theVersionA. |
2305 labelA := theVersionA. |
2304 self onlyInALabelHolder value:('Only in ' , theVersionA). |
2306 revInfo := versionInfoList detect:[:info | (info at:#revision) = theVersionA value] ifNone:nil. |
2305 (self componentAt:#OnlyInALabel) |
2307 revInfo notNil ifTrue:[ |
2306 foregroundColor:Color white; |
2308 date := (Timestamp readGeneralizedFrom:(revInfo at:#date)) asDate. |
2307 backgroundColor:Color green darkened. |
2309 author := (revInfo at:#author) ? '?'. |
|
2310 labelA := theVersionA , ' [',date printString,' by ',author,']'. |
|
2311 ]. |
|
2312 self diffTextLabelA value:labelA. |
|
2313 self onlyInALabelHolder value:('Only in ' , theVersionA). |
|
2314 (self componentAt:#OnlyInALabel) |
|
2315 foregroundColor:Color white; |
|
2316 backgroundColor:Color green darkened. |
2308 ]. |
2317 ]. |
2309 (theVersionB :=self versionB) notNil ifTrue:[ |
2318 (theVersionB :=self versionB) notNil ifTrue:[ |
2310 self diffTextLabelB value:theVersionB. |
2319 labelB := theVersionB. |
2311 self onlyInBLabelHolder value:('Only in ' , theVersionB). |
2320 revInfo := versionInfoList detect:[:info | (info at:#revision) = theVersionB value] ifNone:nil. |
2312 (self componentAt:#OnlyInBLabel) |
2321 revInfo notNil ifTrue:[ |
2313 foregroundColor:Color white; |
2322 date := (Timestamp readGeneralizedFrom:(revInfo at:#date)) asDate. |
2314 backgroundColor:Color red darkened. |
2323 author := (revInfo at:#author) ? '?'. |
|
2324 labelA := theVersionB , ' [',date printString,' by ',author,']'. |
|
2325 ]. |
|
2326 self diffTextLabelB value:labelB. |
|
2327 self onlyInBLabelHolder value:('Only in ' , theVersionB). |
|
2328 (self componentAt:#OnlyInBLabel) |
|
2329 foregroundColor:Color white; |
|
2330 backgroundColor:Color red darkened. |
2315 ]. |
2331 ]. |
2316 |
2332 |
2317 self changedLabelHolder value:('Different'). |
2333 self changedLabelHolder value:('Different'). |
2318 |
2334 |
2319 "Modified: / 13-10-2006 / 01:07:08 / cg" |
2335 "Modified: / 13-10-2006 / 01:07:08 / cg" |