equal
deleted
inserted
replaced
777 |
777 |
778 ^ cat |
778 ^ cat |
779 ! |
779 ! |
780 |
780 |
781 doDropContext:aDropContext |
781 doDropContext:aDropContext |
|
782 "handle dropping of a method as a category change" |
|
783 |
782 |cat methods| |
784 |cat methods| |
783 |
785 |
784 methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject]. |
786 methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject]. |
785 (methods conform:[:something | something isMethod]) ifFalse:[^ self]. |
787 (methods conform:[:something | something isMethod]) ifFalse:[^ self]. |
786 |
788 |
1055 itemsInChangeSet itemsInRemoteChangeSet |
1057 itemsInChangeSet itemsInRemoteChangeSet |
1056 packageFilterOnInput packageFilter nameListEntryForALL changeSet |
1058 packageFilterOnInput packageFilter nameListEntryForALL changeSet |
1057 emphasizedPlus emphasisForRef emphasisForMod |
1059 emphasizedPlus emphasisForRef emphasisForMod |
1058 numAll numObsolete numSuper numUncommented numDocumentation numLong numOverride |
1060 numAll numObsolete numSuper numUncommented numDocumentation numLong numOverride |
1059 numRedefine numExtension numMissingRequired numSubclassResponsibility showPseudoProtocols |
1061 numRedefine numExtension numMissingRequired numSubclassResponsibility showPseudoProtocols |
1060 addPseudoEntry| |
1062 addPseudoEntry countAll| |
|
1063 |
|
1064 countAll := true. |
1061 |
1065 |
1062 generator := inGeneratorHolder value. |
1066 generator := inGeneratorHolder value. |
1063 generator isNil ifTrue:[ ^ #() ]. |
1067 generator isNil ifTrue:[ ^ #() ]. |
1064 |
1068 |
1065 showPseudoProtocols := self showPseudoProtocols value |
1069 showPseudoProtocols := self showPseudoProtocols value |
1288 self protocolLabelHolder value:nm |
1292 self protocolLabelHolder value:nm |
1289 ]. |
1293 ]. |
1290 |
1294 |
1291 categoryList notEmpty ifTrue:[ |
1295 categoryList notEmpty ifTrue:[ |
1292 noAllItem value ~~ true ifTrue:[ |
1296 noAllItem value ~~ true ifTrue:[ |
1293 "/ categoryList addFirst:((self class nameListEntryForALLWithCount bindWith:numAll) allItalic colorizeAllWith:Color grey). |
1297 countAll ifTrue:[ |
1294 categoryList addFirst:(nameListEntryForALL allItalic colorizeAllWith:Color grey). |
1298 categoryList addFirst:((self class nameListEntryForALLWithCount bindWith:numAll) allItalic colorizeAllWith:Color grey). |
|
1299 ] ifFalse:[ |
|
1300 categoryList addFirst:(nameListEntryForALL allItalic colorizeAllWith:Color grey). |
|
1301 ]. |
1295 rawProtocolList addFirst:nameListEntryForALL. |
1302 rawProtocolList addFirst:nameListEntryForALL. |
1296 ]. |
1303 ]. |
1297 ]. |
1304 ]. |
1298 showPseudoProtocols value ifTrue:[ |
1305 showPseudoProtocols value ifTrue:[ |
1299 addPseudoEntry := [:s :n | |
1306 addPseudoEntry := [:s :n | |
1300 n > 0 ifTrue:[ |
1307 n > 0 ifTrue:[ |
1301 categoryList add:((s bindWith:n) allItalic colorizeAllWith:Color grey). |
1308 categoryList |
|
1309 add:((s bindWith:n) |
|
1310 allItalic |
|
1311 colorizeAllWith:Color grey). |
1302 rawProtocolList add:s. |
1312 rawProtocolList add:s. |
1303 ]. |
1313 ]. |
1304 ]. |
1314 ]. |
1305 |
1315 |
1306 addPseudoEntry value:self class nameListEntryForSuperSend value:numSuper. |
1316 addPseudoEntry value:self class nameListEntryForSuperSend value:numSuper. |
1735 ! ! |
1745 ! ! |
1736 |
1746 |
1737 !MethodCategoryList class methodsFor:'documentation'! |
1747 !MethodCategoryList class methodsFor:'documentation'! |
1738 |
1748 |
1739 version |
1749 version |
1740 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.49 2009-10-29 10:29:32 mb Exp $' |
1750 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.50 2009-10-29 17:29:14 cg Exp $' |
1741 ! |
1751 ! |
1742 |
1752 |
1743 version_CVS |
1753 version_CVS |
1744 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.49 2009-10-29 10:29:32 mb Exp $' |
1754 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.50 2009-10-29 17:29:14 cg Exp $' |
1745 ! ! |
1755 ! ! |
1746 |
1756 |
1747 MethodCategoryList initialize! |
1757 MethodCategoryList initialize! |
1748 MethodCategoryList::CachedMethodInfo initialize! |
1758 MethodCategoryList::CachedMethodInfo initialize! |