equal
deleted
inserted
replaced
2209 |
2209 |
2210 classCategoryRepositoryHistory |
2210 classCategoryRepositoryHistory |
2211 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
2211 (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self]. |
2212 |
2212 |
2213 self withBusyCursorDo:[ |
2213 self withBusyCursorDo:[ |
2214 |timeGoal aStream box y component timeGoalListPop| |
2214 |timeGoal repositoryFilter aStream box y component |
|
2215 timeGoalListPop repositoryFilterPop| |
2215 |
2216 |
2216 box := Dialog new. |
2217 box := Dialog new. |
2217 (box addTextLabel:(resources string:'repository change report')) adjust:#left. |
2218 (box addTextLabel:(resources string:'repository change report')) adjust:#left. |
2218 box addVerticalSpace:20. |
2219 box addVerticalSpace:20. |
2219 |
2220 |
2230 'a week ago' |
2231 'a week ago' |
2231 'a month ago' |
2232 'a month ago' |
2232 'a year ago' |
2233 'a year ago' |
2233 'all' |
2234 'all' |
2234 ). |
2235 ). |
|
2236 |
|
2237 y := box yPosition. |
|
2238 component := box addTextLabel:(resources string:'For repository (empty for all):'). |
|
2239 component width:0.5; adjust:#right; borderWidth:0. |
|
2240 box yPosition:y. |
|
2241 repositoryFilterPop := box addComboBoxOn:repositoryFilter tabable:true. |
|
2242 repositoryFilterPop width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine. |
|
2243 repositoryFilterPop list:#( |
|
2244 "/ to do - get list of available repositories ... |
|
2245 'stx' |
|
2246 'exept' |
|
2247 '' |
|
2248 ). |
|
2249 |
2235 box addAbortAndOkButtons. |
2250 box addAbortAndOkButtons. |
2236 box open. |
2251 box open. |
2237 |
2252 |
2238 box accepted ifTrue:[ |
2253 box accepted ifTrue:[ |
|
2254 repositoryFilter := repositoryFilter value. |
|
2255 repositoryFilter size == 0 |
|
2256 ifTrue:[repositoryFilter := nil] |
|
2257 ifFalse:[repositoryFilter := Array with:repositoryFilter]. |
|
2258 |
2239 timeGoal := timeGoal value. |
2259 timeGoal := timeGoal value. |
2240 |
2260 |
2241 "/ timeGoal := Dialog |
2261 "/ timeGoal := Dialog |
2242 "/ request:'list changed repository containers since (mm/dd): |
2262 "/ request:'list changed repository containers since (mm/dd): |
2243 "/ |
2263 "/ |
2257 Processor activeProcess |
2277 Processor activeProcess |
2258 withPriority:Processor activePriority-1 to:Processor activePriority |
2278 withPriority:Processor activePriority-1 to:Processor activePriority |
2259 do:[ |
2279 do:[ |
2260 SourceCodeManager notNil ifTrue:[ |
2280 SourceCodeManager notNil ifTrue:[ |
2261 SourceCodeManager |
2281 SourceCodeManager |
2262 writeHistoryLogSince:timeGoal |
2282 writeHistoryLogSince:timeGoal |
|
2283 filterSTSources:true |
|
2284 filterUser:nil |
|
2285 filterRepository:repositoryFilter |
2263 to:aStream. |
2286 to:aStream. |
2264 ] ifFalse:[ |
2287 ] ifFalse:[ |
2265 aStream nextPutLine:'no history available (no SourceCodeManagement installed)' |
2288 aStream nextPutLine:'no history available (no SourceCodeManagement installed)' |
2266 ]. |
2289 ]. |
2267 ]. |
2290 ]. |
14041 ! ! |
14064 ! ! |
14042 |
14065 |
14043 !BrowserView class methodsFor:'documentation'! |
14066 !BrowserView class methodsFor:'documentation'! |
14044 |
14067 |
14045 version |
14068 version |
14046 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.577 1999-12-09 20:05:55 cg Exp $' |
14069 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.578 1999-12-10 12:10:23 cg Exp $' |
14047 ! ! |
14070 ! ! |
14048 BrowserView initialize! |
14071 BrowserView initialize! |