equal
deleted
inserted
replaced
411 droppedClasses := aDropContext dropObjects collect:[:obj | obj theObject]. |
411 droppedClasses := aDropContext dropObjects collect:[:obj | obj theObject]. |
412 (droppedClasses contains:[:aClass | aClass isClass not]) ifTrue:[^ false]. |
412 (droppedClasses contains:[:aClass | aClass isClass not]) ifTrue:[^ false]. |
413 (droppedClasses contains:[:aClass | aClass isPrivate not]) ifFalse:[^ false]. |
413 (droppedClasses contains:[:aClass | aClass isPrivate not]) ifFalse:[^ false]. |
414 |
414 |
415 cat := self categoryAtTargetPointOf:aDropContext. |
415 cat := self categoryAtTargetPointOf:aDropContext. |
416 cat isNil ifTrue:[ |
416 cat isNil ifTrue:[ ^ false ]. |
417 ^ false |
417 cat = '* obsolete *' ifTrue:[ ^ false ]. |
418 ]. |
|
419 cat = '* obsolete *' ifTrue:[ |
|
420 ^ false |
|
421 ]. |
|
422 |
418 |
423 (droppedClasses contains:[:aClass | aClass category ~= cat]) ifFalse:[^ false]. |
419 (droppedClasses contains:[:aClass | aClass category ~= cat]) ifFalse:[^ false]. |
424 ^ true. |
420 ^ true. |
425 ! |
421 ! |
426 |
422 |
781 ! ! |
777 ! ! |
782 |
778 |
783 !ClassCategoryList class methodsFor:'documentation'! |
779 !ClassCategoryList class methodsFor:'documentation'! |
784 |
780 |
785 version |
781 version |
786 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.9 2006-01-10 13:18:28 cg Exp $' |
782 ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.10 2006-01-24 16:54:53 cg Exp $' |
787 ! ! |
783 ! ! |