hg/stx-libtool: comparison NewChangesBrowser.st

equal deleted inserted replaced

-:fc17eb66cbec
+:dc7a9ae0d6bb
 documentation
 "
 The future Changes Browser.
 [start with:]
-NewChangesBrowser open
+	NewChangesBrowser open
-NewChangesBrowser openOnFile:aFileName
+	NewChangesBrowser openOnFile:aFileName
 [author:]
-Thomas Zwick, eXept Software AG
+	Thomas Zwick, eXept Software AG
 "
 ! !
 openOnFile:aFileName
 "opens a Changes Browser with the changes of the aFileName"
 ^self new
-changeFileName:aFileName;
+	changeFileName:aFileName;
-open
+	open
 ! !
 !NewChangesBrowser class methodsFor:'accessing'!
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser applyFromLastSnapshotIcon'
+	constantNamed:#'NewChangesBrowser applyFromLastSnapshotIcon'
-ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@QDQ<@@@@@@@@@@AH"H@@@@@@@@@@@D"H @@@@@@@@@@@RH"@@@@@@@@@@@AH"H@@@@@@@@@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@;.;.; @@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C<@@C<@@C<@@C<@@C<@@A<@@D@@?<@@?<@@?<LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]!
+	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@QDQ<@@@@@@@@@@AH"H@@@@@@@@@@@D"H @@@@@@@@@@@RH"@@@@@@@@@@@AH"H@@@@@@@@@@@@@@@@@@@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@;.;.; @@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C<@@C<@@C<@@C<@@C<@@A<@@D@@?<@@?<@@?<LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]!
 applyIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser applyIcon'
+	constantNamed:#'NewChangesBrowser applyIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUUUUPUUUUUUU[UUUUUUUPP@@@@@@QQUUUUUTPQUUUUUTVQ**UUUTPQUUUUUTPQUUUUUTXQ***UUTPQ**UUUTPQ*****TPQ***%UTPQ****)TPQUUUUUTPQUUUUUTUP@@@@@@PUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUPUUUUUUUPUUUUUUU[UUUUUUUPP@@@@@@QQUUUUUTPQUUUUUTVQ**UUUTPQUUUUUTPQUUUUUTXQ***UUTPQ**UUUTPQ*****TPQ***%UTPQ****)TPQUUUUUTPQUUUUUTUP@@@@@@PUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
 applyToEndIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser applyToEndIcon'
+	constantNamed:#'NewChangesBrowser applyToEndIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@B** H@@@B** H@@@@@@ @@@@**( @@@@**(@J@@@@@H@@@@O??H@@@@O??@@@@@@@C@H@@C??3@@ @C??0@ @@@@@0@B@@UUT0B@K@UUT@@H@@@@D@H@CEUUDB@@JG?U@@@@MG?=@@@@@EUU@@B@@@@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?0@C?0@C?0@O?0@O?0@O?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]!
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@B** H@@@B** H@@@@@@ @@@@**( @@@@**(@J@@@@@H@@@@O??H@@@@O??@@@@@@@C@H@@C??3@@ @C??0@ @@@@@0@B@@UUT0B@K@UUT@@H@@@@D@H@CEUUDB@@JG?U@@@@MG?=@@@@@EUU@@B@@@@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?0@C?0@C?0@O?0@O?0@O?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@') ; yourself); yourself]!
 compressIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser compressIcon'
+	constantNamed:#'NewChangesBrowser compressIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@????<@@@:***(@@@8@@@8@@@8@@@8@@@@@@@8@@@@@@@8A@@@@@@8@@:**0@8HC**+@@8@@@@@@@8H@@@@@@8@@@@@@@8@@@@@@@8@@@@@@@8@@C????8@@C****(@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 124 124 124 170 170 170 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@??0A??8A??8A??8A8A8G>A8@@A8G?98O?18_?!!8??A8@@A8G>A8@0A8C??8C??8C??8C??0@0@@D2@@G>@@D2@@') ; yourself); yourself]!
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@????<@@@:***(@@@8@@@8@@@8@@@8@@@@@@@8@@@@@@@8A@@@@@@8@@:**0@8HC**+@@8@@@@@@@8H@@@@@@8@@@@@@@8@@@@@@@8@@@@@@@8@@C????8@@C****(@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 124 124 124 170 170 170 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@??0A??8A??8A??8A8A8G>A8@@A8G?98O?18_?!!8??A8@@A8G>A8@0A8C??8C??8C??8C??0@0@@D2@@G>@@D2@@') ; yourself); yourself]!
 deleteIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser deleteIcon'
+	constantNamed:#'NewChangesBrowser deleteIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUU@@OA??UU@@@AUUUU@@@AUUUU@B@A???U@H@A??5U@@@A???0@@@AUUUB@B@@@@@@@@@@@@@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?<@_?<@_?<P_?<P_?<X_?<X_?<H_? H_?O<_?XL@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]!
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUU@@OA??UU@@@AUUUU@@@AUUUU@B@A???U@H@A??5U@@@A???0@@@AUUUB@B@@@@@@@@@@@@@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?<@_?<@_?<P_?<P_?<X_?<X_?<H_? H_?O<_?XL@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]!
 deleteToEndIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser deleteToEndIcon'
+	constantNamed:#'NewChangesBrowser deleteToEndIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B** @@O@B** @@@@@@@ @@@@??< @B@@??<@@H@@@@L@@@@EUUL@@@@G?U@B@B@G?=@@@@@EUU@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C?0@C?0@C?0PO?0PO?0XO?0X??@H??@H??O<?<XL?<_<?<_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]!
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B** @@O@B** @@@@@@@ @@@@??< @B@@??<@@H@@@@L@@@@EUUL@@@@G?U@B@B@G?=@@@@@EUU@A@BK@@@@A_:@@@@@AO2G@@@@AL2@@@@@AL2C@@@@AL2@@@@@AL2@@@@@AL2H@@@@AL2@@@@@A\:@@@@@H_8 @@@@@@@H') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C?0@C?0@C?0PO?0PO?0XO?0X??@H??@H??O<?<XL?<_<?<_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@_<@@G0') ; yourself); yourself]!
 findLastSnapshotIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser findLastSnapshotIcon'
+	constantNamed:#'NewChangesBrowser findLastSnapshotIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@EUUUW@A@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@A@F***(@M@F***(@H@F***(@@@F***(@@@F***(@I@L@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]!
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@EUUUW@A@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@A@F***(@M@F***(@H@F***(@@@F***(@@@F***(@I@L@@@@@@@@@@@@@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??@C??B@@@B@C@B@G B@O0@@_8@@G @@G @@G @') ; yourself); yourself]!
 findNextSnapshotIcon
 "This resource specification was automatically generated
 by the ImageEditor of ST/X."
 "
 <resource: #image>
 ^Icon
-constantNamed:#'NewChangesBrowser findNextSnapshotIcon'
+	constantNamed:#'NewChangesBrowser findNextSnapshotIcon'
-ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@B@@@@@@@@@@@@@@@E@@@@@@@@@EUUUW@N@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@V***(@H@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@L@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@G @@G @@_8@@O0@@G @@C@@@@@@C??@C??@C??@C??@C??@C??BC??BC??BC??BC??@C??@C??@C??@C??@') ; yourself); yourself]! !
+	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@B@@@@@@@@@@@@@@@E@@@@@@@@@EUUUW@N@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@V***(@H@F***(@@@F***(@@@F***(@@@F***(@@@F***(@@@L@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G @@G @@G @@_8@@O0@@G @@C@@@@@@C??@C??@C??@C??@C??@C??BC??BC??BC??BC??@C??@C??@C??@C??@') ; yourself); yourself]! !
 !NewChangesBrowser class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 <resource: #canvas>
 ^
 #(#FullSpec
-#window:
+	  #window:
-#(#WindowSpec
+	   #(#WindowSpec
-#name: 'Changes Browser'
+	      #name: 'Changes Browser'
-#layout: #(#LayoutFrame 53 0 92 0 687 0 583 0)
+	      #layout: #(#LayoutFrame 53 0 92 0 687 0 583 0)
-#label: 'Changes Browser'
+	      #label: 'Changes Browser'
-#min: #(#Point 10 10)
+	      #min: #(#Point 10 10)
-#max: #(#Point 1152 900)
+	      #max: #(#Point 1152 900)
-#bounds: #(#Rectangle 53 92 688 584)
+	      #bounds: #(#Rectangle 53 92 688 584)
-#menu: #menu
+	      #menu: #menu
-#usePreferredExtent: false
+	      #usePreferredExtent: false
-)
+	  )
-#component:
+	  #component:
-#(#SpecCollection
+	   #(#SpecCollection
-#collection:
+	      #collection:
-#(
+	       #(
-#(#MenuPanelSpec
+		 #(#MenuPanelSpec
-#name: 'menuToolbarView'
+		    #name: 'menuToolbarView'
-#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+		    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
-#menu: #menuToolbar
+		    #menu: #menuToolbar
-#style: #(#FontDescription #helvetica #medium #roman 10)
+		    #style: #(#FontDescription #helvetica #medium #roman 10)
-#showSeparatingLines: true
+		    #showSeparatingLines: true
-)
+		)
-#(#VariableVerticalPanelSpec
+		 #(#VariableVerticalPanelSpec
-#name: 'variableVerticalPanel1'
+		    #name: 'variableVerticalPanel1'
-#layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 -26 1.0)
+		    #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 -26 1.0)
-#component:
+		    #component:
-#(#SpecCollection
+		     #(#SpecCollection
-#collection:
+			#collection:
-#(
+			 #(
-#(#ViewSpec
+			   #(#ViewSpec
-#name: 'Box1'
+			      #name: 'Box1'
-#component:
+			      #component:
-#(#SpecCollection
+			       #(#SpecCollection
-#collection:
+				  #collection:
-#(
+				   #(
-#(#DataSetSpec
+				     #(#DataSetSpec
-#name: 'changesDataSetView'
+					#name: 'changesDataSetView'
-#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -28 1.0)
+					#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -28 1.0)
-#model: #selectionOfChange
+					#model: #selectionOfChange
-#menu: #menuTable
+					#menu: #menuTable
-#hasHorizontalScrollBar: true
+					#hasHorizontalScrollBar: true
-#hasVerticalScrollBar: true
+					#hasVerticalScrollBar: true
-#miniScrollerHorizontal: true
+					#miniScrollerHorizontal: true
-#dataList: #listOfChanges
+					#dataList: #listOfChanges
-#useIndex: false
+					#useIndex: false
-#has3Dsepartors: true
+					#has3Dsepartors: true
-#doubleClickSelector: #doBrowseClass
+					#doubleClickSelector: #doBrowseClass
-#columnHolder: #listOfChangeColumns
+					#columnHolder: #listOfChangeColumns
-#valueChangeSelector: #changeSelected:
+					#valueChangeSelector: #changeSelected:
-)
+				    )
-#(#ViewSpec
+				     #(#ViewSpec
-#name: 'Box2'
+					#name: 'Box2'
-#layout: #(#LayoutFrame 0 0.0 -28 1 0 1.0 0 1.0)
+					#layout: #(#LayoutFrame 0 0.0 -28 1 0 1.0 0 1.0)
-#component:
+					#component:
-#(#SpecCollection
+					 #(#SpecCollection
-#collection:
+					    #collection:
-#(
+					     #(
-#(#LabelSpec
+					       #(#LabelSpec
-#name: 'filterLabel'
+						  #name: 'filterLabel'
-#layout: #(#AlignmentOrigin 37 0 13 0.0 1 0.5)
+						  #layout: #(#AlignmentOrigin 37 0 13 0.0 1 0.5)
-#label: 'Filter:'
+						  #label: 'Filter:'
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#adjust: #left
+						  #adjust: #left
-)
+					      )
-#(#InputFieldSpec
+					       #(#InputFieldSpec
-#name: 'filterField'
+						  #name: 'filterField'
-#layout: #(#LayoutFrame 41 0.0 3 0 250 0 25 0)
+						  #layout: #(#LayoutFrame 41 0.0 3 0 250 0 25 0)
-#activeHelpKey: #filterField
+						  #activeHelpKey: #filterField
-#model: #valueOfFilter
+						  #model: #valueOfFilter
-#immediateAccept: false
+						  #immediateAccept: false
-)
+					      )
-#(#ProgressIndicatorSpec
+					       #(#ProgressIndicatorSpec
-#name: 'readProgressIndicator'
+						  #name: 'readProgressIndicator'
-#layout: #(#LayoutFrame 41 0 3 0 250 0 25 0)
+						  #layout: #(#LayoutFrame 41 0 3 0 250 0 25 0)
-#model: #valueOfReadProgress
+						  #model: #valueOfReadProgress
-#foregroundColor: #(#Color 0.0 60.0 60.0)
+						  #foregroundColor: #(#Color 0.0 60.0 60.0)
-)
+					      )
-#(#ActionButtonSpec
+					       #(#ActionButtonSpec
-#name: 'allButton'
+						  #name: 'allButton'
-#layout: #(#LayoutFrame 258 0.0 2 0.0 268 0 13 0)
+						  #layout: #(#LayoutFrame 258 0.0 2 0.0 268 0 13 0)
-#label: ' '
+						  #label: ' '
-#model: #doFilter:
+						  #model: #doFilter:
-#actionValue: ''
+					      )
-)
+					       #(#LabelSpec
-#(#LabelSpec
+						  #name: 'allLabel'
-#name: 'allLabel'
+						  #layout: #(#LayoutFrame 273 0 0 0.0 310 0 14 0)
-#layout: #(#LayoutFrame 273 0 0 0.0 310 0 14 0)
+						  #label: '= all'
-#label: '= all'
+						  #translateLabel: true
-#translateLabel: true
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #adjust: #left
-#adjust: #left
+					      )
-)
+					       #(#ActionButtonSpec
-#(#ActionButtonSpec
+						  #name: 'methodChangesButton'
-#name: 'methodChangesButton'
+						  #layout: #(#LayoutFrame 359 0.0 2 0.0 369 0 13 0)
-#layout: #(#LayoutFrame 359 0.0 2 0.0 369 0 13 0)
+						  #label: ' '
-#label: ' '
+						  #backgroundColor: #(#Color 100.0 100.0 100.0)
-#backgroundColor: #(#Color 100.0 100.0 100.0)
+						  #model: #doFilterType:
-#model: #doFilterType:
+						  #actionValue: 'method'
-#actionValue: 'method'
+					      )
-)
+					       #(#LabelSpec
-#(#LabelSpec
+						  #name: 'methodChangesLabel'
-#name: 'methodChangesLabel'
+						  #layout: #(#LayoutFrame 373 0 0 0.0 458 0 14 0)
-#layout: #(#LayoutFrame 373 0 0 0.0 458 0 14 0)
+						  #label: '= method'
-#label: '= method'
+						  #translateLabel: true
-#translateLabel: true
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #adjust: #left
-#adjust: #left
+					      )
-)
+					       #(#ActionButtonSpec
-#(#ActionButtonSpec
+						  #name: 'classChangesButton'
-#name: 'classChangesButton'
+						  #layout: #(#LayoutFrame 455 0.0 2 0.0 465 0 13 0)
-#layout: #(#LayoutFrame 455 0.0 2 0.0 465 0 13 0)
+						  #label: ' '
-#label: ' '
+						  #backgroundColor: #(#Color 50.0008 50.0008 50.0008)
-#backgroundColor: #(#Color 50.0008 50.0008 50.0008)
+						  #model: #doFilterType:
-#model: #doFilterType:
+						  #actionValue: 'class'
-#actionValue: 'class'
+					      )
-)
+					       #(#LabelSpec
-#(#LabelSpec
+						  #name: 'classChangesLabel'
-#name: 'classChangesLabel'
+						  #layout: #(#LayoutFrame 470 0 0 0.0 580 0 14 0)
-#layout: #(#LayoutFrame 470 0 0 0.0 580 0 14 0)
+						  #label: '= class change'
-#label: '= class change'
+						  #translateLabel: true
-#translateLabel: true
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #adjust: #left
-#adjust: #left
+					      )
-)
+					       #(#ActionButtonSpec
-#(#ActionButtonSpec
+						  #name: 'snapshotButton'
-#name: 'snapshotButton'
+						  #layout: #(#LayoutFrame 258 0.0 16 0.0 268 0 27 0)
-#layout: #(#LayoutFrame 258 0.0 16 0.0 268 0 27 0)
+						  #label: ' '
-#label: ' '
+						  #backgroundColor: #(#Color 100.0 0.0 0.0)
-#backgroundColor: #(#Color 100.0 0.0 0.0)
+						  #model: #doFilterType:
-#model: #doFilterType:
+						  #actionValue: 'image'
-#actionValue: 'image'
+					      )
-)
+					       #(#LabelSpec
-#(#LabelSpec
+						  #name: 'snapshotLabel'
-#name: 'snapshotLabel'
+						  #layout: #(#LayoutFrame 273 0 14 0.0 355 0 28 0)
-#layout: #(#LayoutFrame 273 0 14 0.0 355 0 28 0)
+						  #label: '= snapshot'
-#label: '= snapshot'
+						  #translateLabel: true
-#translateLabel: true
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #adjust: #left
-#adjust: #left
+					      )
-)
+					       #(#ActionButtonSpec
-#(#ActionButtonSpec
+						  #name: 'fileInButton'
-#name: 'fileInButton'
+						  #layout: #(#LayoutFrame 359 0.0 16 0.0 369 0 27 0)
-#layout: #(#LayoutFrame 359 0.0 16 0.0 369 0 27 0)
+						  #label: ' '
-#label: ' '
+						  #backgroundColor: #(#Color 0.0 80.0 80.0)
-#backgroundColor: #(#Color 0.0 80.0 80.0)
+						  #model: #doFilterSourceType:
-#model: #doFilterSourceType:
+						  #actionValue: '* file*'
-#actionValue: '* file*'
+					      )
-)
+					       #(#LabelSpec
-#(#LabelSpec
+						  #name: 'fileInLabel'
-#name: 'fileInLabel'
+						  #layout: #(#LayoutFrame 374 0 14 0.0 440 0 28 0)
-#layout: #(#LayoutFrame 374 0 14 0.0 440 0 28 0)
+						  #label: '= fileIn'
-#label: '= fileIn'
+						  #translateLabel: true
-#translateLabel: true
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #adjust: #left
-#adjust: #left
+					      )
-)
+					       #(#ActionButtonSpec
-#(#ActionButtonSpec
+						  #name: 'checkInButton'
-#name: 'checkInButton'
+						  #layout: #(#LayoutFrame 455 0.0 16 0.0 465 0 27 0)
-#layout: #(#LayoutFrame 455 0.0 16 0.0 465 0 27 0)
+						  #label: ' '
-#label: ' '
+						  #backgroundColor: #(#Color 0.0 0.0 100.0)
-#backgroundColor: #(#Color 0.0 0.0 100.0)
+						  #model: #doFilterSourceType:
-#model: #doFilterSourceType:
+						  #actionValue: '* checkin*'
-#actionValue: '* checkin*'
+					      )
-)
+					       #(#LabelSpec
-#(#LabelSpec
+						  #name: 'checkInLabel'
-#name: 'checkInLabel'
+						  #layout: #(#LayoutFrame 470 0 14 0.0 550 0 28 0)
-#layout: #(#LayoutFrame 470 0 14 0.0 550 0 28 0)
+						  #label: '= checkIn'
-#label: '= checkIn'
+						  #translateLabel: true
-#translateLabel: true
+						  #style: #(#FontDescription #helvetica #medium #roman 10)
-#style: #(#FontDescription #helvetica #medium #roman 10)
+						  #adjust: #left
-#adjust: #left
+					      )
-)
+					    )
-)
+					)
-)
+				    )
-)
+				  )
-)
+			      )
-)
+			  )
-)
+			   #(#WorkspaceSpec
-#(#WorkspaceSpec
+			      #name: 'changeTextEditor'
-#name: 'changeTextEditor'
+			      #model: #valueOfChangeText
-#model: #valueOfChangeText
+			      #hasHorizontalScrollBar: true
-#hasHorizontalScrollBar: true
+			      #hasVerticalScrollBar: true
-#hasVerticalScrollBar: true
+			      #miniScrollerHorizontal: true
-#miniScrollerHorizontal: true
+			      #isReadOnly: true
-#isReadOnly: true
+			  )
-)
+			)
-)
+		    )
-)
+		    #handles: #(#Any 0.5 1.0)
-#handles: #(#Any 0.5 1.0)
+		)
-)
+		 #(#UISubSpecification
-#(#UISubSpecification
+		    #name: 'windowSpecForInfoBar'
-#name: 'windowSpecForInfoBar'
+		    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
-#layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+		    #majorKey: #ToolApplicationModel
-#majorKey: #ToolApplicationModel
+		    #minorKey: #windowSpecForInfoBar
-#minorKey: #windowSpecForInfoBar
+		)
-)
+	      )
-)
+	  )
-)
 )
 "Modified: / 19.5.1998 / 18:58:47 / cg"
 ! !
 <resource: #tableColumns>
 ^ #(
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#rendererType: #rowSelector
+	   #rendererType: #rowSelector
-#backgroundSelector: #listColor
+	   #backgroundSelector: #listColor
-#showSelectionHighLighted: false
+	   #showSelectionHighLighted: false
 )
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#label: 'Change'
+	   #label: 'Change'
-#id: #change
+	   #id: #change
-#translateLabel: true
+	   #translateLabel: true
-#labelAlignment: #left
+	   #labelAlignment: #left
-#model: #string
+	   #model: #string
-#canSelect: false
+	   #canSelect: false
 )
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#label: 'Category'
+	   #label: 'Category'
-#id: #category
+	   #id: #category
-#translateLabel: true
+	   #translateLabel: true
-#labelAlignment: #left
+	   #labelAlignment: #left
-#model: #category
+	   #model: #category
-#canSelect: false
+	   #canSelect: false
 )
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#label: 'Delta Info'
+	   #label: 'Delta Info'
-#id: #deltaInfo
+	   #id: #deltaInfo
-#translateLabel: true
+	   #translateLabel: true
-#labelAlignment: #left
+	   #labelAlignment: #left
-#model: #delta
+	   #model: #delta
-#canSelect: false
+	   #canSelect: false
 )
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#label: 'Time Stamp'
+	   #label: 'Time Stamp'
-#id: #timeStamp
+	   #id: #timeStamp
-#translateLabel: true
+	   #translateLabel: true
-#labelAlignment: #left
+	   #labelAlignment: #left
-#model: #timeStamp
+	   #model: #timeStamp
-#canSelect: false
+	   #canSelect: false
 )
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#label: 'Type'
+	   #label: 'Type'
-#id: #type
+	   #id: #type
-#translateLabel: true
+	   #translateLabel: true
-#labelAlignment: #left
+	   #labelAlignment: #left
-#model: #type
+	   #model: #type
-#canSelect: false
+	   #canSelect: false
 )
