--- a/NewChangesBrowser.st	Wed May 13 22:44:16 1998 +0200
+++ b/NewChangesBrowser.st	Thu May 14 14:58:22 1998 +0200
@@ -457,7 +457,8 @@
                                                   #layout: #(#LayoutFrame 346 0.0 16 0.0 356 0 27 0)
                                                   #label: ' '
                                                   #backgroundColor: #(#Color 0.0 80.0 80.0)
-                                                  #model: #doFilterFileIns
+                                                  #model: #doFilterSourceType:
+                                                  #actionValue: '* file*'
                                               )
                                                #(#LabelSpec
                                                   #name: 'fileInLabel'
@@ -471,7 +472,8 @@
                                                   #layout: #(#LayoutFrame 408 0.0 16 0.0 418 0 27 0)
                                                   #label: ' '
                                                   #backgroundColor: #(#Color 0.0 0.0 100.0)
-                                                  #model: #doFilterCheckIns
+                                                  #model: #doFilterSourceType:
+                                                  #actionValue: '* checkin*'
                                               )
                                                #(#LabelSpec
                                                   #name: 'checkInLabel'
@@ -3074,25 +3076,14 @@
     self autoSelectLast
 !
 
-doFilterCheckIns
-    "filter the check in changes"
+doFilterSourceType: aFilterStringTypeString
+    "filter the source changes with aFilterStringTypeString"
 
     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'.
-
-!
-
-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: '* file*'.  
+    self listOfChanges contents: (changes select: [:change| change type = 'source' and: [aFilterStringTypeString match: change string]]).
+    self autoSelectLast
 
 !
 
@@ -3406,5 +3397,5 @@
 !NewChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.10 1998-05-13 20:30:00 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.11 1998-05-14 12:58:22 tz Exp $'
 ! !