equal
deleted
inserted
replaced
770 "Created: / 6.2.1998 / 13:04:59 / cg" |
770 "Created: / 6.2.1998 / 13:04:59 / cg" |
771 "Modified: / 7.2.1998 / 19:28:52 / cg" |
771 "Modified: / 7.2.1998 / 19:28:52 / cg" |
772 ! |
772 ! |
773 |
773 |
774 changeSet:aChangeSet |
774 changeSet:aChangeSet |
|
775 changeFileName := nil. |
775 originalChangeSet := aChangeSet. |
776 originalChangeSet := aChangeSet. |
776 changeSet := OrderedCollection new. |
777 changeSet := OrderedCollection new. |
777 originalChangeSet notNil ifTrue:[ |
778 originalChangeSet notNil ifTrue:[ |
778 originalChangeSet do:[:aChange | |
779 originalChangeSet do:[:aChange | |
779 changeSet add:aChange |
780 changeSet add:aChange |
780 ]. |
781 ]. |
781 ]. |
782 ]. |
782 ! |
783 ! |
783 |
784 |
784 checkIfFileHasChanged |
785 checkIfFileHasChanged |
785 Processor removeTimedBlock:checkBlock. |
786 Processor removeTimedBlock:checkBlock. |
999 ! ! |
1000 ! ! |
1000 |
1001 |
1001 !ChangeSetBrowser class methodsFor:'documentation'! |
1002 !ChangeSetBrowser class methodsFor:'documentation'! |
1002 |
1003 |
1003 version |
1004 version |
1004 ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.45 2006-04-13 15:22:33 cg Exp $' |
1005 ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.46 2006-08-23 18:06:24 cg Exp $' |
1005 ! ! |
1006 ! ! |