--- a/NewChangesBrowser.st	Tue Apr 21 23:46:32 1998 +0200
+++ b/NewChangesBrowser.st	Wed Apr 22 00:09:41 1998 +0200
@@ -319,11 +319,11 @@
           #window: 
            #(#WindowSpec
               #name: 'Changes Browser'
-              #layout: #(#LayoutFrame 89 0 223 0 588 0 622 0)
+              #layout: #(#LayoutFrame 51 0 149 0 550 0 548 0)
               #label: 'Changes Browser'
               #min: #(#Point 10 10)
               #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 89 223 589 623)
+              #bounds: #(#Rectangle 51 149 551 549)
               #menu: #menu
               #usePreferredExtent: false
           )
@@ -462,7 +462,7 @@
                                                #(#LabelSpec
                                                   #name: 'fileInLabel'
                                                   #layout: #(#LayoutFrame 361 0 14 0.0 409 0 28 0)
-                                                  #label: '= file ins'
+                                                  #label: '= filings'
                                                   #style: #(#FontDescription #helvetica #medium #roman 10)
                                                   #adjust: #left
                                               )
@@ -1563,15 +1563,16 @@
     "selects aChange"
 
     self class autoSelectNext ifTrue:[         
-        ((self listOfChanges indexOf: aChange) <= self listOfChanges size) ifTrue:[      
-            self selectionOfChange value: aChange.
+        ((self listOfChanges indexOf: aChange) <= self listOfChanges size) ifTrue:[
+            self selectionOfChange value: aChange.  
             self changeSelected:(self listOfChanges indexOf: aChange).
             self updateChannels.
             ^ self
         ]
-    ].
+    ].         
     self updateChannels.
     self unselectChange
+
 !
 
 autoSelectLast
@@ -1600,17 +1601,21 @@
 changeColumn: aColumnLabel add: addOrRemove
     "adds or removes a attribute column to the table"
 
+    |newListOfChangeColumns|
+
+    newListOfChangeColumns := self listOfChangeColumns asOrderedCollection.
     addOrRemove
     ifTrue:
-    [     
-        self listOfChangeColumns add: 
+    [    
+        newListOfChangeColumns add: 
             ((self class specOfChangeColumns collect: [:i| i decodeAsLiteralArray]) detect: [:column| column label = aColumnLabel])
     ]
     ifFalse:
     [
-        self listOfChangeColumns remove: 
+        newListOfChangeColumns remove: 
             (self listOfChangeColumns detect: [:column| column label = aColumnLabel] ifNone: nil) ifAbsent: nil
     ].
+    self listOfChangeColumns contents: newListOfChangeColumns.
     self autoSelectLast
 
 
@@ -3053,6 +3058,7 @@
 doFilter: aFilterString
     "filter the changes with aFilterString"
 
+    self selectionOfChange value: nil.
     self valueOfFilter value: aFilterString withoutNotifying: self.
     self valueOfFilter changed.
     self autoSelectLast
@@ -3061,8 +3067,11 @@
 doFilterCheckIns
     "filter the check in changes"
 
+    self selectionOfChange value: nil.
+    self listOfChanges contents: #().
+    self valueOfFilter value: '' withoutNotifying: self.
     self listOfChanges contents: (changes select: [:change| change type = 'source']).
-    self valueOfFilter value: '* checkIn'.
+    self valueOfFilter value: '* checkin'.
     self autoSelectLast
 
 !
@@ -3070,8 +3079,11 @@
 doFilterFileIns
     "filter the file in changes"
 
+    self selectionOfChange value: nil.
+    self listOfChanges contents: #().
+    self valueOfFilter value: '' withoutNotifying: self.
     self listOfChanges contents: (changes select: [:change| change type = 'source']).
-    self valueOfFilter value: '* fileIn'.
+    self valueOfFilter value: '* file*'.
     self autoSelectLast
 
 !
@@ -3079,6 +3091,8 @@
 doFilterType: aFilterTypeString
     "filter the changes with aFilterTypeString"
 
+    self selectionOfChange value: nil.
+    self valueOfFilter value: '' withoutNotifying: self.
     self listOfChanges contents: (changes select: [:change| change type = aFilterTypeString]).
     self autoSelectLast
 
@@ -3384,5 +3398,5 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.6 1998-04-21 21:46:32 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.7 1998-04-21 22:09:41 tz Exp $'
 ! !