equal
deleted
inserted
replaced
661 methods := aDropContext dropObjects collect:[:obj | obj theObject]. |
661 methods := aDropContext dropObjects collect:[:obj | obj theObject]. |
662 |
662 |
663 (methods contains:[:aMethod | aMethod isMethod not]) ifTrue:[^ false]. |
663 (methods contains:[:aMethod | aMethod isMethod not]) ifTrue:[^ false]. |
664 |
664 |
665 cat := self categoryAtTargetPointOf:aDropContext. |
665 cat := self categoryAtTargetPointOf:aDropContext. |
|
666 cat isNil ifTrue:[^ false]. |
666 |
667 |
667 (methods contains:[:aMethod | aMethod category ~= cat]) ifFalse:[^ false]. |
668 (methods contains:[:aMethod | aMethod category ~= cat]) ifFalse:[^ false]. |
668 ^ cat notNil |
669 ^ true |
669 ! |
670 ! |
670 |
671 |
671 categoryAtTargetPointOf:aDropContext |
672 categoryAtTargetPointOf:aDropContext |
672 |p methodListView lineNr cat| |
673 |p methodListView lineNr cat| |
673 |
674 |
1257 ! ! |
1258 ! ! |
1258 |
1259 |
1259 !MethodCategoryList class methodsFor:'documentation'! |
1260 !MethodCategoryList class methodsFor:'documentation'! |
1260 |
1261 |
1261 version |
1262 version |
1262 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.7 2006-01-10 13:32:27 cg Exp $' |
1263 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.8 2006-01-24 16:55:41 cg Exp $' |
1263 ! ! |
1264 ! ! |