equal
deleted
inserted
replaced
1819 |
1819 |
1820 "Modified: 18.11.1995 / 17:08:44 / cg" |
1820 "Modified: 18.11.1995 / 17:08:44 / cg" |
1821 ! |
1821 ! |
1822 |
1822 |
1823 silentDeleteChangesFor:aClassName from:start to:stop |
1823 silentDeleteChangesFor:aClassName from:start to:stop |
1824 "delete changes for a given class in a range" |
1824 "delete changes for a given class in a range. |
1825 |
1825 Return the number of deleted changes." |
1826 |thisClassName index| |
1826 |
1827 |
1827 |thisClassName index numDeleted| |
|
1828 |
|
1829 numDeleted := 0. |
1828 index := stop. |
1830 index := stop. |
1829 [index >= start] whileTrue:[ |
1831 [index >= start] whileTrue:[ |
1830 thisClassName := self classNameOfChange:index. |
1832 thisClassName := self classNameOfChange:index. |
1831 thisClassName = aClassName ifTrue:[ |
1833 thisClassName = aClassName ifTrue:[ |
1832 self silentDeleteChange:index |
1834 self silentDeleteChange:index. |
1833 ]. |
1835 numDeleted := numDeleted + 1. |
1834 index := index - 1 |
1836 ]. |
1835 ] |
1837 index := index - 1 |
|
1838 ]. |
|
1839 ^ numDeleted |
1836 |
1840 |
1837 ! |
1841 ! |
1838 |
1842 |
1839 silentDeleteInternalChange:changeNr |
1843 silentDeleteInternalChange:changeNr |
1840 "delete a change do not update changeListView" |
1844 "delete a change do not update changeListView" |
2245 |
2249 |
2246 doDeleteClassAll |
2250 doDeleteClassAll |
2247 "delete all changes with same class as currently selected change" |
2251 "delete all changes with same class as currently selected change" |
2248 |
2252 |
2249 self withSelectedChangeDo:[:changeNr | |
2253 self withSelectedChangeDo:[:changeNr | |
2250 | classNameToDelete | |
2254 |classNameToDelete numDeletedBefore| |
2251 |
2255 |
2252 classNameToDelete := self classNameOfChange:changeNr. |
2256 classNameToDelete := self classNameOfChange:changeNr. |
2253 classNameToDelete notNil ifTrue:[ |
2257 classNameToDelete notNil ifTrue:[ |
2254 changeListView setSelection:nil. |
2258 changeListView setSelection:nil. |
2255 self silentDeleteChangesFor:classNameToDelete |
2259 self silentDeleteChangesFor:classNameToDelete |
2256 from:1 |
2260 from:changeNr |
2257 to:(self numberOfChanges). |
2261 to:(self numberOfChanges). |
2258 self setChangeList. |
2262 numDeletedBefore := self |
2259 self autoSelectOrEnd:changeNr |
2263 silentDeleteChangesFor:classNameToDelete |
2260 ] |
2264 from:1 |
|
2265 to:changeNr. |
|
2266 self setChangeList. |
|
2267 self autoSelectOrEnd:(changeNr - numDeletedBefore) |
|
2268 ] |
2261 ] |
2269 ] |
2262 |
2270 |
2263 "Created: 13.12.1995 / 16:07:14 / cg" |
2271 "Created: 13.12.1995 / 16:07:14 / cg" |
2264 "Modified: 25.5.1996 / 12:26:31 / cg" |
2272 "Modified: 25.5.1996 / 12:26:31 / cg" |
2265 ! |
2273 ! |
2268 "delete changes with same class as currently selected change from the beginning |
2276 "delete changes with same class as currently selected change from the beginning |
2269 up to the selected change. |
2277 up to the selected change. |
2270 Useful to get rid of obsolete changes before a fileout or checkin entry." |
2278 Useful to get rid of obsolete changes before a fileout or checkin entry." |
2271 |
2279 |
2272 self withSelectedChangeDo:[:changeNr | |
2280 self withSelectedChangeDo:[:changeNr | |
2273 | classNameToDelete | |
2281 |classNameToDelete prevSelection numDeleted| |
2274 |
2282 |
2275 classNameToDelete := self classNameOfChange:changeNr. |
2283 classNameToDelete := self classNameOfChange:changeNr. |
2276 classNameToDelete notNil ifTrue:[ |
2284 classNameToDelete notNil ifTrue:[ |
2277 changeListView setSelection:nil. |
2285 prevSelection := changeNr. |
2278 self silentDeleteChangesFor:classNameToDelete |
2286 changeListView setSelection:nil. |
2279 from:1 |
2287 numDeleted := self |
2280 to:changeNr. |
2288 silentDeleteChangesFor:classNameToDelete |
2281 self setChangeList. |
2289 from:1 |
2282 self autoSelectOrEnd:changeNr |
2290 to:changeNr. |
2283 ] |
2291 self setChangeList. |
2284 ] |
2292 self autoSelectOrEnd:(changeNr + 1 - numDeleted) |
|
2293 ] |
|
2294 ]. |
2285 |
2295 |
2286 "Created: 13.12.1995 / 15:41:58 / cg" |
2296 "Created: 13.12.1995 / 15:41:58 / cg" |
2287 "Modified: 25.5.1996 / 12:26:34 / cg" |
2297 "Modified: 25.5.1996 / 12:26:34 / cg" |
2288 ! |
2298 ! |
2289 |
2299 |
2657 ! ! |
2667 ! ! |
2658 |
2668 |
2659 !ChangesBrowser class methodsFor:'documentation'! |
2669 !ChangesBrowser class methodsFor:'documentation'! |
2660 |
2670 |
2661 version |
2671 version |
2662 ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.123 1998-01-28 12:22:25 cg Exp $' |
2672 ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.124 1998-01-28 12:33:28 cg Exp $' |
2663 ! ! |
2673 ! ! |