-#(#DataSetColumnSpec
+	#(#DataSetColumnSpec
-#label: 'Position'
+	   #label: 'Position'
-#id: #position
+	   #id: #position
-#translateLabel: true
+	   #translateLabel: true
-#labelAlignment: #left
+	   #labelAlignment: #left
-#model: #positions
+	   #model: #positions
-#canSelect: false
+	   #canSelect: false
 )
 )
 ! !
 !NewChangesBrowser class methodsFor:'menu specs'!
 ^
 #(#Menu
-#(
+	   #(
-#(#MenuItem
+	     #(#MenuItem
-#label: 'About'
+		#label: 'About'
-#translateLabel: true
+		#translateLabel: true
-#activeHelpKey: #about
+		#activeHelpKey: #about
-#labelImage: #(#ResourceRetriever nil #menuIcon)
+		#labelImage: #(#ResourceRetriever nil #menuIcon)
-#submenuChannel: #menuAbout
+		#submenuChannel: #menuAbout
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'File'
+		#label: 'File'
-#translateLabel: true
+		#translateLabel: true
-#activeHelpKey: #file
+		#activeHelpKey: #file
-#submenu:
+		#submenu:
-#(#Menu
+		 #(#Menu
-#(
+		     #(
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Reload'
+			  #label: 'Reload'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doReload
+			  #value: #doReload
-#activeHelpKey: #fileReload
+			  #activeHelpKey: #fileReload
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Load...'
+			  #label: 'Load...'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doLoad
+			  #value: #doLoad
-#activeHelpKey: #fileLoad
+			  #activeHelpKey: #fileLoad
-#enabled: #valueOfNotSaving
+			  #enabled: #valueOfNotSaving
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Save'
+			  #label: 'Save'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doSave
+			  #value: #doSave
-#activeHelpKey: #fileSave
+			  #activeHelpKey: #fileSave
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Browse Class'
+			  #label: 'Browse Class'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doBrowseClass
+			  #value: #doBrowseClass
-#activeHelpKey: #fileBrowseClass
+			  #activeHelpKey: #fileBrowseClass
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Exit'
+			  #label: 'Exit'
-#translateLabel: true
+			  #translateLabel: true
-#value: #closeRequest
+			  #value: #closeRequest
-#activeHelpKey: #fileExit
+			  #activeHelpKey: #fileExit
-#enabled: #valueOfNotSaving
+			  #enabled: #valueOfNotSaving
-)
+		      )
-) nil
+		    ) nil
-nil
+		    nil
-)
+		)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply'
+		#label: 'Apply'
-#translateLabel: true
+		#translateLabel: true
-#submenu:
+		#submenu:
-#(#Menu
+		 #(#Menu
-#(
+		     #(
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Change'
+			  #label: 'Change'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doApply
+			  #value: #doApply
-#activeHelpKey: #applyLine
+			  #activeHelpKey: #applyLine
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'All'
+			  #label: 'All'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doApplyAll
+			  #value: #doApplyAll
-#activeHelpKey: #applyAll
+			  #activeHelpKey: #applyAll
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'To End'
+			  #label: 'To End'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doApplyToEnd
+			  #value: #doApplyToEnd
-#activeHelpKey: #applyToEnd
+			  #activeHelpKey: #applyToEnd
-#enabled: #valueOfHavingSelection
+			  #enabled: #valueOfHavingSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'All for Class'
+			  #label: 'All for Class'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doApplyAllForClass
+			  #value: #doApplyAllForClass
-#activeHelpKey: #applyForClassToEnd
+			  #activeHelpKey: #applyForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'For Class to End'
+			  #label: 'For Class to End'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doApplyForClassToEnd
+			  #value: #doApplyForClassToEnd
-#activeHelpKey: #applyForClassToEnd
+			  #activeHelpKey: #applyForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'From last Snapshot'
+			  #label: 'From last Snapshot'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doApplyFromLastSnapshot
+			  #value: #doApplyFromLastSnapshot
-#activeHelpKey: #applyFromLastSnapshot
+			  #activeHelpKey: #applyFromLastSnapshot
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-)
+		      )
-) nil
+		    ) nil
-nil
+		    nil
-)
+		)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete'
+		#label: 'Delete'
-#translateLabel: true
+		#translateLabel: true
-#activeHelpKey: #edit
+		#activeHelpKey: #edit
-#submenu:
+		#submenu:
-#(#Menu
+		 #(#Menu
-#(
+		     #(
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Change'
+			  #label: 'Change'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doDelete
+			  #value: #doDelete
-#activeHelpKey: #deleteLine
+			  #activeHelpKey: #deleteLine
-#enabled: #valueOfHavingSelection
+			  #enabled: #valueOfHavingSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'All'
+			  #label: 'All'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doDeleteAll
+			  #value: #doDeleteAll
-#activeHelpKey: #deleteAll
+			  #activeHelpKey: #deleteAll
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'To End'
+			  #label: 'To End'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doDeleteToEnd
+			  #value: #doDeleteToEnd
-#activeHelpKey: #deleteToEnd
+			  #activeHelpKey: #deleteToEnd
-#enabled: #valueOfHavingSelection
+			  #enabled: #valueOfHavingSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'All for Class'
+			  #label: 'All for Class'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doDeleteAllForClass
+			  #value: #doDeleteAllForClass
-#activeHelpKey: #applyForClassToEnd
+			  #activeHelpKey: #applyForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'For Class to End'
+			  #label: 'For Class to End'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doDeleteForClassToEnd
+			  #value: #doDeleteForClassToEnd
-#activeHelpKey: #deleteForClassToEnd
+			  #activeHelpKey: #deleteForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Compress'
+			  #label: 'Compress'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doCompress
+			  #value: #doCompress
-#activeHelpKey: #deleteCompress
+			  #activeHelpKey: #deleteCompress
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Compress for Class'
+			  #label: 'Compress for Class'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doCompressForClass
+			  #value: #doCompressForClass
-#activeHelpKey: #deleteCompressForClass
+			  #activeHelpKey: #deleteCompressForClass
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-) nil
+		    ) nil
-nil
+		    nil
-)
+		)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Test'
+		#label: 'Test'
-#translateLabel: true
+		#translateLabel: true
-#activeHelpKey: #test
+		#activeHelpKey: #test
-#submenu:
+		#submenu:
-#(#Menu
+		 #(#Menu
-#(
+		     #(
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Find last Snapshot'
+			  #label: 'Find last Snapshot'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doFindSnapshot:
+			  #value: #doFindSnapshot:
-#activeHelpKey: #testFindLastSnapshot
+			  #activeHelpKey: #testFindLastSnapshot
-#enabled: #valueOfHavingSelection
+			  #enabled: #valueOfHavingSelection
-#argument: 'last'
+			  #argument: 'last'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Find next Snapshot'
+			  #label: 'Find next Snapshot'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doFindSnapshot:
+			  #value: #doFindSnapshot:
-#activeHelpKey: #testFindNextSnapshot
+			  #activeHelpKey: #testFindNextSnapshot
-#enabled: #valueOfHavingSelection
+			  #enabled: #valueOfHavingSelection
-#argument: 'next'
+			  #argument: 'next'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Compare with Current Version'
+			  #label: 'Compare with Current Version'
-#translateLabel: true
+			  #translateLabel: true
-#value: #doCompare
+			  #value: #doCompare
-#activeHelpKey: #testCompareWithCurrentVersion
+			  #activeHelpKey: #testCompareWithCurrentVersion
-#enabled: #valueOfHavingChangeSelection
+			  #enabled: #valueOfHavingChangeSelection
-)
+		      )
-) nil
+		    ) nil
-nil
+		    nil
-)
+		)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Settings'
+		#label: 'Settings'
-#translateLabel: true
+		#translateLabel: true
-#activeHelpKey: #settings
+		#activeHelpKey: #settings
-#submenu:
+		#submenu:
-#(#Menu
+		 #(#Menu
-#(
+		     #(
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Auto Update'
+			  #label: 'Auto Update'
-#translateLabel: true
+			  #translateLabel: true
-#activeHelpKey: #settingsAutoUpdate
+			  #activeHelpKey: #settingsAutoUpdate
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-#indication: #autoUpdateMode:
+			  #indication: #autoUpdateMode:
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Private Classes as Separate'
+			  #label: 'Private Classes as Separate'
-#translateLabel: true
+			  #translateLabel: true
-#activeHelpKey: #settingsPrivateAsSeparate
+			  #activeHelpKey: #settingsPrivateAsSeparate
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-#indication: #privateAsSeparate:
+			  #indication: #privateAsSeparate:
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Columns'
+			  #label: 'Columns'
-#translateLabel: true
+			  #translateLabel: true
-#activeHelpKey: #settingsColumns
+			  #activeHelpKey: #settingsColumns
-#submenu:
+			  #submenu:
-#(#Menu
+			   #(#Menu
-#(
+			       #(
-#(#MenuItem
+				 #(#MenuItem
-#label: 'Category'
+				    #label: 'Category'
-#activeHelpKey: #settingsColumnsCategory
+				    #activeHelpKey: #settingsColumnsCategory
-#indication: #categoryColumn:
+				    #indication: #categoryColumn:
-)
+				)
-#(#MenuItem
+				 #(#MenuItem
-#label: 'Delta Info'
+				    #label: 'Delta Info'
-#activeHelpKey: #settingsColumnsDeltaInfo
+				    #activeHelpKey: #settingsColumnsDeltaInfo
-#indication: #deltaInfoColumn:
+				    #indication: #deltaInfoColumn:
-)
+				)
-#(#MenuItem
+				 #(#MenuItem
-#label: 'Type'
+				    #label: 'Type'
-#activeHelpKey: #settingsColumnsType
+				    #activeHelpKey: #settingsColumnsType
-#indication: #typeColumn:
+				    #indication: #typeColumn:
-)
+				)
-#(#MenuItem
+				 #(#MenuItem
-#label: 'Time Stamp'
+				    #label: 'Time Stamp'
-#activeHelpKey: #settingsColumnsTimeStamp
+				    #activeHelpKey: #settingsColumnsTimeStamp
-#indication: #timeStampColumn:
+				    #indication: #timeStampColumn:
-)
+				)
-#(#MenuItem
+				 #(#MenuItem
-#label: 'Positions'
+				    #label: 'Positions'
-#activeHelpKey: #settingsColumnsPosition
+				    #activeHelpKey: #settingsColumnsPosition
-#indication: #positionsColumn:
+				    #indication: #positionsColumn:
-)
+				)
-) nil
+			      ) nil
-nil
+			      nil
-)
+			  )
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: '-'
+			  #label: '-'
-)
+		      )
-#(#MenuItem
+		       #(#MenuItem
-#label: 'Fonts'
+			  #label: 'Fonts'
-#translateLabel: true
+			  #translateLabel: true
-#enabled: #valueOfNotReading
+			  #enabled: #valueOfNotReading
-#submenuChannel: #menuFont
+			  #submenuChannel: #menuFont
-)
+		      )
-) nil
+		    ) nil
-nil
+		    nil
-)
+		)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'History'
+		#label: 'History'
-#translateLabel: true
+		#translateLabel: true
-#submenuChannel: #menuHistory
+		#submenuChannel: #menuHistory
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Help'
+		#label: 'Help'
-#translateLabel: true
+		#translateLabel: true
-#startGroup: #right
+		#startGroup: #right
-#activeHelpKey: #help
+		#activeHelpKey: #help
-#submenuChannel: #menuHelp
+		#submenuChannel: #menuHelp
-)
+	    )
-) nil
+	  ) nil
-nil
+	  nil
 )
 "Modified: / 19.5.1998 / 18:17:27 / cg"
 !
 ^
 #(#Menu
