868 |
868 |
869 readChangesFileInBackground:dummy |
869 readChangesFileInBackground:dummy |
870 "read the changeSet, create a list of header-lines" |
870 "read the changeSet, create a list of header-lines" |
871 |
871 |
872 self withCursor:(Cursor read) do:[ |
872 self withCursor:(Cursor read) do:[ |
|
873 changeInfoList := OrderedCollection new. |
|
874 |
873 changeSet size == 0 ifTrue:[ |
875 changeSet size == 0 ifTrue:[ |
874 changeFileName notNil ifTrue:[ |
876 changeFileName notNil ifTrue:[ |
875 changeSet := self class readXMLChangesFromFile:changeFileName inBackground:false. |
877 changeSet := self class readXMLChangesFromFile:changeFileName inBackground:false. |
876 ]. |
878 ]. |
877 changeSet size == 0 ifTrue:[ ^ nil ]. |
879 changeSet size == 0 ifTrue:[ ^ nil ]. |
881 "/ tabSpec unit:#inch. |
883 "/ tabSpec unit:#inch. |
882 "/ tabSpec positions:#(-1 0 5 8.5 ). |
884 "/ tabSpec positions:#(-1 0 5 8.5 ). |
883 "/ " +/- cls>>sel type info" |
885 "/ " +/- cls>>sel type info" |
884 "/ tabSpec align: #(#left #left #left #left). |
886 "/ tabSpec align: #(#left #left #left #left). |
885 |
887 |
886 changeChunks := OrderedCollection new. |
|
887 changeHeaderLines := OrderedCollection new. |
|
888 |
|
889 changeSet do:[:aChange | |
888 changeSet do:[:aChange | |
890 |changeSource entry t changeDelta| |
889 |info changeSource entry time |
|
890 changeDelta changeClass changeClassName changeSelector| |
891 |
891 |
892 changeSource := aChange source "printString". |
892 changeSource := aChange source "printString". |
893 |
893 changeClassName := aChange className. |
894 changeChunks add:changeSource. |
894 |
895 |
895 aChange isMethodCodeChange ifTrue:[ |
896 aChange isMethodCodeChange ifTrue:[ |
896 changeClass := aChange changeClass. |
|
897 changeSelector := aChange selector. |
897 changeDelta := ChangeDeltaInformation |
898 changeDelta := ChangeDeltaInformation |
898 changeDeltaFor:changeSource |
899 changeDeltaFor:changeSource |
899 changeClass:aChange changeClass |
900 changeClass:changeClass |
900 selector:aChange selector. |
901 selector:changeSelector. |
901 ] ifFalse:[ |
902 ] ifFalse:[ |
902 changeDelta := ' '. |
903 changeDelta := ' '. |
903 ]. |
904 ]. |
904 |
905 |
905 "/ changeHeaderLines add:(aChange printString) |
906 "/ changeHeaderLines add:(aChange printString) |
908 entry colAt:1 put:changeDelta. |
909 entry colAt:1 put:changeDelta. |
909 entry colAt:2 put:aChange printString. |
910 entry colAt:2 put:aChange printString. |
910 entry colAt:3 put:''. "/ changeType. |
911 entry colAt:3 put:''. "/ changeType. |
911 |
912 |
912 (aChange respondsTo:#timeOfChangeIfKnown) ifTrue:[ |
913 (aChange respondsTo:#timeOfChangeIfKnown) ifTrue:[ |
913 (t := aChange timeOfChangeIfKnown) notNil ifTrue:[ |
914 (time := aChange timeOfChangeIfKnown) notNil ifTrue:[ |
914 entry colAt:4 put:(self timeStampPrintStringOf:t). |
915 entry colAt:4 put:(self timeStampPrintStringOf:time). |
915 ] |
916 ] |
916 ]. |
917 ]. |
917 changeHeaderLines add:entry |
918 info := ChangesBrowser::ChangeInfo new |
|
919 position:nil |
|
920 chunk:changeSource |
|
921 className:changeClassName |
|
922 selector:changeSelector |
|
923 headerLine:entry |
|
924 timestamp:time |
|
925 isFollowupChange:false. |
|
926 changeInfoList add:info. |
|
927 |
918 ]. |
928 ]. |
919 changeClassNames := OrderedCollection new:(changeChunks size). |
|
920 anyChanges := false |
929 anyChanges := false |
921 ]. |
930 ]. |
922 |
931 |
923 "Created: 3.12.1995 / 18:02:39 / cg" |
932 "Created: 3.12.1995 / 18:02:39 / cg" |
924 ! |
933 ! |