equal
deleted
inserted
replaced
18 browserNameList variableFilter filterClassVars updateProcess |
18 browserNameList variableFilter filterClassVars updateProcess |
19 lastShowClass lastShowCategory lastShowClassFirst |
19 lastShowClass lastShowCategory lastShowClassFirst |
20 showMethodInheritance lastMethodClass lastMethodClassesSubclasses |
20 showMethodInheritance lastMethodClass lastMethodClassesSubclasses |
21 classAndSelectorsRedefinedBySubclassesOfClass showClass |
21 classAndSelectorsRedefinedBySubclassesOfClass showClass |
22 showMethodComplexity showMethodTypeIcon |
22 showMethodComplexity showMethodTypeIcon |
23 showImageResourceMethodsImages showCoverageInformation' |
23 showImageResourceMethodsImages' |
24 classVariableNames:'ShowComplexityValue' |
24 classVariableNames:'ShowComplexityValue' |
25 poolDictionaries:'' |
25 poolDictionaries:'' |
26 category:'Interface-Browsers-New' |
26 category:'Interface-Browsers-New' |
27 ! |
27 ! |
28 |
28 |
243 |
243 |
244 selectedMethods:aValueHolder |
244 selectedMethods:aValueHolder |
245 ^ self selectionHolder:aValueHolder |
245 ^ self selectionHolder:aValueHolder |
246 ! |
246 ! |
247 |
247 |
248 showCoverageInformation |
|
249 showCoverageInformation isNil ifTrue:[ |
|
250 showCoverageInformation := false asValue. |
|
251 showCoverageInformation addDependent:self |
|
252 ]. |
|
253 ^ showCoverageInformation |
|
254 |
|
255 "Created: / 27-04-2010 / 16:13:28 / cg" |
|
256 ! |
|
257 |
|
258 showCoverageInformation:aValueHolder |
|
259 showCoverageInformation notNil ifTrue:[ |
|
260 showCoverageInformation removeDependent:self |
|
261 ]. |
|
262 showCoverageInformation := aValueHolder. |
|
263 showCoverageInformation notNil ifTrue:[ |
|
264 showCoverageInformation addDependent:self |
|
265 ]. |
|
266 |
|
267 "Created: / 27-04-2010 / 16:13:35 / cg" |
|
268 ! |
|
269 |
|
270 showImageResourceMethodsImages |
248 showImageResourceMethodsImages |
271 showImageResourceMethodsImages isNil ifTrue:[ |
249 showImageResourceMethodsImages isNil ifTrue:[ |
272 showImageResourceMethodsImages := false asValue. |
250 showImageResourceMethodsImages := false asValue. |
273 showImageResourceMethodsImages addDependent:self |
251 showImageResourceMethodsImages addDependent:self |
274 ]. |
252 ]. |
747 ! |
725 ! |
748 |
726 |
749 update:something with:aParameter from:changedObject |
727 update:something with:aParameter from:changedObject |
750 |cls| |
728 |cls| |
751 |
729 |
|
730 changedObject == showCoverageInformation ifTrue:[self halt]. |
|
731 |
752 "/ some can be ignored immediately |
732 "/ some can be ignored immediately |
753 changedObject == Smalltalk ifTrue:[ |
733 changedObject == Smalltalk ifTrue:[ |
754 classes isNil ifTrue:[ |
734 classes isNil ifTrue:[ |
755 ^ self. |
735 ^ self. |
756 ]. |
736 ]. |
842 ]. |
822 ]. |
843 ]. |
823 ]. |
844 |
824 |
845 super update:something with:aParameter from:changedObject |
825 super update:something with:aParameter from:changedObject |
846 |
826 |
847 "Modified: / 05-03-2007 / 16:08:28 / cg" |
827 "Modified: / 06-07-2011 / 19:50:58 / cg" |
848 ! ! |
828 ! ! |
849 |
829 |
850 !MethodList methodsFor:'drag & drop'! |
830 !MethodList methodsFor:'drag & drop'! |
851 |
831 |
852 canDropContext:aDropContext |
832 canDropContext:aDropContext |
1500 cat notNil ifTrue:[ |
1480 cat notNil ifTrue:[ |
1501 s := s , ' {' , cat "asText allItalic" , '}' |
1481 s := s , ' {' , cat "asText allItalic" , '}' |
1502 ] |
1482 ] |
1503 ]. |
1483 ]. |
1504 |
1484 |
1505 self showCoverageInformation value ifTrue:[ |
1485 showCoverageInformation value ifTrue:[ |
1506 clr := self colorForCoverageInformationOfMethod:aMethod. |
1486 clr := self colorForCoverageInformationOfMethod:aMethod. |
1507 clr notNil ifTrue:[ |
1487 clr notNil ifTrue:[ |
1508 s := self colorize:s with:(#color->clr). |
1488 s := self colorize:s with:(#color->clr). |
1509 "/ aMethod isInstrumented ifTrue:[ |
1489 "/ aMethod isInstrumented ifTrue:[ |
1510 "/ icn := self instrumentationIcon |
1490 "/ icn := self instrumentationIcon |
1577 ^ l |
1557 ^ l |
1578 ]. |
1558 ]. |
1579 ^ s |
1559 ^ s |
1580 |
1560 |
1581 "Created: / 22-10-1996 / 19:51:00 / cg" |
1561 "Created: / 22-10-1996 / 19:51:00 / cg" |
1582 "Modified: / 06-07-2011 / 14:05:25 / cg" |
1562 "Modified: / 06-07-2011 / 20:11:21 / cg" |
1583 ! ! |
1563 ! ! |
1584 |
1564 |
1585 !MethodList methodsFor:'private-watching'! |
1565 !MethodList methodsFor:'private-watching'! |
1586 |
1566 |
1587 startWatchProcess |
1567 startWatchProcess |
1627 ! ! |
1607 ! ! |
1628 |
1608 |
1629 !MethodList class methodsFor:'documentation'! |
1609 !MethodList class methodsFor:'documentation'! |
1630 |
1610 |
1631 version_CVS |
1611 version_CVS |
1632 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.49 2011-07-06 12:19:35 cg Exp $' |
1612 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.50 2011-07-06 18:13:33 cg Exp $' |
1633 ! ! |
1613 ! ! |