-#(
+	   #(
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply'
+		#label: 'Apply'
-#translateLabel: true
+		#translateLabel: true
-#value: #doApply
+		#value: #doApply
-#activeHelpKey: #applyLine
+		#activeHelpKey: #applyLine
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply To End'
+		#label: 'Apply To End'
-#translateLabel: true
+		#translateLabel: true
-#value: #doApplyToEnd
+		#value: #doApplyToEnd
-#activeHelpKey: #applyToEnd
+		#activeHelpKey: #applyToEnd
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply All For Class'
+		#label: 'Apply All For Class'
-#translateLabel: true
+		#translateLabel: true
-#value: #doApplyAllForClass
+		#value: #doApplyAllForClass
-#activeHelpKey: #applyForClassToEnd
+		#activeHelpKey: #applyForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply For Class To End'
+		#label: 'Apply For Class To End'
-#translateLabel: true
+		#translateLabel: true
-#value: #doApplyForClassToEnd
+		#value: #doApplyForClassToEnd
-#activeHelpKey: #applyForClassToEnd
+		#activeHelpKey: #applyForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: '-'
+		#label: '-'
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete'
+		#label: 'Delete'
-#translateLabel: true
+		#translateLabel: true
-#value: #doDelete
+		#value: #doDelete
-#activeHelpKey: #deleteLine
+		#activeHelpKey: #deleteLine
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete To End'
+		#label: 'Delete To End'
-#translateLabel: true
+		#translateLabel: true
-#value: #doDeleteToEnd
+		#value: #doDeleteToEnd
-#activeHelpKey: #deleteToEnd
+		#activeHelpKey: #deleteToEnd
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete All For Class'
+		#label: 'Delete All For Class'
-#translateLabel: true
+		#translateLabel: true
-#value: #doDeleteAllForClass
+		#value: #doDeleteAllForClass
-#activeHelpKey: #applyForClassToEnd
+		#activeHelpKey: #applyForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete For Class To End'
+		#label: 'Delete For Class To End'
-#translateLabel: true
+		#translateLabel: true
-#value: #doDeleteForClassToEnd
+		#value: #doDeleteForClassToEnd
-#activeHelpKey: #deleteForClassToEnd
+		#activeHelpKey: #deleteForClassToEnd
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: '-'
+		#label: '-'
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Browse Class'
+		#label: 'Browse Class'
-#translateLabel: true
+		#translateLabel: true
-#value: #doBrowseClass
+		#value: #doBrowseClass
-#activeHelpKey: #fileBrowseClass
+		#activeHelpKey: #fileBrowseClass
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: '-'
+		#label: '-'
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Compress For Class'
+		#label: 'Compress For Class'
-#translateLabel: true
+		#translateLabel: true
-#value: #doCompressForClass
+		#value: #doCompressForClass
-#activeHelpKey: #deleteCompressForClass
+		#activeHelpKey: #deleteCompressForClass
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-)
+	    )
-) nil
+	  ) nil
-nil
+	  nil
 )
 "Modified: / 19.5.1998 / 18:03:59 / cg"
 !
 ^
 #(#Menu
