17 currentClassHierarchy currentClass currentMethodCategory |
17 currentClassHierarchy currentClass currentMethodCategory |
18 currentMethod currentSelector showInstance actualClass fullClass |
18 currentMethod currentSelector showInstance actualClass fullClass |
19 lastMethodCategory aspect variableListView fullProtocol |
19 lastMethodCategory aspect variableListView fullProtocol |
20 lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage |
20 lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage |
21 lastCategory lastModule lastPackage lastMethodMoveClass |
21 lastCategory lastModule lastPackage lastMethodMoveClass |
22 namespaceList allNamespaces gotClassList classList selectorList' |
22 namespaceList allNamespaces gotClassList classList selectorList |
|
23 showAllNamespaces' |
23 classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon |
24 classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon |
24 StopIcon TraceIcon TimeIcon' |
25 StopIcon TraceIcon TimeIcon' |
25 poolDictionaries:'' |
26 poolDictionaries:'' |
26 category:'Interface-Browsers' |
27 category:'Interface-Browsers' |
27 ! |
28 ! |
5230 |
5231 |
5231 initialize |
5232 initialize |
5232 super initialize. |
5233 super initialize. |
5233 |
5234 |
5234 showInstance := true. |
5235 showInstance := true. |
|
5236 showAllNamespaces := false. |
5235 fullClass := false. |
5237 fullClass := false. |
5236 fullProtocol := false. |
5238 fullProtocol := false. |
5237 gotClassList := false. |
5239 gotClassList := false. |
5238 aspect := nil. |
5240 aspect := nil. |
5239 currentNamespace := '* all *'. |
5241 currentNamespace := '* all *'. |
5240 |
5242 |
5241 "inform me, when Smalltalk changes" |
5243 "inform me, when Smalltalk changes" |
5242 Smalltalk addDependent:self |
5244 Smalltalk addDependent:self |
5243 |
5245 |
5244 "Modified: 4.1.1997 / 19:58:52 / cg" |
5246 "Modified: 31.7.1997 / 22:32:09 / cg" |
5245 ! |
5247 ! |
5246 |
5248 |
5247 postRealize |
5249 postRealize |
5248 |v checkBlock| |
5250 |v checkBlock| |
5249 |
5251 |
8482 |labels selectors| |
8484 |labels selectors| |
8483 |
8485 |
8484 labels := #('new namespace'). |
8486 labels := #('new namespace'). |
8485 selectors := #(nameSpaceNewNameSpace). |
8487 selectors := #(nameSpaceNewNameSpace). |
8486 |
8488 |
|
8489 "/ showAllNamespaces ifTrue:[ |
|
8490 "/ labels := labels , #( '-' 'show topLevel namespaces only'). |
|
8491 "/ selectors := selectors , #(nil showTopLevelNamespaces). |
|
8492 "/ ] ifFalse:[ |
|
8493 "/ labels := labels , #( '-' 'show all namespaces'). |
|
8494 "/ selectors := selectors , #(nil showAllNamespaces). |
|
8495 "/ ]. |
|
8496 |
|
8497 |
8487 (currentNamespace notNil |
8498 (currentNamespace notNil |
8488 and:[currentNamespace ~~ Smalltalk |
8499 and:[currentNamespace ~~ Smalltalk |
8489 and:[currentNamespace ~= '* all *']]) ifTrue:[ |
8500 and:[currentNamespace ~= '* all *']]) ifTrue:[ |
8490 "/ is it all empty ? |
8501 "/ is it all empty ? |
8491 currentNamespace allClasses isEmpty ifTrue:[ |
8502 currentNamespace allClasses isEmpty ifTrue:[ |
8492 labels := #('new namespace' '-' 'remove'). |
8503 labels := labels , #('-' 'remove'). |
8493 selectors := #(nameSpaceNewNameSpace nil nameSpaceRemove). |
8504 selectors := selectors , #(nil nameSpaceRemove). |
8494 ] |
8505 ] |
8495 ]. |
8506 ]. |
8496 |
8507 |
8497 ^ PopUpMenu |
8508 ^ PopUpMenu |
8498 labels:(resources array:labels) |
8509 labels:(resources array:labels) |
8499 selectors:selectors |
8510 selectors:selectors |
8500 receiver:self. |
8511 receiver:self. |
8501 |
8512 |
8502 "Created: 4.1.1997 / 23:51:38 / cg" |
8513 "Created: 4.1.1997 / 23:51:38 / cg" |
8503 "Modified: 16.1.1997 / 01:06:22 / cg" |
8514 "Modified: 31.7.1997 / 22:40:33 / cg" |
8504 ! |
8515 ! |
8505 |
8516 |
8506 nameSpaceNewNameSpace |
8517 nameSpaceNewNameSpace |
8507 "create a namespace-definition prototype in codeview" |
8518 "create a namespace-definition prototype in codeview" |
8508 |
8519 |
8635 listOfAllNamespaces |
8646 listOfAllNamespaces |
8636 "return a list of all namespaces" |
8647 "return a list of all namespaces" |
8637 |
8648 |
8638 allNamespaces isNil ifTrue:[ |
8649 allNamespaces isNil ifTrue:[ |
8639 allNamespaces := Namespace allNamespaces. |
8650 allNamespaces := Namespace allNamespaces. |
|
8651 |
|
8652 showAllNamespaces ifFalse:[ |
|
8653 "/ only topLevel namespaces are shown |
|
8654 "/ i.e. those without colons in their name |
|
8655 |
|
8656 allNamespaces := allNamespaces select:[:ns | |
|
8657 |nm| |
|
8658 |
|
8659 nm := ns name. |
|
8660 (nm includes:$:) not |
|
8661 ]. |
|
8662 ] |
8640 ]. |
8663 ]. |
8641 ^ allNamespaces |
8664 ^ allNamespaces |
8642 |
8665 |
8643 "Created: 20.12.1996 / 19:18:03 / cg" |
8666 "Modified: 31.7.1997 / 22:32:30 / cg" |
8644 "Modified: 2.1.1997 / 20:18:43 / cg" |
|
8645 ! |
8667 ! |
8646 |
8668 |
8647 listOfNamespaces |
8669 listOfNamespaces |
8648 "return a list of considered namespaces" |
8670 "return a list of considered namespaces" |
8649 |
8671 |
8677 ]. |
8699 ]. |
8678 l addFirst:'* all *'. |
8700 l addFirst:'* all *'. |
8679 namespaceList list:l |
8701 namespaceList list:l |
8680 |
8702 |
8681 "Modified: 20.12.1996 / 19:18:29 / cg" |
8703 "Modified: 20.12.1996 / 19:18:29 / cg" |
|
8704 ! |
|
8705 |
|
8706 showAllNamespaces |
|
8707 "toggle to show all namespaces" |
|
8708 |
|
8709 showAllNamespaces := true. |
|
8710 self updateNamespaceList |
|
8711 |
|
8712 "Modified: 31.7.1997 / 22:33:16 / cg" |
|
8713 ! |
|
8714 |
|
8715 showTopLevelNamespaces |
|
8716 "toggle to show topLevel namespaces only" |
|
8717 |
|
8718 showAllNamespaces := false. |
|
8719 self updateNamespaceList |
|
8720 |
|
8721 "Created: 31.7.1997 / 22:33:29 / cg" |
8682 ! |
8722 ! |
8683 |
8723 |
8684 updateNamespaceList |
8724 updateNamespaceList |
8685 allNamespaces := nil. |
8725 allNamespaces := nil. |
8686 namespaceList notNil ifTrue:[ |
8726 namespaceList notNil ifTrue:[ |