equal
deleted
inserted
replaced
1989 remItems := OrderedCollection new. |
1989 remItems := OrderedCollection new. |
1990 filteredItems size == 0 ifTrue:[ |
1990 filteredItems size == 0 ifTrue:[ |
1991 remItems := oldItems. |
1991 remItems := oldItems. |
1992 ] ifFalse:[ |
1992 ] ifFalse:[ |
1993 "/ MERGE WITH CURRENT CONTENTS |
1993 "/ MERGE WITH CURRENT CONTENTS |
1994 oldItems reverseDo:[:anOldItem| |
1994 oldItems copy do:[:anOldItem| |
1995 "/ remove no longer valid files |
1995 "/ remove no longer valid files |
1996 (newItems detectLast:[:aNewItem| aNewItem = anOldItem] ifNone:nil) isNil ifTrue:[ |
1996 (newItems detectLast:[:aNewItem| aNewItem = anOldItem] ifNone:nil) isNil ifTrue:[ |
1997 remItems add:anOldItem. |
1997 remItems add:anOldItem. |
1998 oldItems removeIdentical:anOldItem |
1998 oldItems removeIdentical:anOldItem |
1999 ] |
1999 ] |
2820 ! ! |
2820 ! ! |
2821 |
2821 |
2822 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2822 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2823 |
2823 |
2824 version |
2824 version |
2825 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.107 2003-05-14 08:30:17 penk Exp $' |
2825 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.108 2003-05-14 17:46:05 penk Exp $' |
2826 ! ! |
2826 ! ! |