-#(
+	   #(
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Load'
+		#label: 'Load'
-#isButton: true
+		#isButton: true
-#value: #doLoad
+		#value: #doLoad
-#activeHelpKey: #fileLoad
+		#activeHelpKey: #fileLoad
-#enabled: #valueOfNotReading
+		#enabled: #valueOfNotReading
-#labelImage: #(#ResourceRetriever #Icon #loadIcon)
+		#labelImage: #(#ResourceRetriever #Icon #loadIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Save'
+		#label: 'Save'
-#isButton: true
+		#isButton: true
-#value: #doSave
+		#value: #doSave
-#activeHelpKey: #fileSave
+		#activeHelpKey: #fileSave
-#enabled: #valueOfNotSaving
+		#enabled: #valueOfNotSaving
-#labelImage: #(#ResourceRetriever #Icon #saveIcon)
+		#labelImage: #(#ResourceRetriever #Icon #saveIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: ''
+		#label: ''
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Compress'
+		#label: 'Compress'
-#isButton: true
+		#isButton: true
-#value: #doCompress
+		#value: #doCompress
-#activeHelpKey: #deleteCompress
+		#activeHelpKey: #deleteCompress
-#enabled: #valueOfNotReading
+		#enabled: #valueOfNotReading
-#labelImage: #(#ResourceRetriever nil #compressIcon)
+		#labelImage: #(#ResourceRetriever nil #compressIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: ''
+		#label: ''
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply'
+		#label: 'Apply'
-#isButton: true
+		#isButton: true
-#value: #doApply
+		#value: #doApply
-#activeHelpKey: #applyLine
+		#activeHelpKey: #applyLine
-#enabled: #valueOfHavingChangeSelection
+		#enabled: #valueOfHavingChangeSelection
-#labelImage: #(#ResourceRetriever nil #applyIcon)
+		#labelImage: #(#ResourceRetriever nil #applyIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply To End'
+		#label: 'Apply To End'
-#isButton: true
+		#isButton: true
-#value: #doApplyToEnd
+		#value: #doApplyToEnd
-#activeHelpKey: #applyToEnd
+		#activeHelpKey: #applyToEnd
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-#labelImage: #(#ResourceRetriever nil #applyToEndIcon)
+		#labelImage: #(#ResourceRetriever nil #applyToEndIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Apply From Last Snapshot'
+		#label: 'Apply From Last Snapshot'
-#isButton: true
+		#isButton: true
-#value: #doApplyFromLastSnapshot
+		#value: #doApplyFromLastSnapshot
-#activeHelpKey: #applyFromLastSnapshot
+		#activeHelpKey: #applyFromLastSnapshot
-#enabled: #valueOfNotReading
+		#enabled: #valueOfNotReading
-#labelImage: #(#ResourceRetriever nil #applyFromLastSnapshotIcon)
+		#labelImage: #(#ResourceRetriever nil #applyFromLastSnapshotIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: ''
+		#label: ''
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete'
+		#label: 'Delete'
-#isButton: true
+		#isButton: true
-#value: #doDelete
+		#value: #doDelete
-#activeHelpKey: #deleteLine
+		#activeHelpKey: #deleteLine
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-#labelImage: #(#ResourceRetriever nil #deleteIcon)
+		#labelImage: #(#ResourceRetriever nil #deleteIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Delete To End'
+		#label: 'Delete To End'
-#isButton: true
+		#isButton: true
-#value: #doDeleteToEnd
+		#value: #doDeleteToEnd
-#activeHelpKey: #deleteToEnd
+		#activeHelpKey: #deleteToEnd
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-#labelImage: #(#ResourceRetriever nil #deleteToEndIcon)
+		#labelImage: #(#ResourceRetriever nil #deleteToEndIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: ''
+		#label: ''
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Find Last Snapshot'
+		#label: 'Find Last Snapshot'
-#isButton: true
+		#isButton: true
-#value: #doFindSnapshot:
+		#value: #doFindSnapshot:
-#activeHelpKey: #testFindLastSnapshot
+		#activeHelpKey: #testFindLastSnapshot
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-#argument: 'last'
+		#argument: 'last'
-#labelImage: #(#ResourceRetriever nil #findLastSnapshotIcon)
+		#labelImage: #(#ResourceRetriever nil #findLastSnapshotIcon)
-)
+	    )
-#(#MenuItem
+	     #(#MenuItem
-#label: 'Find Next Snapshot'
+		#label: 'Find Next Snapshot'
-#isButton: true
+		#isButton: true
-#value: #doFindSnapshot:
+		#value: #doFindSnapshot:
-#activeHelpKey: #testFindNextSnapshot
+		#activeHelpKey: #testFindNextSnapshot
-#enabled: #valueOfHavingSelection
+		#enabled: #valueOfHavingSelection
-#argument: 'next'
+		#argument: 'next'
-#labelImage: #(#ResourceRetriever nil #findNextSnapshotIcon)
+		#labelImage: #(#ResourceRetriever nil #findNextSnapshotIcon)
-)
+	    )
-) nil
+	  ) nil
-nil
+	  nil
 )
 ! !
 !NewChangesBrowser methodsFor:'accesssing - columns'!
 listOfChangeColumns
 "initializes (during the startup) and returns the value holder for the columns"
 |holder|
 (holder := builder bindingAt:#listOfChangeColumns) isNil ifTrue:[
-builder aspectAt:#listOfChangeColumns put:(holder := List new).
+	builder aspectAt:#listOfChangeColumns put:(holder := List new).
-self changeColumn: nil add: true.
+	self changeColumn: nil add: true.
-self changeColumn: #change add: true.
+	self changeColumn: #change add: true.
-self categoryColumn: self categoryColumn.
+	self categoryColumn: self categoryColumn.
-self timeStampColumn: self timeStampColumn.
+	self timeStampColumn: self timeStampColumn.
-self typeColumn: self typeColumn.
+	self typeColumn: self typeColumn.
-self deltaInfoColumn: self deltaInfoColumn.
+	self deltaInfoColumn: self deltaInfoColumn.
-self positionsColumn: self positionsColumn.
+	self positionsColumn: self positionsColumn.
 ].
 ^ holder
 "Modified: / 19.5.1998 / 20:30:31 / cg"
 !
 listOfChanges
 "returns the value holder for the changes"
 |holder|
 (holder := builder bindingAt:#listOfChanges) isNil ifTrue:[
-builder aspectAt:#listOfChanges put:(holder := List new)
+	builder aspectAt:#listOfChanges put:(holder := List new)
 ].
 ^ holder
 !
 selectionOfChange
 "returns the value holder for the selected change"
 |holder|
 (holder := builder bindingAt:#selectionOfChange) isNil ifTrue:[
-builder aspectAt:#selectionOfChange put:(holder :=  ValueHolder new).
+	builder aspectAt:#selectionOfChange put:(holder :=  ValueHolder new).
 ].
 ^ holder
 !
 valueOfChangeText
 "returns the value holder for the source code of the selected change"
 |holder|
 (holder := builder bindingAt:#valueOfChangeText) isNil ifTrue:[
-builder aspectAt:#valueOfChangeText put:(holder :=  ValueHolder new).
+	builder aspectAt:#valueOfChangeText put:(holder :=  ValueHolder new).
 ].
 ^ holder
 !
 valueOfFilter
 "returns the value holder for the string of the filter"
 |holder|
 (holder := builder bindingAt:#valueOfFilter) isNil ifTrue:[
-builder aspectAt:#valueOfFilter put:(holder :=  ValueHolder new).
+	builder aspectAt:#valueOfFilter put:(holder :=  ValueHolder new).
-holder addDependent: self
+	holder addDependent: self
 ].
 ^ holder
 !
 valueOfHavingChangeSelection
 "returns whether the selected change can be applied as value holder"
 |holder|
 (holder := builder bindingAt:#valueOfHavingChangeSelection) isNil ifTrue:[
-builder aspectAt:#valueOfHavingChangeSelection put:(holder :=  false asValue).
+	builder aspectAt:#valueOfHavingChangeSelection put:(holder :=  false asValue).
 ].
 ^ holder
 !
 valueOfHavingSelection
 "returns whether a change is selected as value holder"
 |holder|
 (holder := builder bindingAt:#valueOfHavingSelection) isNil ifTrue:[
-builder aspectAt:#valueOfHavingSelection put:(holder :=  false asValue).
+	builder aspectAt:#valueOfHavingSelection put:(holder :=  false asValue).
 ].
 ^ holder
 !
 valueOfNotReading
 "returns whether it is not reading or compressing as value holder"
 |holder|
 (holder := builder bindingAt:#valueOfReading) isNil ifTrue:[
-builder aspectAt:#valueOfReading put:(holder :=  true asValue).
+	builder aspectAt:#valueOfReading put:(holder :=  true asValue).
 ].
 ^ holder
 !
 valueOfNotSaving
 "returns whether it is not saving as value holder"
 |holder|
 (holder := builder bindingAt:#valueOfNotSaving) isNil ifTrue:[
-builder aspectAt:#valueOfNotSaving put:(holder :=  true asValue).
+	builder aspectAt:#valueOfNotSaving put:(holder :=  true asValue).
 ].
 ^ holder
 !
 valueOfReadProgress
 "returns the stage of reading or compressing as value holder"
 |holder|
 (holder := builder bindingAt:#valueOfReadProgress) isNil ifTrue:[
-builder aspectAt:#valueOfReadProgress put:(holder :=  ValueHolder with: 0).
+	builder aspectAt:#valueOfReadProgress put:(holder :=  ValueHolder with: 0).
 ].
 ^ holder
 ! !
 !NewChangesBrowser methodsFor:'callbacks'!
 aStream := self streamForChange: (changes at: changeNr).
 aStream isNil ifTrue:[^ self].
 sawExcla := aStream peekFor:(aStream class chunkSeparator).
 chunk := aStream nextChunk.
 sawExcla ifTrue:[
-chunk := aStream nextChunk
+	chunk := aStream nextChunk
 ].
 aStream close.
 self valueOfChangeText value:chunk.
 self updateChannels
 super update:something with:aParameter from:changedObject.
 changedObject == self valueOfFilter
 ifTrue:
 [
-filterCompletionBlock value: changedObject value.
+	filterCompletionBlock value: changedObject value.
-self listOfChanges size > 0 ifTrue: [self addToHistory: changedObject value -> #doFilter:]
+	self listOfChanges size > 0 ifTrue: [self addToHistory: changedObject value -> #doFilter:]
 ]
 |change|
 (change := self selectionOfChange value) notNil
 ifTrue:
 [
-self valueOfHavingSelection value: true.
+	self valueOfHavingSelection value: true.
-self valueOfHavingChangeSelection value:
+	self valueOfHavingChangeSelection value:
-((change type = 'method') or: [(change type = 'class')])
+	    ((change type = 'method') or: [(change type = 'class')])
 ]
 ifFalse:
 [
-self valueOfHavingSelection value: false.
+	self valueOfHavingSelection value: false.
-self valueOfHavingChangeSelection value: false
+	self valueOfHavingChangeSelection value: false
 ]
 |action|
 (skipSignal notNil) ifTrue:[
-self changeTextEditor highlightingErrorPosition:relPos to:relEndPos do:[
+	self changeTextEditor highlightingErrorPosition:relPos to:relEndPos do:[
-|box|
+	    |box|
-"
+	    "
-start dialog - make certain cleanup is done
+	     start dialog - make certain cleanup is done
-"
+	    "
-action := OptionBox
+	    action := OptionBox
-request:aString
+			  request:aString
-label:'Error'
+			  label:'Error'
-form:(WarningBox iconBitmap)
+			  form:(WarningBox iconBitmap)
-buttonLabels:#('cancel' 'skip' 'continue')
+			  buttonLabels:#('cancel' 'skip' 'continue')
-values:#(#abort #skip #continue)
+			  values:#(#abort #skip #continue)
-default:#continue.
+			  default:#continue.
-].
+	].
-action == #abort ifTrue:[
+	action == #abort ifTrue:[
-Object abortSignal raise.
+	    Object abortSignal raise.
-^ false
+	    ^ false
-].
+	].
-action == #skip ifTrue:[
+	action == #skip ifTrue:[
-skipSignal raise.
+	    skipSignal raise.
-^ false
+	    ^ false
-].
+	].
-^  false
+	^  false
 ].
 ^self changeTextEditor error:aString position:relPos to:relEndPos from:aCompiler
 !
 aStream := self streamForChange:aChange.
 aStream isNil ifTrue:[^ self].
 nm := self classNameOfChange:aChange.
 nm notNil ifTrue:[
-|cls|
+	|cls|
-cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
+	cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
-cls notNil ifTrue:[
+	cls notNil ifTrue:[
-cls isLoaded ifFalse:[
+	    cls isLoaded ifFalse:[
-cls autoload
+		cls autoload
-]
+	    ]
-]
+	]
 ].
 applyAction := [
-|sig|
+	|sig|
-(skipSignal notNil) ifTrue:[
+	(skipSignal notNil) ifTrue:[
-sig := skipSignal
+	    sig := skipSignal
-] ifFalse:[
+	] ifFalse:[
-sig := Object abortSignal
+	    sig := Object abortSignal
-].
+	].
-sig catch:[
+	sig catch:[
-|reader doItChunk methodsForChunk|
+	    |reader doItChunk methodsForChunk|
-"/ a followup methodsFor: chunk...
+	    "/ a followup methodsFor: chunk...
-aChange followUp ifTrue:[
+	    aChange followUp ifTrue:[
-methodsForChunk := aChange chunk.
+		methodsForChunk := aChange chunk.
-] ifFalse:[
+	    ] ifFalse:[
-doItChunk := aStream nextChunk.   "/ an empty chunk sometimes...
+		doItChunk := aStream nextChunk.   "/ an empty chunk sometimes...
-doItChunk notEmpty ifTrue:[
+		doItChunk notEmpty ifTrue:[
-Compiler evaluate:doItChunk notifying:self.
+		    Compiler evaluate:doItChunk notifying:self.
-] ifFalse:[
+		] ifFalse:[
-methodsForChunk := aStream nextChunk.   "/ the real one
+		    methodsForChunk := aStream nextChunk.   "/ the real one
-]
+		]
-].
+	    ].
-methodsForChunk notNil ifTrue:[
+	    methodsForChunk notNil ifTrue:[
-Class methodRedefinitionSignal handle:[:ex |
+		Class methodRedefinitionSignal handle:[:ex |
-ex proceedWith:#keep
+		    ex proceedWith:#keep
-] do:[
+		] do:[
-reader := Compiler evaluate:methodsForChunk notifying:self.
+		    reader := Compiler evaluate:methodsForChunk notifying:self.
-reader fileInFrom:aStream notifying:self passChunk:false single:true.
+		    reader fileInFrom:aStream notifying:self passChunk:false single:true.
-]
+		]
-]
+	    ]
-].
+	].
 ].
 "/
 "/ if I am showing the changes file, dont update it
 "/
 changeFileName asFilename pathName = ObjectMemory nameForChanges asFilename pathName ifTrue:[
-Class withoutUpdatingChangesDo:applyAction
+	Class withoutUpdatingChangesDo:applyAction
 ] ifFalse:[
-applyAction value
+	applyAction value
 ].
 aStream close
 "Modified: / 8.9.1998 / 12:48:01 / cg"
 !
 autoSelectChange:aChange
 "selects aChange"
 self class autoSelectNext ifTrue:[
-((self listOfChanges indexOf: aChange) <= self listOfChanges size) ifTrue:[
+	((self listOfChanges indexOf: aChange) <= self listOfChanges size) ifTrue:[
-self selectionOfChange value: aChange.
+	    self selectionOfChange value: aChange.
-self changeSelected:(self listOfChanges indexOf: aChange).
+	    self changeSelected:(self listOfChanges indexOf: aChange).
-self updateChannels.
+	    self updateChannels.
-^ self
+	    ^ self
-]
+	]
 ].
 self updateChannels.
 self unselectChange
 !
 |last|
 last := self listOfChanges size.
 aChange notNil ifTrue:[
-self autoSelectChange:aChange
+	self autoSelectChange:aChange
 ] ifFalse:[
-self selectionOfChange value: (self listOfChanges at: last ifAbsent: nil).
+	self selectionOfChange value: (self listOfChanges at: last ifAbsent: nil).
-self changeSelected: last
+	self changeSelected: last
 ].
 self updateChannels
 !
 changeColumn: aColumnId add: addOrRemove
 newListOfChangeColumns := self listOfChangeColumns asOrderedCollection.
 addOrRemove
 ifTrue:
 [
-newListOfChangeColumns add:
+	newListOfChangeColumns add:
-((self class tableColumnsForChangeAttributes
+	    ((self class tableColumnsForChangeAttributes
-collect: [:i| i decodeAsLiteralArray])
+		collect: [:i| i decodeAsLiteralArray])
-detect: [:column| column id = aColumnId])
+		    detect: [:column| column id = aColumnId])
 ]
 ifFalse:
 [
-newListOfChangeColumns remove:
+	newListOfChangeColumns remove:
-(self listOfChangeColumns detect: [:column| column id = aColumnId] ifNone: nil) ifAbsent: nil
+	    (self listOfChangeColumns detect: [:column| column id = aColumnId] ifNone: nil) ifAbsent: nil
 ].
 self listOfChangeColumns contents: newListOfChangeColumns.
 self autoSelectLast
 "Modified: / 19.5.1998 / 20:32:53 / cg"
 checkClassIsLoaded:aClass
 "returns true if aClass is loaded"
 |cls|
 aClass isMeta ifTrue:[
-cls := aClass soleInstance
+	cls := aClass soleInstance
 ] ifFalse:[
-cls := aClass
+	cls := aClass
 ].
 cls isLoaded ifFalse:[
-(self confirm:(cls name , ' is an autoloaded class.\I can only compare the methods texts if its loaded first.\\Load the class first ?') withCRs)
+	(self confirm:(cls name , ' is an autoloaded class.\I can only compare the methods texts if its loaded first.\\Load the class first ?') withCRs)
-ifTrue:[
+	ifTrue:[
-cls autoload
+	    cls autoload
-]
+	]
 ].
 ^ cls isLoaded
 !
 checkIfFileHasChanged
 |f info|
 Processor removeTimedBlock:autoUpdateBlock.
 f := changeFileName asFilename.
 (info := f info) isNil ifTrue:[
-self newLabel:'unaccessable'
+	self newLabel:'unaccessable'
 ] ifFalse:[
-(info modified) > changeFileTimestamp ifTrue:[
+	(info modified) > changeFileTimestamp ifTrue:[
-self newLabel:'outdated'.
+	    self newLabel:'outdated'.
-AutoUpdate ifTrue:[
+	    AutoUpdate ifTrue:[
-self doReload
+		self doReload
-]
+	    ]
-] ifFalse:[
+	] ifFalse:[
-self newLabel:''
+	    self newLabel:''
-]
+	]
 ].
 Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
 !
 classNameOfChange:aChange
 |name|
 name := self fullClassNameOfChange:aChange.
 name isNil ifTrue:[^ nil].
 (name endsWith:' class') ifTrue:[
-^ name copyWithoutLast:6
+	^ name copyWithoutLast:6
 ].
 ^ name
 !
 compareChange:aChange
 aStream isNil ifTrue:[^ self].
 showDiff := false.
 aChange followUp ifFalse:[
-sawExcla := aStream peekFor:(aStream class chunkSeparator).
+	sawExcla := aStream peekFor:(aStream class chunkSeparator).
-chunk := aStream nextChunk.
+	chunk := aStream nextChunk.
 ] ifTrue:[
-chunk := aChange chunk.
+	chunk := aChange chunk.
-sawExcla := true.
+	sawExcla := true.
 ].
 beep := false.
 sawExcla ifFalse:[
-outcome := 'Cannot compare this change\(i.e. this is not a method change)!!'.
+	outcome := 'Cannot compare this change\(i.e. this is not a method change)!!'.
-parseTree := Parser parseExpression:chunk.
+	parseTree := Parser parseExpression:chunk.
-(parseTree notNil and:[parseTree isMessage]) ifTrue:[
+	(parseTree notNil and:[parseTree isMessage]) ifTrue:[
-((selector := parseTree selector) == #removeSelector:) ifTrue:[
+	    ((selector := parseTree selector) == #removeSelector:) ifTrue:[
-thisClass := (parseTree receiver evaluate).
+		thisClass := (parseTree receiver evaluate).
-thisClass isBehavior ifTrue:[
+		thisClass isBehavior ifTrue:[
-(self checkClassIsLoaded:thisClass) ifTrue:[
+		    (self checkClassIsLoaded:thisClass) ifTrue:[
-selector := (parseTree arg1 evaluate).
+			selector := (parseTree arg1 evaluate).
-(thisClass includesSelector:selector) ifTrue:[
+			(thisClass includesSelector:selector) ifTrue:[
-outcome := 'Change removes the #' , selector , ' method from ' , thisClass name.
+			    outcome := 'Change removes the #' , selector , ' method from ' , thisClass name.
-] ifFalse:[
+			] ifFalse:[
-outcome := 'Change has no effect\(there is no method for #' , selector , ' in ' , thisClass name , ')'
+			    outcome := 'Change has no effect\(there is no method for #' , selector , ' in ' , thisClass name , ')'
-]
+			]
-] ifFalse:[
+		    ] ifFalse:[
-beep := true.
+			beep := true.
-outcome := 'Cannot compare this change (compare requires class to be loaded)!!'.
+			outcome := 'Cannot compare this change (compare requires class to be loaded)!!'.
-]
+		    ]
-]
+		]
-].
+	    ].
-selector == #category: ifTrue:[
+	    selector == #category: ifTrue:[
-parseTree receiver isMessage ifTrue:[
+		parseTree receiver isMessage ifTrue:[
-parseTree receiver selector == #compiledMethodAt: ifTrue:[
+		    parseTree receiver selector == #compiledMethodAt: ifTrue:[
-(method := parseTree receiver evaluate) isMethod ifTrue:[
+			(method := parseTree receiver evaluate) isMethod ifTrue:[
-method category = parseTree arg1 evaluate ifTrue:[
+			    method category = parseTree arg1 evaluate ifTrue:[
-outcome := 'Change has no effect\(same category)'.
+				outcome := 'Change has no effect\(same category)'.
-] ifFalse:[
+			    ] ifFalse:[
-outcome := 'Category is different (''' , method category , ''' vs. ''' , parseTree arg1 evaluate , ''')'
+				outcome := 'Category is different (''' , method category , ''' vs. ''' , parseTree arg1 evaluate , ''')'
-]
+			    ]
-] ifFalse:[
+			] ifFalse:[
-beep := true.
+			    beep := true.
-outcome := 'There is no such method!!'
+			    outcome := 'There is no such method!!'
-]
+			]
-]
+		    ]
-]
+		]
-]
+	    ]
-]
+	]
 ] ifTrue:[
-parseTree := Parser parseExpression:chunk.
+	parseTree := Parser parseExpression:chunk.
-(parseTree notNil
+	(parseTree notNil
-and:[parseTree ~~ #Error
+	 and:[parseTree ~~ #Error
-and:[parseTree isMessage]]) ifTrue:[
+	 and:[parseTree isMessage]]) ifTrue:[
-(parseTree selector == #methodsFor:) ifTrue:[
+	    (parseTree selector == #methodsFor:) ifTrue:[
-thisClass := (parseTree receiver evaluate).
+		thisClass := (parseTree receiver evaluate).
-thisClass isBehavior ifTrue:[
+		thisClass isBehavior ifTrue:[
-(isLoaded := self checkClassIsLoaded:thisClass) ifFalse:[
+		    (isLoaded := self checkClassIsLoaded:thisClass) ifFalse:[
-outcome := 'Cannot compare this change\(compare requires class to be loaded)!!'.
+			outcome := 'Cannot compare this change\(compare requires class to be loaded)!!'.
-].
+		    ].
-cat := parseTree arg1 evaluate.
+		    cat := parseTree arg1 evaluate.
-newSource := aStream nextChunk.
+		    newSource := aStream nextChunk.
-parser := Parser parseMethod:newSource in:thisClass.
+		    parser := Parser parseMethod:newSource in:thisClass.
-(parser notNil and:[parser ~~ #Error]) ifTrue:[
+		    (parser notNil and:[parser ~~ #Error]) ifTrue:[
-sel := parser selector.
+			sel := parser selector.
-oldMethod := thisClass compiledMethodAt:sel.
+			oldMethod := thisClass compiledMethodAt:sel.
-oldMethod notNil ifTrue:[
+			oldMethod notNil ifTrue:[
-(oldMethod category = cat) ifFalse:[
+			    (oldMethod category = cat) ifFalse:[
-Transcript showCR:'Category changed.'.
+				Transcript showCR:'Category changed.'.
-].
+			    ].
-oldSource := oldMethod source.
+			    oldSource := oldMethod source.
-(oldSource = newSource) ifTrue:[
+			    (oldSource = newSource) ifTrue:[
-outcome := 'Same source.'
+				outcome := 'Same source.'
-] ifFalse:[
+			    ] ifFalse:[
-oldSource isNil ifTrue:[
+				oldSource isNil ifTrue:[
-beep := true.
+				    beep := true.
-outcome := 'No source for compare.'
+				    outcome := 'No source for compare.'
-] ifFalse:[
+				] ifFalse:[
-"/
+				    "/
-"/ compare for tabulator <-> space changes
+				    "/ compare for tabulator <-> space changes
-"/ before showing diff...
+				    "/ before showing diff...
-"/
+				    "/
-t1 := oldSource asCollectionOfLines collect:[:s | s withTabsExpanded].
+				    t1 := oldSource asCollectionOfLines collect:[:s | s withTabsExpanded].
-t2 := newSource asCollectionOfLines collect:[:s | s withTabsExpanded].
+				    t2 := newSource asCollectionOfLines collect:[:s | s withTabsExpanded].
-t1 = t2 ifTrue:[
+				    t1 = t2 ifTrue:[
-outcome := 'Same source.'
+					outcome := 'Same source.'
-] ifFalse:[
+				    ] ifFalse:[
-outcome := 'Source changed!!'.
+					outcome := 'Source changed!!'.
-showDiff := true.
+					showDiff := true.
-"/
+					"/
-"/ check if only historyLine diffs
+					"/ check if only historyLine diffs
-"/
+					"/
-(HistoryManager notNil
+					(HistoryManager notNil
-and:[HistoryManager isActive]) ifTrue:[
+					and:[HistoryManager isActive]) ifTrue:[
-(HistoryManager withoutHistoryLines:newSource)
+					    (HistoryManager withoutHistoryLines:newSource)
-=
+					    =
-(HistoryManager withoutHistoryLines:oldSource)
+					    (HistoryManager withoutHistoryLines:oldSource)
-ifTrue:[
+					    ifTrue:[
-outcome := 'Same source (history only).'.
+						outcome := 'Same source (history only).'.
-showDiff := false.
+						showDiff := false.
-]
+					    ]
-].
+					].
-]
+				    ]
-]
+				]
-]
+			    ]
-] ifFalse:[
+			] ifFalse:[
-isLoaded ifTrue:[
+			    isLoaded ifTrue:[
-beep := true.
+				beep := true.
-outcome := 'Method does not exist!!'
+				outcome := 'Method does not exist!!'
-]
+			    ]
-]
+			]
-] ifFalse:[
+		    ] ifFalse:[
-outcome := 'Change unparsable!!'
+			outcome := 'Change unparsable!!'
-].
+		    ].
-(showDiff and:[oldSource notNil and:[newSource notNil]]) ifTrue:[
+		    (showDiff and:[oldSource notNil and:[newSource notNil]]) ifTrue:[
-d := DiffTextView
+			d := DiffTextView
-openOn:oldSource label:'Current version (in image)'
+				openOn:oldSource label:'Current version (in image)'
-and:newSource label:'Change version'.
+				and:newSource label:'Change version'.
-d label:'method differences'.
+			d label:'method differences'.
-]
+		    ]
-] ifFalse:[
+		] ifFalse:[
-beep := true.
+		    beep := true.
-outcome := 'Class does not exist!!'
+		    outcome := 'Class does not exist!!'
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-beep := true.
+		beep := true.
-outcome := 'Not comparable!!'
+		outcome := 'Not comparable!!'
-]
+	    ]
-] ifFalse:[
+	] ifFalse:[
-beep := true.
+	    beep := true.
-outcome := 'Not comparable!!'
+	    outcome := 'Not comparable!!'
-]
+	]
 ].
 aStream close.
 showDiff ifFalse:[
-beep ifTrue:[
+	beep ifTrue:[
-self warn:outcome withCRs.
+	    self warn:outcome withCRs.
-] ifFalse:[
+	] ifFalse:[
-self information:outcome withCRs.
+	    self information:outcome withCRs.
-]
+	]
 ]
 !
 compressForClass:aClassNameOrNil
 "compresses the list of changes;
 aStream := FileStream readonlyFileNamed:changeFileName.
 aStream isNil ifTrue:[^ self].
 aClassNameOrNil isNil ifTrue:[
-self newLabel:'compressing...'.
+	self newLabel:'compressing...'.
 ] ifFalse:[
-self newLabel:'compressing for ' , aClassNameOrNil.
+	self newLabel:'compressing for ' , aClassNameOrNil.
 ].
 CompressSnapshotInfo == true ifTrue:[
-"
+	"
-get a prototype snapshot record (to be independent of
+	 get a prototype snapshot record (to be independent of
-the actual format ..
+	 the actual format ..
-"
+	"
-str := WriteStream on:String new.
+	str := WriteStream on:String new.
-Class addChangeRecordForSnapshot:'foo' to:str.
+	Class addChangeRecordForSnapshot:'foo' to:str.
-snapshotProto := str contents.
+	snapshotProto := str contents.
-snapshotPrefix := snapshotProto copyTo:10.
+	snapshotPrefix := snapshotProto copyTo:10.
-snapshotNameIndex := snapshotProto findString:'foo'.
+	snapshotNameIndex := snapshotProto findString:'foo'.
 ].
 self valueOfNotReading value: false.
 self valueOfHavingSelection value: false.
 self valueOfHavingChangeSelection value: false.
 self valueOfReadProgress value: 0.
 self readProgressIndicator raise.
 self filterLabel label: 'Comp:'; redraw.
 self withExecuteCursorDo:[
-|numChanges classes selectors types excla sawExcla
+	|numChanges classes selectors types excla sawExcla
-changeNr chunk aParseTree parseTreeChunk
+	 changeNr chunk aParseTree parseTreeChunk
-thisClass thisSelector codeChunk codeParser
+	 thisClass thisSelector codeChunk codeParser
-compressThis oldValue|
+	 compressThis oldValue|
-numChanges := changes size.
+	numChanges := changes size.
-classes := Array new:numChanges.
+	classes := Array new:numChanges.
-selectors := Array new:numChanges.
+	selectors := Array new:numChanges.
-types := Array new:numChanges.
+	types := Array new:numChanges.
-"starting at the end, get the change class and change selector;
+	"starting at the end, get the change class and change selector;
-collect all in classes / selectors"
+	 collect all in classes / selectors"
-changeNr := numChanges.
+	changeNr := numChanges.
-excla := aStream class chunkSeparator.
+	excla := aStream class chunkSeparator.
-[changeNr >= 1] whileTrue:[
+	[changeNr >= 1] whileTrue:[
-oldValue := self valueOfReadProgress value.
+	    oldValue := self valueOfReadProgress value.
-self valueOfReadProgress value: (100 - ((aStream position/aStream size) * 100) rounded).
+		self valueOfReadProgress value: (100 - ((aStream position/aStream size) * 100) rounded).
-oldValue ~~ self valueOfReadProgress value
+		oldValue ~~ self valueOfReadProgress value
-ifTrue: [self readProgressIndicator redrawEdges;redraw].
+		    ifTrue: [self readProgressIndicator redrawEdges;redraw].
-aStream position:(changes at: changeNr) position.
+	    aStream position:(changes at: changeNr) position.
-sawExcla := aStream peekFor:excla.
+	    sawExcla := aStream peekFor:excla.
-chunk := aStream nextChunk.
+	    chunk := aStream nextChunk.
-sawExcla ifTrue:[
+	    sawExcla ifTrue:[
-"optimize a bit if multiple methods for same category arrive"
+		"optimize a bit if multiple methods for same category arrive"
-(chunk = parseTreeChunk) ifFalse:[
+		(chunk = parseTreeChunk) ifFalse:[
-aParseTree := Parser parseExpression:chunk.
+		    aParseTree := Parser parseExpression:chunk.
-parseTreeChunk := chunk
+		    parseTreeChunk := chunk
-].
+		].
-(aParseTree notNil
+		(aParseTree notNil
-and:[(aParseTree ~~ #Error)
+		and:[(aParseTree ~~ #Error)
-and:[aParseTree isMessage]]) ifTrue:[
+		and:[aParseTree isMessage]]) ifTrue:[
-(aParseTree selector == #methodsFor:) ifTrue:[
+		    (aParseTree selector == #methodsFor:) ifTrue:[
-thisClass := (aParseTree receiver evaluate).
+			thisClass := (aParseTree receiver evaluate).
-codeChunk := aStream nextChunk.
+			codeChunk := aStream nextChunk.
-codeParser := Parser
+			codeParser := Parser
-parseMethodSpecification:codeChunk
+					  parseMethodSpecification:codeChunk
-in:thisClass
+					  in:thisClass
-ignoreErrors:true
+					  ignoreErrors:true
-ignoreWarnings:true.
+					  ignoreWarnings:true.
-(codeParser notNil and:[codeParser ~~ #Error]) ifTrue:[
+			(codeParser notNil and:[codeParser ~~ #Error]) ifTrue:[
-selectors at:changeNr put:(codeParser selector).
+			    selectors at:changeNr put:(codeParser selector).
-classes at:changeNr put:thisClass.
+			    classes at:changeNr put:thisClass.
-types at:changeNr put:#methodsFor
+			    types at:changeNr put:#methodsFor
-]
+			]
-]
+		    ]
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-aParseTree := Parser parseExpression:chunk.
+		aParseTree := Parser parseExpression:chunk.
-parseTreeChunk := chunk.
+		parseTreeChunk := chunk.
-(aParseTree notNil
+		(aParseTree notNil
-and:[(aParseTree ~~ #Error)
+		and:[(aParseTree ~~ #Error)
-and:[aParseTree isMessage]]) ifTrue:[
+		and:[aParseTree isMessage]]) ifTrue:[
-(aParseTree selector == #removeSelector:) ifTrue:[
+		    (aParseTree selector == #removeSelector:) ifTrue:[
-selectors at:changeNr put:(aParseTree arg1 value ).
+			selectors at:changeNr put:(aParseTree arg1 value ).
-classes at:changeNr put:(aParseTree receiver evaluate).
+			classes at:changeNr put:(aParseTree receiver evaluate).
-types at:changeNr put:#removeSelector
+			types at:changeNr put:#removeSelector
-]
+		    ]
-] ifFalse:[
+		] ifFalse:[
-CompressSnapshotInfo == true ifTrue:[
+		    CompressSnapshotInfo == true ifTrue:[
-(chunk startsWith:snapshotPrefix) ifTrue:[
+			(chunk startsWith:snapshotPrefix) ifTrue:[
-str := chunk readStream position:snapshotNameIndex.
+			    str := chunk readStream position:snapshotNameIndex.
-fileName := str upTo:(Character space).
+			    fileName := str upTo:(Character space).
-"
+			    "
-kludge to allow use of match-check below
+			     kludge to allow use of match-check below
-"
+			    "
-selectors at:changeNr put:snapshotPrefix.
+			    selectors at:changeNr put:snapshotPrefix.
-classes at:changeNr put:fileName.
+			    classes at:changeNr put:fileName.
-]
+			]
-]
+		    ]
-]
+		]
-].
+	    ].
-changeNr := changeNr - 1
+	    changeNr := changeNr - 1
-].
+	].
-aStream close.
+	aStream close.
-"for all changes, look for another class/selector occurence later
+	"for all changes, look for another class/selector occurence later
-in the list and, if there is one, add change number to the delete set"
+	 in the list and, if there is one, add change number to the delete set"
-deleteSet := OrderedCollection new.
+	deleteSet := OrderedCollection new.
-changeNr := 1.
+	changeNr := 1.
-[changeNr < changes size] whileTrue:[
+	[changeNr < changes size] whileTrue:[
-thisClass := classes at:changeNr.
+	    thisClass := classes at:changeNr.
-compressThis := false.
+	    compressThis := false.
-aClassNameOrNil isNil ifTrue:[
+	    aClassNameOrNil isNil ifTrue:[
-compressThis := true
+		compressThis := true
-] ifFalse:[
+	    ] ifFalse:[
-"/ skipping unloaded/unknown classes
+		"/ skipping unloaded/unknown classes
-thisClass isBehavior ifTrue:[
+		thisClass isBehavior ifTrue:[
-thisClass isMeta ifTrue:[
+		    thisClass isMeta ifTrue:[
-compressThis := aClassNameOrNil = thisClass soleInstance name.
+			compressThis := aClassNameOrNil = thisClass soleInstance name.
-] ifFalse:[
+		    ] ifFalse:[
-compressThis := aClassNameOrNil = thisClass name.
+			compressThis := aClassNameOrNil = thisClass name.
-(PrivateAsSeparate not and: [thisClass isPrivate])
+			(PrivateAsSeparate not and: [thisClass isPrivate])
-ifTrue:[compressThis := aClassNameOrNil = thisClass owningClass name]
+			    ifTrue:[compressThis := aClassNameOrNil = thisClass owningClass name]
-]
+		    ]
-]
+		 ]
-].
+	    ].
-compressThis ifTrue:[
+	    compressThis ifTrue:[
-thisSelector := selectors at:changeNr.
+		thisSelector := selectors at:changeNr.
-searchIndex := changeNr.
+		searchIndex := changeNr.
-anyMore := true.
+		anyMore := true.
-[anyMore] whileTrue:[
+		[anyMore] whileTrue:[
-searchIndex := classes indexOf:thisClass
+		    searchIndex := classes indexOf:thisClass
-startingAt:(searchIndex + 1).
+					startingAt:(searchIndex + 1).
-(searchIndex ~~ 0) ifTrue:[
+		    (searchIndex ~~ 0) ifTrue:[
-((selectors at:searchIndex) == thisSelector) ifTrue:[
+			((selectors at:searchIndex) == thisSelector) ifTrue:[
-thisClass notNil ifTrue:[
+			    thisClass notNil ifTrue:[
-deleteSet add:changeNr.
+				deleteSet add:changeNr.
-anyMore := false
+				anyMore := false
-]
+			    ]
-]
+			]
-] ifFalse:[
+		    ] ifFalse:[
-anyMore := false
+			anyMore := false
-]
+		    ]
-].
+		].
-].
+	    ].
-changeNr := changeNr + 1
+	    changeNr := changeNr + 1
-].
+	].
-"finally delete what has been found"
+	"finally delete what has been found"
-(deleteSet size > 0) ifTrue:[
+	(deleteSet size > 0) ifTrue:[
-index := deleteSet size.
+	    index := deleteSet size.
-[index > 0] whileTrue:[
+	    [index > 0] whileTrue:[
-self silentDeleteChange: (changes at: (deleteSet at:index)).
+		self silentDeleteChange: (changes at: (deleteSet at:index)).
-index := index - 1
+		index := index - 1
-].
+	    ].
-self setChangeList
+	    self setChangeList
-].
+	].
 ].
 self valueOfNotReading value: true.
 self filterField raise.
 self filterLabel label: 'Filter:'.
 self newLabel: ''
 contractClass:className selector:selector to:maxLen
 |s l|
 s := className , ' ', selector.
 s size > maxLen ifTrue:[
-l := maxLen - 1 - selector size max:20.
+	l := maxLen - 1 - selector size max:20.
-s := (className contractTo:l) , ' ' , selector.
+	s := (className contractTo:l) , ' ' , selector.
-s size > maxLen ifTrue:[
+	s size > maxLen ifTrue:[
-l := maxLen - 1 - className size max:20.
+	    l := maxLen - 1 - className size max:20.
-s := className , ' ', (selector contractTo:l).
+	    s := className , ' ', (selector contractTo:l).
-s size > maxLen ifTrue:[
+	    s size > maxLen ifTrue:[
-s := (className contractTo:(maxLen // 2 - 1)) , ' ' , (selector contractTo:maxLen // 2)
+		s := (className contractTo:(maxLen // 2 - 1)) , ' ' , (selector contractTo:maxLen // 2)
-]
+	    ]
-]
+	]
 ].
 ^ s
 !
 deleteChangesFrom:start to:stop
 "deletes a range of changes"
 self unselectChange.
 stop to:start by:-1 do:[:changeNr|
-self silentDeleteChange:(self listOfChanges at: changeNr)
+	self silentDeleteChange:(self listOfChanges at: changeNr)
 ].
 self setChangeList
 !
 fullClassNameOfChange:aChange
 name := aChange className.
 name notNil ifTrue:[^ name].
 prevMethodDefNr := changes indexOf: aChange.
 [(changes at:prevMethodDefNr) followUp] whileTrue:[
-prevMethodDefNr := prevMethodDefNr - 1.
+	prevMethodDefNr := prevMethodDefNr - 1.
 ].
 "
 get the chunk
 "
 chunk := (changes at:prevMethodDefNr) chunk.
 chunk isNil ifTrue:[^ nil].       "mhmh - empty"
 (chunk startsWith:'''---') ifTrue:[
-words := chunk asCollectionOfWords.
+	words := chunk asCollectionOfWords.
-words size > 2 ifTrue:[
+	words size > 2 ifTrue:[
-(words at:2) = 'checkin' ifTrue:[
+	    (words at:2) = 'checkin' ifTrue:[
-name := words at:3.
+		name := words at:3.
-aChange className: name.
+		aChange className: name.
-^ name
+		^ name
-]
+	    ]
-].
+	].
 ].
 "/ fix it - otherwise, it cannot be parsed
 (chunk endsWith:'primitiveDefinitions:') ifTrue:[
-chunk := chunk , ''''''
+	chunk := chunk , ''''''
 ].
 (chunk endsWith:'primitiveFunctions:') ifTrue:[
-chunk := chunk , ''''''
+	chunk := chunk , ''''''
 ].
 (chunk endsWith:'primitiveVariables:') ifTrue:[
-chunk := chunk , ''''''
+	chunk := chunk , ''''''
 ].
 "
 use parser to construct a parseTree
 "
 oldDollarSetting := Parser allowDollarInIdentifier.
 [
-Parser allowDollarInIdentifier:true.
+	Parser allowDollarInIdentifier:true.
-aParseTree := Parser parseExpression:chunk.
+	aParseTree := Parser parseExpression:chunk.
 ] valueNowOrOnUnwindDo:[
-Parser allowDollarInIdentifier:oldDollarSetting
+	Parser allowDollarInIdentifier:oldDollarSetting
 ].
 (aParseTree isNil or:[aParseTree == #Error]) ifTrue:[
-^ nil        "seems strange... (could be a comment)"
+	^ nil        "seems strange... (could be a comment)"
 ].
 aParseTree isMessage ifFalse:[
-^ nil        "very strange... (whats that ?)"
+	^ nil        "very strange... (whats that ?)"
 ].
 "
 ask parser for selector
 "
 #'primitiveFunctions:'
 #'primitiveVariables:'
 #'renameCategory:to:'
 #'instanceVariableNames:'
 ) includes:sel) ifTrue:[
-"
+	"
-yes, the className is the receiver
+	 yes, the className is the receiver
-"
+	"
-(recTree notNil and:[recTree ~~ #Error]) ifTrue:[
+	(recTree notNil and:[recTree ~~ #Error]) ifTrue:[
-isMeta := false.
+	    isMeta := false.
-recTree isUnaryMessage ifTrue:[
+	    recTree isUnaryMessage ifTrue:[
-(recTree selector ~~ #class) ifTrue:[^ nil].
+		(recTree selector ~~ #class) ifTrue:[^ nil].
-"id class methodsFor:..."
+		"id class methodsFor:..."
-recTree := recTree receiver.
+		recTree := recTree receiver.
-isMeta := true.
+		isMeta := true.
-].
+	    ].
-recTree isPrimary ifTrue:[
+	    recTree isPrimary ifTrue:[
-name := recTree name.
+		name := recTree name.
-isMeta ifTrue:[
+		isMeta ifTrue:[
-name := name , ' class'.
+		    name := name , ' class'.
-].
+		].
-aChange className: name.
+		aChange className: name.
-^ name
+		^ name
-]
+	    ]
-].
+	].
-"more strange things"
+	"more strange things"
-^ nil
+	^ nil
 ].
 "
 is it a change in a class-description ?
 "
 (('subclass:*' match:sel)
 or:[('variable*subclass:*' match:sel)]) ifTrue:[
-"/ must parse the full changes text, to get
+	"/ must parse the full changes text, to get
-"/ privacy information.
+	"/ privacy information.
-changeStream := self streamForChange:aChange.
+	changeStream := self streamForChange:aChange.
-changeStream notNil ifTrue:[
+	changeStream notNil ifTrue:[
-chunk := changeStream nextChunk.
+	    chunk := changeStream nextChunk.
-changeStream close.
+	    changeStream close.
-fullParseTree := Parser parseExpression:chunk.
+	    fullParseTree := Parser parseExpression:chunk.
-(fullParseTree isNil or:[fullParseTree == #Error]) ifTrue:[
+	    (fullParseTree isNil or:[fullParseTree == #Error]) ifTrue:[
-fullParseTree := nil
+		fullParseTree := nil
-].
+	    ].
-fullParseTree isMessage ifFalse:[
+	    fullParseTree isMessage ifFalse:[
-fullParseTree := nil
+		fullParseTree := nil
-].
+	    ].
-"/ actually, the nil case cannot happen
+	    "/ actually, the nil case cannot happen
-fullParseTree notNil ifTrue:[
+	    fullParseTree notNil ifTrue:[
-aParseTree := fullParseTree.
+		aParseTree := fullParseTree.
-sel := aParseTree selector.
+		sel := aParseTree selector.
-].
+	    ].
-].
+	].
-arg1Tree := aParseTree arg1.
+	arg1Tree := aParseTree arg1.
-(arg1Tree notNil and:[arg1Tree isConstant]) ifTrue:[
+	(arg1Tree notNil and:[arg1Tree isConstant]) ifTrue:[
-name := arg1Tree value asString.
+	    name := arg1Tree value asString.
-"/ is it a private-class ?
+	    "/ is it a private-class ?
-('*privateIn:' match:sel) ifTrue:[
+	    ('*privateIn:' match:sel) ifTrue:[
-ownerTree := aParseTree args last.
+		ownerTree := aParseTree args last.
-ownerName := ownerTree name asString.
+		ownerName := ownerTree name asString.
-name := ownerName , '::' , name
+		name := ownerName , '::' , name
-].
+	    ].
-aChange className: name.
+	    aChange className: name.
-^ name
+	    ^ name
-].
+	].
-"very strange"
+	"very strange"
-^ nil
+	^ nil
 ].
 "
 is it a class remove ?
 "
 (sel == #removeClass:) ifTrue:[
-(recTree notNil
+	(recTree notNil
-and:[recTree ~~ #Error
+	and:[recTree ~~ #Error
-and:[recTree isPrimary
+	and:[recTree isPrimary
-and:[recTree name = 'Smalltalk']]]) ifTrue:[
+	and:[recTree name = 'Smalltalk']]]) ifTrue:[
-arg1Tree := aParseTree arg1.
+	    arg1Tree := aParseTree arg1.
-(arg1Tree notNil and:[arg1Tree isPrimary]) ifTrue:[
+	    (arg1Tree notNil and:[arg1Tree isPrimary]) ifTrue:[
-name := arg1Tree name.
+		name := arg1Tree name.
-aChange className: name.
+		aChange className: name.
-^ name
+		^ name
-].
+	    ].
-]
+	]
 ].
 "
 is it a method category change ?
 "
 ((sel == #category:)
 or:[sel == #privacy:]) ifTrue:[
-(recTree notNil
+	(recTree notNil
-and:[recTree ~~ #Error
+	and:[recTree ~~ #Error
-and:[recTree isMessage
+	and:[recTree isMessage
-and:[recTree selector == #compiledMethodAt:]]]) ifTrue:[
+	and:[recTree selector == #compiledMethodAt:]]]) ifTrue:[
-isMeta := false.
+	    isMeta := false.
-recTree := recTree receiver.
+	    recTree := recTree receiver.
-recTree isUnaryMessage ifTrue:[
+	    recTree isUnaryMessage ifTrue:[
-(recTree selector ~~ #class) ifTrue:[^ nil].
+		(recTree selector ~~ #class) ifTrue:[^ nil].
-"id class "
+		"id class "
-recTree := recTree receiver
+		recTree := recTree receiver
-].
+	    ].
-recTree isPrimary ifTrue:[
+	    recTree isPrimary ifTrue:[
-isMeta ifTrue:[
+		isMeta ifTrue:[
-name := name , ' class'.
+		    name := name , ' class'.
-].
+		].
-name := recTree name.
+		name := recTree name.
-aChange className: name.
+		aChange className: name.
-^ name
+		^ name
-]
+	    ]
-]
+	]
 ].
 ^ nil
 !
 newLabel:how
 readChangesFileInBackground:inBackground
 "reads the changes file, creates a list of header-lines (changeChunks)
 and a list of chunk-positions (changePositions).
 Starting with 2.10.3, the entries are multi-col entries;
 the cols are:
-1   delta (only if comparing)
+	1   delta (only if comparing)
-'+' -> new method (w.r.t. current state)
+		'+' -> new method (w.r.t. current state)
-'-' -> removed method (w.r.t. current state)
+		'-' -> removed method (w.r.t. current state)
-'?' -> class does not exist currently
+		'?' -> class does not exist currently
-'=' -> change is same as current methods source
+		'=' -> change is same as current methods source
-2   class/selector
+	2   class/selector
-3   type of change
+	3   type of change
-doit
+		doit
-method
+		method
-category change
+		category change
-4   timestamp
+	4   timestamp
 since comparing slows down startup time, it is now disabled by
 default and can be enabled via a toggle."
 |aStream maxLen i f|
 self valueOfReadProgress value: 0.
 self readProgressIndicator raise.
 self filterLabel label: 'Read:'; redraw.
 self withReadCursorDo:[
-|myProcess myPriority|
+	|myProcess myPriority|
-"
+	"
-this is a time consuming operation (especially, if reading an
+	 this is a time consuming operation (especially, if reading an
-NFS-mounted directory; therefore lower my priority...
+	 NFS-mounted directory; therefore lower my priority...
-"
+	"
-inBackground ifTrue:[
+	inBackground ifTrue:[
-myProcess := Processor activeProcess.
+	    myProcess := Processor activeProcess.
-myPriority := myProcess priority.
+	    myPriority := myProcess priority.
-myProcess priority:(Processor userBackgroundPriority).
+	    myProcess priority:(Processor userBackgroundPriority).
-].
+	].
-[
+	[
-|excla timeStampInfo lastChange|
+	    |excla timeStampInfo lastChange|
-excla := aStream class chunkSeparator.
+	    excla := aStream class chunkSeparator.
-[aStream atEnd] whileFalse:[
+	    [aStream atEnd] whileFalse:[
-|change changeDelta changeString changeType changeCategory
+		|change changeDelta changeString changeType changeCategory
-line s l changeClass sawExcla category
+		 line s l changeClass sawExcla category
-chunkText chunkPos sel oldValue|
+		 chunkText chunkPos sel oldValue|
-change := Change new.
+		change := Change new.
-"
+		"
-get a chunk (separated by excla)
+		 get a chunk (separated by excla)
-"
+		"
-oldValue := self valueOfReadProgress value.
+		oldValue := self valueOfReadProgress value.
-self valueOfReadProgress value: (((aStream position/aStream size) * 100) rounded).
+		self valueOfReadProgress value: (((aStream position/aStream size) * 100) rounded).
-oldValue ~~ self valueOfReadProgress value
+		oldValue ~~ self valueOfReadProgress value
-ifTrue: [self readProgressIndicator redrawEdges;redraw].
+		    ifTrue: [self readProgressIndicator redrawEdges;redraw].
-aStream skipSeparators.
+		aStream skipSeparators.
-chunkPos := aStream position.
+		chunkPos := aStream position.
-sawExcla := aStream peekFor:excla.
+		sawExcla := aStream peekFor:excla.
-chunkText := aStream nextChunk.
+		chunkText := aStream nextChunk.
-chunkText notNil ifTrue:[
+		chunkText notNil ifTrue:[
-|index headerLine cls|
+		    |index headerLine cls|
-(chunkText startsWith:'''---- timestamp ') ifTrue:[
+		    (chunkText startsWith:'''---- timestamp ') ifTrue:[
-timeStampInfo := (chunkText copyFrom:16 to:(chunkText size - 6)) withoutSpaces.
+			timeStampInfo := (chunkText copyFrom:16 to:(chunkText size - 6)) withoutSpaces.
-] ifFalse:[
+		    ] ifFalse:[
-"
+			"
-only first line is saved in changeChunks...
+			 only first line is saved in changeChunks...
-"
+			"
-index := chunkText indexOf:(Character cr).
+			index := chunkText indexOf:(Character cr).
-(index ~~ 0) ifTrue:[
+			(index ~~ 0) ifTrue:[
-chunkText := chunkText copyTo:(index - 1).
+			    chunkText := chunkText copyTo:(index - 1).
-"take care for comment changes - must still be a
+			    "take care for comment changes - must still be a
-valid expression for classNameOfChange: to work"
+			     valid expression for classNameOfChange: to work"
-(chunkText endsWith:'comment:''') ifTrue:[
+			    (chunkText endsWith:'comment:''') ifTrue:[
-chunkText := chunkText , '...'''
+				chunkText := chunkText , '...'''
-].
+			    ].
-(chunkText endsWith:'primitiveDefinitions:''') ifTrue:[
+			    (chunkText endsWith:'primitiveDefinitions:''') ifTrue:[
-sel := 'primitiveDefinitions:'.
+				sel := 'primitiveDefinitions:'.
-chunkText := chunkText copyWithoutLast:1
+				chunkText := chunkText copyWithoutLast:1
-].
+			    ].
-(chunkText endsWith:'primitiveVariables:''') ifTrue:[
+			    (chunkText endsWith:'primitiveVariables:''') ifTrue:[
-sel := 'primitiveVariables:'.
+				sel := 'primitiveVariables:'.
-chunkText := chunkText copyWithoutLast:1
+				chunkText := chunkText copyWithoutLast:1
-].
+			    ].
-(chunkText endsWith:'primitiveFunctions:''') ifTrue:[
+			    (chunkText endsWith:'primitiveFunctions:''') ifTrue:[
-sel := 'primitiveFunctions:'.
+				sel := 'primitiveFunctions:'.
-chunkText := chunkText copyWithoutLast:1
+				chunkText := chunkText copyWithoutLast:1
-].
+			    ].
-].
+			].
-change chunk: chunkText.
+			change chunk: chunkText.
-change position: chunkPos.
+			change position: chunkPos.
-lastChange notNil ifTrue: [lastChange lastPosition: chunkPos - 1].
+			lastChange notNil ifTrue: [lastChange lastPosition: chunkPos - 1].
-lastChange := change.
+			lastChange := change.
-change timeStamp: timeStampInfo.
+			change timeStamp: timeStampInfo.
-change followUp: false.
+			change followUp: false.
-headerLine := nil.
+			headerLine := nil.
-changeDelta := ' '.
+			changeDelta := ' '.
-sawExcla ifFalse:[
+			sawExcla ifFalse:[
-(chunkText startsWith:'''---- snap') ifTrue:[
+			    (chunkText startsWith:'''---- snap') ifTrue:[
-changeType := ''.
+				changeType := ''.
-headerLine := chunkText.
+				headerLine := chunkText.
-changeString := (chunkText contractTo:maxLen).
+				changeString := (chunkText contractTo:maxLen).
-timeStampInfo := nil.
+				timeStampInfo := nil.
-] ifFalse:[
+			    ] ifFalse:[
-|p cls|
+				|p cls|
-headerLine := chunkText , ' (doIt)'.
+				headerLine := chunkText , ' (doIt)'.
-"
+				"
-first, assume doIt - then lets have a more detailed look...
+				 first, assume doIt - then lets have a more detailed look...
-"
+				"
-((chunkText startsWith:'''---- file')
+				((chunkText startsWith:'''---- file')
-or:[(chunkText startsWith:'''---- check')]) ifTrue:[
+				or:[(chunkText startsWith:'''---- check')]) ifTrue:[
-changeType := ''.
+				    changeType := ''.
-timeStampInfo := nil.
+				    timeStampInfo := nil.
-] ifFalse:[
+				] ifFalse:[
-changeType := 'doIt'.
+				    changeType := 'doIt'.
-].
+				].
-changeString := (chunkText contractTo:maxLen).
+				changeString := (chunkText contractTo:maxLen).
-p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
+				p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
-(p notNil
+				(p notNil
-and:[p ~~ #Error
+				 and:[p ~~ #Error
-and:[p isMessage]]) ifTrue:[
+				 and:[p isMessage]]) ifTrue:[
-sel := p selector.
+				    sel := p selector.
-].
+				].
-(sel == #removeSelector:) ifTrue:[
+				(sel == #removeSelector:) ifTrue:[
-p receiver isUnaryMessage ifTrue:[
+				    p receiver isUnaryMessage ifTrue:[
-cls := p receiver receiver name.
+					cls := p receiver receiver name.
-changeClass := (Smalltalk classNamed:cls) class.
+					changeClass := (Smalltalk classNamed:cls) class.
-cls := cls , ' class'.
+					cls := cls , ' class'.
-] ifFalse:[
+				    ] ifFalse:[
-cls := p receiver name.
+					cls := p receiver name.
-changeClass := (Smalltalk classNamed:cls)
+					changeClass := (Smalltalk classNamed:cls)
-].
+				    ].
-sel := (p args at:1) evaluate.
+				    sel := (p args at:1) evaluate.
-DeltaInfoColumn ifTrue:[
+				    DeltaInfoColumn ifTrue:[
-(changeClass isNil or:[changeClass isLoaded not]) ifTrue:[
+					(changeClass isNil or:[changeClass isLoaded not]) ifTrue:[
-changeDelta := '?'
+					    changeDelta := '?'
-] ifFalse:[
+					] ifFalse:[
-(changeClass implements:sel asSymbol) ifTrue:[
+					    (changeClass implements:sel asSymbol) ifTrue:[
-changeDelta := '-'.
+						changeDelta := '-'.
-]
+					    ]
-]
+					]
-].
+				    ].
-changeType := 'remove'.
+				    changeType := 'remove'.
-changeString := self contractClass:cls selector:sel to:maxLen.
+				    changeString := self contractClass:cls selector:sel to:maxLen.
-].
+				].
-(p ~~ #Error
+				(p ~~ #Error
-and:[p isMessage
+				and:[p isMessage
-and:[p receiver isMessage
+				and:[p receiver isMessage
-and:[p receiver selector == #compiledMethodAt:]]]) ifTrue:[
+				and:[p receiver selector == #compiledMethodAt:]]]) ifTrue:[
-p receiver receiver isUnaryMessage ifTrue:[
+				    p receiver receiver isUnaryMessage ifTrue:[
-cls := p receiver receiver receiver name.
+					cls := p receiver receiver receiver name.
-changeClass := (Smalltalk classNamed:cls) class.
+					changeClass := (Smalltalk classNamed:cls) class.
-cls := cls , ' class'.
+					cls := cls , ' class'.
-] ifFalse:[
+				    ] ifFalse:[
-cls := p receiver receiver name.
+					cls := p receiver receiver name.
-changeClass := (Smalltalk classNamed:cls)
+					changeClass := (Smalltalk classNamed:cls)
-].
+				    ].
-(sel == #category:) ifTrue:[
+				    (sel == #category:) ifTrue:[
-sel := (p receiver args at:1) evaluate.
+					sel := (p receiver args at:1) evaluate.
-changeType := '(category change)'.
+					changeType := '(category change)'.
-changeString := self contractClass:cls selector:sel to:maxLen.
+					changeString := self contractClass:cls selector:sel to:maxLen.
-].
+				    ].
-(sel == #privacy:) ifTrue:[
+				    (sel == #privacy:) ifTrue:[
-sel := (p receiver args at:1) evaluate.
+					sel := (p receiver args at:1) evaluate.
-changeType := 'privacy change'.
+					changeType := 'privacy change'.
-changeString := self contractClass:cls selector:sel to:maxLen.
+					changeString := self contractClass:cls selector:sel to:maxLen.
-].
+				    ].
-].
+				].
-(#(#'subclass:'
+				(#(#'subclass:'
-#'variableSubclass:'
+				  #'variableSubclass:'
-#'variableByteSubclass:'
+				  #'variableByteSubclass:'
-#'variableWordSubclass:'
+				  #'variableWordSubclass:'
-#'variableLongSubclass:'
+				  #'variableLongSubclass:'
-#'variableFloatSubclass:'
+				  #'variableFloatSubclass:'
-#'variableDoubleSubclass:'
+				  #'variableDoubleSubclass:'
-#'primitiveDefinitions:'
+				  #'primitiveDefinitions:'
-#'primitiveFunctions:'
+				  #'primitiveFunctions:'
-#'primitiveVariables:'
+				  #'primitiveVariables:'
-) includes:sel) ifTrue:[
+				 ) includes:sel) ifTrue:[
-changeType := 'class definition'.
+				    changeType := 'class definition'.
-].
+				].
-]
+			    ]
-] ifTrue:[
+			] ifTrue:[
-|done first p className cls text methodPos|
+			    |done first p className cls text methodPos|
-"
+			    "
-method definitions actually consist of
+			     method definitions actually consist of
-two (or more) chunks; skip next chunk(s)
+			     two (or more) chunks; skip next chunk(s)
-up to an empty one.
+			     up to an empty one.
-The system only writes one chunk,
+			     The system only writes one chunk,
-and we cannot handle more in this ChangesBrowser....
+			     and we cannot handle more in this ChangesBrowser....
-"
+			    "
-className := nil.
+			    className := nil.
-p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
+			    p := Parser parseExpression:chunkText inNameSpace:Smalltalk.
-(p notNil and:[p ~~ #Error]) ifTrue:[
+			    (p notNil and:[p ~~ #Error]) ifTrue:[
-sel := p selector.
+				sel := p selector.
-(sel == #methodsFor:) ifTrue:[
+				(sel == #methodsFor:) ifTrue:[
-p receiver isUnaryMessage ifTrue:[
+				    p receiver isUnaryMessage ifTrue:[
-className := p receiver receiver name.
+					className := p receiver receiver name.
-changeClass := (Smalltalk classNamed:className) class.
+					changeClass := (Smalltalk classNamed:className) class.
-className := className , ' class'.
+					className := className , ' class'.
-] ifFalse:[
+				    ] ifFalse:[
-className := p receiver name.
+					className := p receiver name.
-changeClass := Smalltalk classNamed:className
+					changeClass := Smalltalk classNamed:className
-].
+				    ].
-category := (p args at:1) evaluate.
+				    category := (p args at:1) evaluate.
-].
+				].
-].
+			    ].
-done := false.
+			    done := false.
-first := true.
+			    first := true.
-[done] whileFalse:[
+			    [done] whileFalse:[
-changeDelta := ' '.
+				changeDelta := ' '.
-methodPos := aStream position.
+				methodPos := aStream position.
-text := aStream nextChunk.
+				text := aStream nextChunk.
-text isNil ifTrue:[
+				text isNil ifTrue:[
-done := true
+				    done := true
-] ifFalse:[
+				] ifFalse:[
-done := text isEmpty
+				    done := text isEmpty
-].
+				].
-done ifFalse:[
+				done ifFalse:[
-first ifFalse:[
+				    first ifFalse:[
-change := Change new.
+					change := Change new.
-change chunk: chunkText.
+					change chunk: chunkText.
-change string:changeString.
+					change string:changeString.
-change position: methodPos.
+					change position: methodPos.
-change className: className.
+					change className: className.
-lastChange notNil ifTrue: [lastChange lastPosition: methodPos - 1].
+					lastChange notNil ifTrue: [lastChange lastPosition: methodPos - 1].
-lastChange := change.
+					lastChange := change.
-change timeStamp: timeStampInfo.
+					change timeStamp: timeStampInfo.
-change followUp: true.
+					change followUp: true.
-editingClassSource := true.
+					editingClassSource := true.
-].
+				    ].
-first := false.
+				    first := false.
-"
+				    "
-try to find the selector
+				     try to find the selector
-"
+				    "
-sel := nil.
+				    sel := nil.
-className notNil ifTrue:[
+				    className notNil ifTrue:[
-p := Parser
+					p := Parser
-parseMethodSpecification:text
+						 parseMethodSpecification:text
-in:nil
+						 in:nil
-ignoreErrors:true
+						 ignoreErrors:true
-ignoreWarnings:true.
+						 ignoreWarnings:true.
-(p notNil and:[p ~~ #Error]) ifTrue:[
+					(p notNil and:[p ~~ #Error]) ifTrue:[
-sel := p selector.
+					    sel := p selector.
-]
+					]
-].
+				    ].
-sel isNil ifTrue:[
+				    sel isNil ifTrue:[
-changeString := (chunkText contractTo:maxLen).
+					changeString := (chunkText contractTo:maxLen).
-changeType := 'change'.
+					changeType := 'change'.
-headerLine := chunkText , ' (change)'.
+					headerLine := chunkText , ' (change)'.
-] ifFalse:[
+				    ] ifFalse:[
-changeString :=  self contractClass:className selector:sel to:maxLen.
+					changeString :=  self contractClass:className selector:sel to:maxLen.
-changeType := 'method definition'.
+					changeType := 'method definition'.
-changeCategory := category.
+					changeCategory := category.
-headerLine := className , ' ' , sel , ' ' , '(change category: ''' , category , ''')'.
+					headerLine := className , ' ' , sel , ' ' , '(change category: ''' , category , ''')'.
-].
+				    ].
-DeltaInfoColumn ifTrue:[
+				    DeltaInfoColumn ifTrue:[
-changeClass isNil ifFalse:[
+					changeClass isNil ifFalse:[
-changeClass isMeta ifTrue:[
+					    changeClass isMeta ifTrue:[
-cls := changeClass soleInstance
+						cls := changeClass soleInstance
-] ifFalse:[
+					    ] ifFalse:[
-cls := changeClass
+						cls := changeClass
-].
+					    ].
-].
+					].
-(changeClass isNil or:[cls isLoaded not]) ifTrue:[
+					(changeClass isNil or:[cls isLoaded not]) ifTrue:[
-changeDelta := '?'
+					    changeDelta := '?'
-] ifFalse:[
+					] ifFalse:[
-(changeClass implements:sel asSymbol) ifFalse:[
+					    (changeClass implements:sel asSymbol) ifFalse:[
-changeDelta := '+'.
+						changeDelta := '+'.
-] ifTrue:[
+					    ] ifTrue:[
-|m currentText t1 t2|
+						|m currentText t1 t2|
-m := changeClass compiledMethodAt:sel asSymbol.
+						m := changeClass compiledMethodAt:sel asSymbol.
-currentText := m source.
+						currentText := m source.
-currentText notNil ifTrue:[
+						currentText notNil ifTrue:[
-text asString = currentText asString ifTrue:[
+						    text asString = currentText asString ifTrue:[
-changeDelta := '='
+							changeDelta := '='
-] ifFalse:[
+						    ] ifFalse:[
-t1 := currentText asCollectionOfLines collect:[:s | s withTabsExpanded].
+							t1 := currentText asCollectionOfLines collect:[:s | s withTabsExpanded].
-t2 := text asCollectionOfLines collect:[:s | s withTabsExpanded].
+							t2 := text asCollectionOfLines collect:[:s | s withTabsExpanded].
-t1 = t2 ifTrue:[
+							t1 = t2 ifTrue:[
-changeDelta := '='
+							    changeDelta := '='
-]
+							]
-]
+						    ]
-]
+						]
-]
+					    ]
-]
+					]
-].
+				    ].
-change delta:changeDelta.
+				    change delta:changeDelta.
-change string:changeString.
+				    change string:changeString.
-change type:changeType.
+				    change type:changeType.
-change category: changeCategory.
+				    change category: changeCategory.
-change timeStamp:timeStampInfo.
+				    change timeStamp:timeStampInfo.
-changes add:change.
+				    changes add:change.
-].
+				].
-changeString := nil.
+				changeString := nil.
-headerLine := nil.
+				headerLine := nil.
-]
+			    ]
-].
+			].
-changeString notNil ifTrue:[
+			changeString notNil ifTrue:[
-change delta:changeDelta.
+			    change delta:changeDelta.
-change string:changeString.
+			    change string:changeString.
-change type:changeType.
+			    change type:changeType.
-change timeStamp:timeStampInfo.
+			    change timeStamp:timeStampInfo.
-changes add:change.
+			    changes add:change.
-] ifFalse:[
+			] ifFalse:[
-headerLine notNil ifTrue:[
+			    headerLine notNil ifTrue:[
-changes add: change.
+				changes add: change.
-]
+			    ]
-]
+			]
-]
+		    ]
-].
+		].
-change lastPosition: aStream position.
+		change lastPosition: aStream position.
-].
+	    ].
-modified := false.
+	    modified := false.
-] valueNowOrOnUnwindDo:[
+	] valueNowOrOnUnwindDo:[
-aStream close.
+	    aStream close.
-inBackground ifTrue:[myProcess priority:myPriority].
+	    inBackground ifTrue:[myProcess priority:myPriority].
-].
+	].
 ].
 self setChangeList.
 self valueOfNotReading value: true.
 self filterField raise.
 self filterLabel label: 'Filter:'.
 source := self sourceOfMethodChange:aChange.
 source isNil ifTrue:[^ nil].
 parser := Parser
-parseMethod:source
+		parseMethod:source
-in:nil
+		in:nil
-ignoreErrors:true
+		ignoreErrors:true
-ignoreWarnings:true.
+		ignoreWarnings:true.
 (parser notNil and:[parser ~~ #Error]) ifTrue:[
-sel := parser selector.
+	sel := parser selector.
 ].
 ^ sel
 !
 setChangeList
 numDeleted := 0.
 index := stop.
 [index >= start] whileTrue:
 [
-((clsName := self classNameOfChange:(self listOfChanges at: index)) notNil and:
+	((clsName := self classNameOfChange:(self listOfChanges at: index)) notNil and:
-[(clsName = aClassName or: [PrivateAsSeparate not and: [(clsName upTo: $:) = aClassName]])])
+	[(clsName = aClassName or: [PrivateAsSeparate not and: [(clsName upTo: $:) = aClassName]])])
-ifTrue:
+	ifTrue:
-[
+	[
-self silentDeleteChange:(self listOfChanges at: index).
+	    self silentDeleteChange:(self listOfChanges at: index).
-numDeleted := numDeleted + 1.
+	    numDeleted := numDeleted + 1.
-].
+	].
-index := index - 1
+	index := index - 1
 ].
 ^ numDeleted
 !
 sourceOfMethodChange:aChange
 aStream := self streamForChange:aChange.
 aStream isNil ifTrue:[^ nil].
 aChange followUp ifFalse:[
-sawExcla := aStream peekFor:(aStream class chunkSeparator).
+	sawExcla := aStream peekFor:(aStream class chunkSeparator).
-chunk := aStream nextChunk.
+	chunk := aStream nextChunk.
 ] ifTrue:[
-chunk := aChange chunk.
+	chunk := aChange chunk.
-sawExcla := true.
+	sawExcla := true.
 ].
 sawExcla ifTrue:[
-parseTree := Parser parseExpression:chunk.
+	parseTree := Parser parseExpression:chunk.
-(parseTree notNil and:[parseTree isMessage]) ifTrue:[
+	(parseTree notNil and:[parseTree isMessage]) ifTrue:[
-(parseTree selector == #methodsFor:) ifTrue:[
+	    (parseTree selector == #methodsFor:) ifTrue:[
-sourceChunk := aStream nextChunk.
+		sourceChunk := aStream nextChunk.
-]
+	    ]
-].
+	].
 ].
 aStream close.
 ^ sourceChunk
 !
 |change|
 (change := self selectionOfChange value) notNil
 ifTrue:[
-self withExecuteCursorDo:[aBlock value:change]
+	self withExecuteCursorDo:[aBlock value:change]
 ]
 ! !
 !NewChangesBrowser methodsFor:'startup / release'!
 "asks for saving before closing"
 self valueOfNotSaving value ifFalse: [^nil].
 modified ifTrue:[
-(OptionBox
+	(OptionBox
-request:(resources string:'Changes list was modified !!') withCRs
+	      request:(resources string:'Changes list was modified !!') withCRs
-label:'Changes Browser'
+	      label:'Changes Browser'
-form:(WarningBox iconBitmap)
+	      form:(WarningBox iconBitmap)
-buttonLabels:(resources array:#('Cancel' 'Forget it and proceed'))
+	      buttonLabels:(resources array:#('Cancel' 'Forget it and proceed'))
-values:#(#abort #ignore)
+	      values:#(#abort #ignore)
-default:#save
+	      default:#save
-) == #abort ifTrue:[^self].
+	) == #abort ifTrue:[^self].
 ].
 super closeRequest
 "Modified: / 20.5.1998 / 03:53:47 / cg"
 !
 super postOpenWith:aBuilder.
 builder namedComponents do:
 [:aView|
-aView allSubViewsDo:
+	aView allSubViewsDo:
-[:v|
+	[:v|
-v redraw
+	    v redraw
-]
+	]
 ].
 autoUpdateBlock := [self checkIfFileHasChanged].
 Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
 self updateInfoLabel.
 self filterField entryCompletionBlock:
 (filterCompletionBlock := [:value|
-|filter filters i changesCopy|
+	|filter filters i changesCopy|
-self unselectChange.
+	self unselectChange.
-filter := self filterField contents.
+	filter := self filterField contents.
-(filters := filter asArrayOfSubstrings) size > 0 ifTrue:
+	(filters := filter asArrayOfSubstrings) size > 0 ifTrue:
-[
+	[
-i := 0.
+	    i := 0.
-changesCopy := changes copy.
+	    changesCopy := changes copy.
-filters do:
+	    filters do:
-[:filter|
+	    [:filter|
-i := i + 1.
+		i := i + 1.
-changesCopy contents:
+		changesCopy contents:
-(changesCopy select: [:row|
+		    (changesCopy select: [:row|
-filter match: (row string asArrayOfSubstrings at: i ifAbsent: [''''])])
+			filter match: (row string asArrayOfSubstrings at: i ifAbsent: [''''])])
-].
+	    ].
-self listOfChanges contents: changesCopy
+	    self listOfChanges contents: changesCopy
-]
+	]
-ifFalse:
+	ifFalse:
-[
+	[
-self listOfChanges contents: changes
+	    self listOfChanges contents: changes
-].
+	].
-self autoSelectLast.
+	self autoSelectLast.
 ]).
 Object errorSignal handle: [:ex |
-ex parameter signal == HaltSignal ifTrue:[
+	ex parameter signal == HaltSignal ifTrue:[
-ex reject
+	    ex reject
-].
+	].
-ex parameter signal == MessageTracer breakpointSignal ifTrue:[
+	ex parameter signal == MessageTracer breakpointSignal ifTrue:[
-ex reject
+	    ex reject
-].
+	].
-self warn:'Error while reading changes file:\\' , ex errorString.
+	self warn:'Error while reading changes file:\\' , ex errorString.
 ] do: [
-self readChangesFileInBackground:true
+	self readChangesFileInBackground:true
 ].
 "Modified: / 30.7.1998 / 11:37:51 / cg"
 !
 doApply
 "applies the selected change"
 self withSelectedChangeDo:[:change|
-skipSignal := nil.
+	skipSignal := nil.
-self applyChange:change.
+	self applyChange:change.
-self autoSelectChange: (self listOfChanges at: (self listOfChanges indexOf: change) + 1 ifAbsent: [^self autoSelectLast])
+	self autoSelectChange: (self listOfChanges at: (self listOfChanges indexOf: change) + 1 ifAbsent: [^self autoSelectLast])
 ]
 !
 doApplyAll
 "applies all changes"
 self withExecuteCursorDo:[
-|change|
+	|change|
-self unselectChange.
+	self unselectChange.
-skipSignal isNil ifTrue:[skipSignal := Signal new].
+	skipSignal isNil ifTrue:[skipSignal := Signal new].
-1 to:self listOfChanges size do:[:changeNr |
+	1 to:self listOfChanges size do:[:changeNr |
-self selectionOfChange value:(change := self listOfChanges at: changeNr).
+	    self selectionOfChange value:(change := self listOfChanges at: changeNr).
-self applyChange:change
+	    self applyChange:change
-].
+	].
-self autoSelectLast
+	self autoSelectLast
 ]
 !
 doApplyAllForClass
 doApplyForClassToEndFrom: start
 "applies changes with same class like the selected one from start to end"
 self withSelectedChangeDo:[:change|
-|classNameToApply thisClassName lastChange change2|
+	|classNameToApply thisClassName lastChange change2|
-(classNameToApply := self classNameOfChange:change) notNil
+	(classNameToApply := self classNameOfChange:change) notNil
-ifTrue:
+	ifTrue:
-[
+	[
-self unselectChange.
+	    self unselectChange.
-skipSignal isNil ifTrue:[skipSignal := Signal new].
+	    skipSignal isNil ifTrue:[skipSignal := Signal new].
-start to:self listOfChanges size do:
+	    start to:self listOfChanges size do:
-[:changeNr|
+	    [:changeNr|
-change2 := self listOfChanges at: changeNr.
+		change2 := self listOfChanges at: changeNr.
-((thisClassName := self classNameOfChange:change2) notNil and:
+		((thisClassName := self classNameOfChange:change2) notNil and:
-[thisClassName = classNameToApply or:
+		[thisClassName = classNameToApply or:
-[PrivateAsSeparate not and: [(thisClassName upTo: $:) = classNameToApply]]])
+		[PrivateAsSeparate not and: [(thisClassName upTo: $:) = classNameToApply]]])
-ifTrue:
+		ifTrue:
-[
+		[
-self selectionOfChange value: change2.
+		    self selectionOfChange value: change2.
-self applyChange:change2.
+		    self applyChange:change2.
-lastChange := change2
+		    lastChange := change2
-]
+		]
-].
+	    ].
-self autoSelectChange:lastChange.
+	    self autoSelectChange:lastChange.
-]
+	]
 ]
 !
 doApplyFromLastSnapshot
 doApplyToEnd
 "applies all changes from selected one to be end"
 self withSelectedChangeDo:[:change|
-self unselectChange.
+	self unselectChange.
-skipSignal isNil ifTrue:[skipSignal := Signal new].
+	skipSignal isNil ifTrue:[skipSignal := Signal new].
-(self listOfChanges indexOf: change) to: self listOfChanges size do:[:changeNr|
+	(self listOfChanges indexOf: change) to: self listOfChanges size do:[:changeNr|
-self selectionOfChange value:(self listOfChanges at: changeNr).
+	    self selectionOfChange value:(self listOfChanges at: changeNr).
-self applyChange:(self listOfChanges at: changeNr)
+	    self applyChange:(self listOfChanges at: changeNr)
-].
+	].
-self autoSelectChange:self listOfChanges last
+	self autoSelectChange:self listOfChanges last
 ]
 !
 doBrowseClass
 |className cls isMeta|
 className := self fullClassNameOfChange:self selectionOfChange value.
 className notNil ifTrue:[
-isMeta := false.
+	isMeta := false.
-(className endsWith:' class') ifTrue:[
+	(className endsWith:' class') ifTrue:[
-className := className copyWithoutLast:6.
+	    className := className copyWithoutLast:6.
-isMeta := true.
+	    isMeta := true.
-].
+	].
-(cls := Smalltalk classNamed:className) notNil ifTrue:[
+	(cls := Smalltalk classNamed:className) notNil ifTrue:[
-isMeta ifTrue:[cls := cls class].
+	    isMeta ifTrue:[cls := cls class].
-SystemBrowser
+	    SystemBrowser
-openInClass:cls
+		openInClass:cls
-selector:(self selectorOfMethodChange:self selectionOfChange value)
+		selector:(self selectorOfMethodChange:self selectionOfChange value)
-]
+	]
 ]
 !
 "compares a change with the current system version"
 |change|
 (change := self selectionOfChange value) notNil ifTrue:[
-self withExecuteCursorDo:[self compareChange:change]
+	self withExecuteCursorDo:[self compareChange:change]
 ].
 self newLabel:''
 !
 doCompress
 self compressForClass:nil.
 self setChangeList.
 self updateInfoLabel.
 self information:
-'Compression Rate:   ', (((changesSizeBefore - changes size)/changesSizeBefore) * 100) rounded printString, '%\' withCRs,
+	'Compression Rate:   ', (((changesSizeBefore - changes size)/changesSizeBefore) * 100) rounded printString, '%\' withCRs,
-'Obsolete Changes: ', (changesSizeBefore - changes size) printString, ' from ', changesSizeBefore printString
+	'Obsolete Changes: ', (changesSizeBefore - changes size) printString, ' from ', changesSizeBefore printString
 !
 doCompressForClass
 "compresses changes for the selected class.
 this replaces multiple method-changes by the last (i.e. the most recent) change."
 self withSelectedChangeDo:[:change|
-| classNameToCompress |
+	| classNameToCompress |
-(classNameToCompress := self classNameOfChange:change) notNil ifTrue:[
+	(classNameToCompress := self classNameOfChange:change) notNil ifTrue:[
-self compressForClass:classNameToCompress.
+	    self compressForClass:classNameToCompress.
-filterCompletionBlock value: self valueOfFilter value.
+	    filterCompletionBlock value: self valueOfFilter value.
-self autoSelectLast
+	    self autoSelectLast
-]
+	]
 ]
 !
 doDelete
 "deletes the selected change"
 |change selectionIndex|
 (change := self selectionOfChange value) notNil ifTrue:[
-selectionIndex := self listOfChanges indexOf: change.
+	selectionIndex := self listOfChanges indexOf: change.
-self unselectChange.
+	self unselectChange.
-self silentDeleteChange:change.
+	self silentDeleteChange:change.
-self listOfChanges remove:change.
+	self listOfChanges remove:change.
-self autoSelectOrEnd: (self listOfChanges at: selectionIndex ifAbsent: [nil]).
+	self autoSelectOrEnd: (self listOfChanges at: selectionIndex ifAbsent: [nil]).
 ]
 !
 doDeleteAll
 "deletes all changes"
 doDeleteForClassToEnd
 "deletes all changes having the same class like the selected one from the selected to the end"
 self withSelectedChangeDo:[:change|
-self doDeleteForClassToEndFrom: (self listOfChanges indexOf: change)
+	self doDeleteForClassToEndFrom: (self listOfChanges indexOf: change)
 ]
 !
 doDeleteForClassToEndFrom: start
 "deletes changes with same class like the selected one from start to end"
 self withSelectedChangeDo:[:change|
-|classNameToDelete|
+	|classNameToDelete|
-(classNameToDelete := self classNameOfChange:change) notNil ifTrue:[
+	(classNameToDelete := self classNameOfChange:change) notNil ifTrue:[
-self unselectChange.
+	    self unselectChange.
-self silentDeleteChangesFor:classNameToDelete
+	    self silentDeleteChangesFor:classNameToDelete
-from:start
+				   from:start
-to:self listOfChanges size.
+				     to:self listOfChanges size.
-self setChangeList.
+	    self setChangeList.
-self autoSelectOrEnd: nil
+	    self autoSelectOrEnd: nil
-]
+	]
 ].
 !
 |changeNr|
 changeNr := (self listOfChanges indexOf: self selectionOfChange value).
 changeNr ~~ 0 ifTrue:[
-self deleteChangesFrom:changeNr to: self listOfChanges size.
+	self deleteChangesFrom:changeNr to: self listOfChanges size.
-self unselectChange.
+	self unselectChange.
-self autoSelectOrEnd: nil
+	self autoSelectOrEnd: nil
 ]
 !
 doFilter: aFilterString
 |snapshotNr snapshotFound|
 self listOfChanges detect: [:change| change type = 'image'] ifNone: [^self warn: 'No snapshot found!!'].
 self withSelectedChangeDo:[:change|
-snapshotNr := self listOfChanges indexOf: change.
+	snapshotNr := self listOfChanges indexOf: change.
-snapshotFound := false.
+	snapshotFound := false.
-[snapshotNr > 0 and: [snapshotFound not]]
+	[snapshotNr > 0 and: [snapshotFound not]]
-whileTrue:
+	whileTrue:
-[
+	[
-what = 'last'
+	    what = 'last'
-ifTrue:
+	    ifTrue:
-[
+	    [
-snapshotNr := snapshotNr - 1.
+		snapshotNr := snapshotNr - 1.
-snapshotNr == 0 ifTrue: [snapshotNr := self listOfChanges size].
+		snapshotNr == 0 ifTrue: [snapshotNr := self listOfChanges size].
-]
+	    ]
-ifFalse:
+	    ifFalse:
-[
+	    [
-snapshotNr := snapshotNr + 1.
+		snapshotNr := snapshotNr + 1.
-snapshotNr > self listOfChanges size ifTrue: [snapshotNr := 1].
+		snapshotNr > self listOfChanges size ifTrue: [snapshotNr := 1].
-].
+	    ].
-(self listOfChanges at: snapshotNr ifAbsent: [^self autoSelectChange: (what = 'last' ifTrue: [self listOfChanges last] ifFalse: [self listOfChanges first])]) type = 'image'
+	    (self listOfChanges at: snapshotNr ifAbsent: [^self autoSelectChange: (what = 'last' ifTrue: [self listOfChanges last] ifFalse: [self listOfChanges first])]) type = 'image'
-ifTrue:
+	    ifTrue:
-[
+	    [
-snapshotFound := true.
+		snapshotFound := true.
-self autoSelectChange:(self listOfChanges at: snapshotNr)
+		self autoSelectChange:(self listOfChanges at: snapshotNr)
-]
+	    ]
-]
+	]
 ].
 ^snapshotFound
 !
 doLoad
 "opens a dialog for loading changes from a file"
 |fileName|
 (fileName :=
-(FileSelectionBrowser
+	(FileSelectionBrowser
-request: 'Load Changes List'
+	    request: 'Load Changes List'
-fileName: changeFileName
+	    fileName: changeFileName
-withFileFilters: #('c*'))) notNil
+	    withFileFilters: #('c*'))) notNil
 ifTrue:
 [
-changeFileName := fileName.
+	changeFileName := fileName.
-changes removeAll.
+	changes removeAll.
-self readChangesFileInBackground:true.
+	self readChangesFileInBackground:true.
-self unselectChange.
+	self unselectChange.
-Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
+	Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
-self updateInfoLabel.
+	self updateInfoLabel.
-self autoSelectLast
+	self autoSelectLast
 ]
 !
 doReload
 "reloads the changes from the file"
 |inStream outStream tempfile stamp f|
 self valueOfNotReading value ifFalse: [^nil].
 editingClassSource ifTrue:[
-(self confirm:'You are editing a classes sourceFile (not a changeFile) !!\Are you certain, you want to overwrite it ?' withCRs)
+	(self confirm:'You are editing a classes sourceFile (not a changeFile) !!\Are you certain, you want to overwrite it ?' withCRs)
-ifFalse:[
+	ifFalse:[
-^ false
+	    ^ false
-]
+	]
 ].
 tempfile := Filename newTemporaryIn:nil.
 tempfile exists ifTrue:[tempfile remove].
 outStream := tempfile writeStream.
 outStream isNil ifTrue:[
-self warn:'Cannot create temporary file in current directory.'.
+	self warn:'Cannot create temporary file in current directory.'.
-^ false
+	^ false
 ].
 inStream := FileStream readonlyFileNamed:changeFileName.
 inStream isNil ifTrue:[^ false].
 self withCursor:(Cursor write) do:[
-|excla sawExcla done first chunk
+	|excla sawExcla done first chunk
-nChanges "{Class:SmallInteger}" |
+	 nChanges "{Class:SmallInteger}" |
-Stream writeErrorSignal handle:[:ex |
+	Stream writeErrorSignal handle:[:ex |
-self warn:('Could not update the changes file.\\' , ex errorString) withCRs.
+	    self warn:('Could not update the changes file.\\' , ex errorString) withCRs.
-^ false
+	    ^ false
-] do:[
+	] do:[
-self valueOfNotSaving value: false.
+	    self valueOfNotSaving value: false.
-excla := inStream class chunkSeparator.
+	    excla := inStream class chunkSeparator.
-nChanges := changes size.
+	    nChanges := changes size.
-1 to:nChanges do:[:index |
+	    1 to:nChanges do:[:index |
-inStream position: (changes at: index) position.
+		inStream position: (changes at: index) position.
-sawExcla := inStream peekFor:excla.
+		sawExcla := inStream peekFor:excla.
-chunk := inStream nextChunk.
+		chunk := inStream nextChunk.
-(chunk notNil
+		(chunk notNil
-and:[(chunk startsWith:'''---- snap') not]) ifTrue:[
+		and:[(chunk startsWith:'''---- snap') not]) ifTrue:[
-(stamp := (changes at:index) timeStamp) notNil ifTrue:[
+		    (stamp := (changes at:index) timeStamp) notNil ifTrue:[
-outStream nextPutAll:'''---- timestamp ' , stamp , ' ----'''.
+			outStream nextPutAll:'''---- timestamp ' , stamp , ' ----'''.
-outStream nextPut:excla; cr.
+			outStream nextPut:excla; cr.
-].
+		    ].
-].
+		].
-sawExcla ifTrue:[
+		sawExcla ifTrue:[
-outStream nextPut:excla.
+		    outStream nextPut:excla.
-outStream nextChunkPut:chunk.
+		    outStream nextChunkPut:chunk.
-outStream cr; cr.
+		    outStream cr; cr.
-"
+		    "
-a method-definition chunk - skip followups
+		     a method-definition chunk - skip followups
-"
+		    "
-done := false.
+		    done := false.
-first := true.
+		    first := true.
-[done] whileFalse:[
+		    [done] whileFalse:[
-chunk := inStream nextChunk.
+			chunk := inStream nextChunk.
-chunk isNil ifTrue:[
+			chunk isNil ifTrue:[
-outStream cr; cr.
+			    outStream cr; cr.
-done := true
+			    done := true
-] ifFalse:[
+			] ifFalse:[
-chunk isEmpty ifTrue:[
+			    chunk isEmpty ifTrue:[
-outStream space; nextChunkPut:chunk; cr; cr.
+				outStream space; nextChunkPut:chunk; cr; cr.
-done := true.
+				done := true.
-] ifFalse:[
+			    ] ifFalse:[
-first ifFalse:[
+				first ifFalse:[
-outStream cr; cr.
+				    outStream cr; cr.
-].
+				].
-outStream nextChunkPut:chunk.
+				outStream nextChunkPut:chunk.
-].
+			    ].
-].
+			].
-first := false.
+			first := false.
-].
+		    ].
-] ifFalse:[
+		] ifFalse:[
-outStream nextChunkPut:chunk.
+		    outStream nextChunkPut:chunk.
-outStream cr
+		    outStream cr
-]
+		]
-].
+	    ].
-outStream close.
+	    outStream close.
-inStream close.
+	    inStream close.
-].
+	].
-f := changeFileName asFilename.
+	f := changeFileName asFilename.
-f renameTo:(f withSuffix:'bak').
+	f renameTo:(f withSuffix:'bak').
-tempfile renameTo:changeFileName.
+	tempfile renameTo:changeFileName.
-self doReload.
+	self doReload.
-modified := false.
+	modified := false.
-self valueOfNotSaving value: true.
+	self valueOfNotSaving value: true.
 ].
 ^ true
 ! !
 |cls|
 delta size = 0 ifTrue: [^''].
 delta = '='    ifTrue: [^'Current'].
 delta = '?'    ifTrue: [
-(className notNil and:[className knownAsSymbol]) ifTrue:[
+	(className notNil and:[className knownAsSymbol]) ifTrue:[
-(cls := Smalltalk at:className asSymbol ifAbsent:nil) notNil ifTrue:[
+	    (cls := Smalltalk at:className asSymbol ifAbsent:nil) notNil ifTrue:[
-cls isBehavior ifTrue:[
+		cls isBehavior ifTrue:[
-cls isLoaded ifFalse:[
+		    cls isLoaded ifFalse:[
-^ 'Not loaded'
+			^ 'Not loaded'
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
-^'No class'
+	^'No class'
 ].
 delta = '-'    ifTrue: [^'Remove'].
 delta = '+'    ifTrue: [^'New'].
 ^delta
 listColor
 (string at: 3) ~~ $- ifTrue:
 [
-(self type = 'class') ifTrue: [^Color gray].
+	(self type = 'class') ifTrue: [^Color gray].
-^Color white
+	^Color white
 ].
 (string includesMatchString: '---- s') ifTrue: [^Color red].
 (string includesMatchString: '---- f') ifTrue: [^Color cyan: 100 magenta: 20 yellow: 20].
 (string includesMatchString: '---- c') ifTrue: [^Color blue].
 ! !
 !NewChangesBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.23 1998-10-17 13:25:54 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.24 1999-07-10 10:43:40 cg Exp $'
 ! !

changeset 2250	dc7a9ae0d6bb
parent 1938	ce74385df068
child 2740	6b8666356abb