2515 rev notNil ifTrue:[ |
2515 rev notNil ifTrue:[ |
2516 rev withoutSpaces isEmpty ifTrue:[ |
2516 rev withoutSpaces isEmpty ifTrue:[ |
2517 msg := 'extracting newest %1'. |
2517 msg := 'extracting newest %1'. |
2518 aStream := mgr getMostRecentSourceStreamForClassNamed:nm. |
2518 aStream := mgr getMostRecentSourceStreamForClassNamed:nm. |
2519 revString := '(newest)'. |
2519 revString := '(newest)'. |
2520 (rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[ |
|
2521 revString := '(newest is' , rev , ')' |
|
2522 ] |
|
2523 ] ifFalse:[ |
2520 ] ifFalse:[ |
2524 msg := 'extracting previous %1'. |
2521 msg := 'extracting previous %1'. |
2525 aStream := mgr getSourceStreamFor:currentClass revision:rev. |
2522 aStream := mgr getSourceStreamFor:currentClass revision:rev. |
2526 revString := rev |
2523 revString := rev |
2527 ]. |
2524 ]. |
2549 ] ifFalse:[ |
2546 ] ifFalse:[ |
2550 thisRevString := currentClass revision. |
2547 thisRevString := currentClass revision. |
2551 thisRevString isNil ifTrue:[ |
2548 thisRevString isNil ifTrue:[ |
2552 thisRevString := 'no revision' |
2549 thisRevString := 'no revision' |
2553 ]. |
2550 ]. |
|
2551 |
|
2552 revString = '(newest)' ifTrue:[ |
|
2553 (rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[ |
|
2554 revString := '(newest is' , rev , ')' |
|
2555 ] |
|
2556 ]. |
|
2557 |
2554 v := DiffTextView |
2558 v := DiffTextView |
2555 openOn:currentSource label:'current: (based on: ' , thisRevString , ')' |
2559 openOn:currentSource label:'current: (based on: ' , thisRevString , ')' |
2556 and:comparedSource label:'repository: ' , revString. |
2560 and:comparedSource label:'repository: ' , revString. |
2557 v label:'comparing ' , nm. |
2561 v label:'comparing ' , nm. |
2558 ]. |
2562 ]. |
2559 self normalLabel. |
2563 self normalLabel. |
2560 ] |
2564 ] |
2561 ] |
2565 ] |
2562 |
2566 |
2563 "Created: 4.1.1997 / 15:48:20 / cg" |
2567 "Created: 4.1.1997 / 15:48:20 / cg" |
2564 "Modified: 4.1.1997 / 15:55:04 / cg" |
2568 "Modified: 5.1.1997 / 03:20:46 / cg" |
2565 ! |
2569 ! |
2566 |
2570 |
2567 classCreateSourceContainerFor:aClass |
2571 classCreateSourceContainerFor:aClass |
2568 "let user specify the source-repository values for aClass" |
2572 "let user specify the source-repository values for aClass" |
2569 |
2573 |