equal
deleted
inserted
replaced
18 changeHeaderLines changeIsFollowupMethodChange anyChanges |
18 changeHeaderLines changeIsFollowupMethodChange anyChanges |
19 changeNrShown changeNrProcessed skipSignal autoCompare |
19 changeNrShown changeNrProcessed skipSignal autoCompare |
20 changeFileSize changeFileTimestamp checkBlock changeTimeStamps |
20 changeFileSize changeFileTimestamp checkBlock changeTimeStamps |
21 tabSpec autoUpdate editingClassSource lastSearchType |
21 tabSpec autoUpdate editingClassSource lastSearchType |
22 lastSearchString applyInOriginalNameSpace lastSaveFileName |
22 lastSearchString applyInOriginalNameSpace lastSaveFileName |
23 readOnly enforcedPackage' |
23 readOnly enforcedPackage updateChangeSet' |
24 classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon' |
24 classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon' |
25 poolDictionaries:'' |
25 poolDictionaries:'' |
26 category:'Interface-Browsers' |
26 category:'Interface-Browsers' |
27 ! |
27 ! |
28 |
28 |
515 #translateLabel: true |
515 #translateLabel: true |
516 #indication: #autoUpdate |
516 #indication: #autoUpdate |
517 ) |
517 ) |
518 #(#MenuItem |
518 #(#MenuItem |
519 #label: '-' |
519 #label: '-' |
|
520 ) |
|
521 #(#MenuItem |
|
522 #label: 'Add Applies to ChangeSet...' |
|
523 #translateLabel: true |
|
524 #indication: #updateChangeSet |
520 ) |
525 ) |
521 #(#MenuItem |
526 #(#MenuItem |
522 #label: 'Apply in Original NameSpace' |
527 #label: 'Apply in Original NameSpace' |
523 #translateLabel: true |
528 #translateLabel: true |
524 #indication: #applyInOriginalNameSpace |
529 #indication: #applyInOriginalNameSpace |
639 ^ sel first |
644 ^ sel first |
640 ]. |
645 ]. |
641 ^ nil |
646 ^ nil |
642 ]. |
647 ]. |
643 ^ sel. |
648 ^ sel. |
|
649 ! |
|
650 |
|
651 updateChangeSet |
|
652 ^ updateChangeSet |
644 ! ! |
653 ! ! |
645 |
654 |
646 !ChangesBrowser methodsFor:'compiler interface'! |
655 !ChangesBrowser methodsFor:'compiler interface'! |
647 |
656 |
648 wantChangeLog |
657 wantChangeLog |
1035 changeFileName := ObjectMemory nameForChanges. "/ 'changes'. |
1044 changeFileName := ObjectMemory nameForChanges. "/ 'changes'. |
1036 autoCompare := false asValue. |
1045 autoCompare := false asValue. |
1037 autoCompare onChangeSend:#autoCompareChanged to:self. |
1046 autoCompare onChangeSend:#autoCompareChanged to:self. |
1038 autoUpdate := false asValue. |
1047 autoUpdate := false asValue. |
1039 applyInOriginalNameSpace := true asValue. |
1048 applyInOriginalNameSpace := true asValue. |
|
1049 updateChangeSet := false asValue. |
1040 |
1050 |
1041 " |
1051 " |
1042 checkBlock is executed by the Processor. |
1052 checkBlock is executed by the Processor. |
1043 We use #pushEvent: to perform the update |
1053 We use #pushEvent: to perform the update |
1044 in our windowgroups process. |
1054 in our windowgroups process. |
2711 |
2721 |
2712 "/ |
2722 "/ |
2713 "/ if I am showing the changes file, dont update it |
2723 "/ if I am showing the changes file, dont update it |
2714 "/ |
2724 "/ |
2715 changeFileName = ObjectMemory nameForChanges ifTrue:[ |
2725 changeFileName = ObjectMemory nameForChanges ifTrue:[ |
2716 Class withoutUpdatingChangesDo:applyAction |
2726 Class withoutUpdatingChangesDo:[ |
|
2727 Class updateChangeListQuerySignal answer:updateChangeSet do:applyAction |
|
2728 ] |
2717 ] ifFalse:[ |
2729 ] ifFalse:[ |
2718 applyAction value |
2730 applyAction value |
2719 ]. |
2731 ]. |
2720 aStream close |
2732 aStream close |
2721 |
2733 |
4528 ! ! |
4540 ! ! |
4529 |
4541 |
4530 !ChangesBrowser class methodsFor:'documentation'! |
4542 !ChangesBrowser class methodsFor:'documentation'! |
4531 |
4543 |
4532 version |
4544 version |
4533 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.234 2001-10-12 20:22:16 cg Exp $' |
4545 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.235 2001-10-18 13:00:12 cg Exp $' |
4534 ! ! |
4546 ! ! |