--- a/BrowserView.st	Thu Dec 09 21:05:55 1999 +0100
+++ b/BrowserView.st	Fri Dec 10 13:10:23 1999 +0100
@@ -2211,7 +2211,8 @@
     (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self].
 
     self withBusyCursorDo:[
-        |timeGoal aStream box y component timeGoalListPop|
+        |timeGoal repositoryFilter aStream box y component 
+         timeGoalListPop repositoryFilterPop|
 
         box := Dialog new.
         (box addTextLabel:(resources string:'repository change report')) adjust:#left.
@@ -2232,10 +2233,29 @@
                                'a year ago'
                                'all'
                               ).
+
+        y := box yPosition.
+        component := box addTextLabel:(resources string:'For repository (empty for all):').
+        component width:0.5; adjust:#right; borderWidth:0.
+        box yPosition:y.
+        repositoryFilterPop := box addComboBoxOn:repositoryFilter tabable:true.
+        repositoryFilterPop width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
+        repositoryFilterPop list:#(
+                                "/ to do - get list of available repositories ...
+                                'stx'
+                                'exept'
+                                ''
+                               ).
+
         box addAbortAndOkButtons.
         box open.
 
         box accepted ifTrue:[
+            repositoryFilter := repositoryFilter value.
+            repositoryFilter size == 0 
+                ifTrue:[repositoryFilter := nil]
+                ifFalse:[repositoryFilter := Array with:repositoryFilter].
+
             timeGoal := timeGoal value.
 
 "/        timeGoal := Dialog 
@@ -2259,7 +2279,10 @@
             do:[
                 SourceCodeManager notNil ifTrue:[
                     SourceCodeManager
-                        writeHistoryLogSince:timeGoal
+                        writeHistoryLogSince:timeGoal 
+                        filterSTSources:true 
+                        filterUser:nil 
+                        filterRepository:repositoryFilter
                         to:aStream.
                 ] ifFalse:[
                     aStream nextPutLine:'no history available (no SourceCodeManagement installed)'
@@ -14043,6 +14066,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.577 1999-12-09 20:05:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.578 1999-12-10 12:10:23 cg Exp $'
 ! !
 BrowserView initialize!