equal
deleted
inserted
replaced
728 classSelected |
728 classSelected |
729 "after a class selection, read the allowed resource methods of the selected class" |
729 "after a class selection, read the allowed resource methods of the selected class" |
730 |
730 |
731 |sel| |
731 |sel| |
732 |
732 |
733 "/ ClassPresentation = #'Class Hierarchy' |
733 ClassPresentation = #'Class Hierarchy' |
734 "/ ifTrue: [sel := self selectionOfClassHierarchy value] |
734 "/ ifTrue: [sel := self selectionOfClassHierarchy value] |
735 "/ ifFalse: [sel := self selectionOfClassCategories value]. |
735 ifFalse: [sel := self selectionOfClassCategories value]. |
736 "/ |
736 |
737 "/ sel notNil ifTrue:[ |
737 sel notNil ifTrue:[ |
738 "/ resourceClass := sel name. |
738 resourceClass := sel name. |
739 "/ ]. |
739 ]. |
740 self updateResourceMethodList. |
740 self updateResourceMethodList. |
741 ! |
741 ! |
742 |
742 |
743 classSelectionUpdate:clsPattern |
743 classSelectionUpdate:clsPattern |
744 |foundClass classes| |
744 |foundClass classes| |
755 foundClass := classes at: 1 ifAbsent:[]. |
755 foundClass := classes at: 1 ifAbsent:[]. |
756 ]. |
756 ]. |
757 |
757 |
758 foundClass notNil ifTrue: [ |
758 foundClass notNil ifTrue: [ |
759 foundClass := foundClass autoload. |
759 foundClass := foundClass autoload. |
|
760 resourceClass := foundClass name. |
760 |
761 |
761 ClassPresentation = #'Class Hierarchy' ifTrue: [ |
762 ClassPresentation = #'Class Hierarchy' ifTrue: [ |
762 |searchArgs nonSuperclasses hierItem| |
763 |searchArgs nonSuperclasses hierItem| |
763 |
764 |
764 false "foundClass isPrivate" |
765 false "foundClass isPrivate" |
783 hierItem notNil ifTrue:[ |
784 hierItem notNil ifTrue:[ |
784 self selectionOfClassCategories value: hierItem. |
785 self selectionOfClassCategories value: hierItem. |
785 ]. |
786 ]. |
786 ]. |
787 ]. |
787 ]. |
788 ]. |
788 self valueOfClassName value: clsPattern |
789 self valueOfClassName value: clsPattern. |
|
790 self updateResourceMethodList. |
789 ! |
791 ! |
790 |
792 |
791 resourceDoubleClicked |
793 resourceDoubleClicked |
792 "after a double click on resource method, accept it and close" |
794 "after a double click on resource method, accept it and close" |
793 |
795 |