equal
deleted
inserted
replaced
626 builder aspectAt:#valueOfResourceSelector put:(holder := '' asValue). |
626 builder aspectAt:#valueOfResourceSelector put:(holder := '' asValue). |
627 ]. |
627 ]. |
628 ^ holder |
628 ^ holder |
629 ! ! |
629 ! ! |
630 |
630 |
631 !ResourceSelectionBrowser methodsFor:'callbacks - class list'! |
631 !ResourceSelectionBrowser methodsFor:'callbacks-class list'! |
632 |
632 |
633 treeViewClassCategoryChildren |
633 treeViewClassCategoryChildren |
634 "returns the children for the contents (class) of aTreeItem as a block" |
634 "returns the children for the contents (class) of aTreeItem as a block" |
635 |
635 |
636 "/ cg: tz's algorithm was very-very slow, |
636 "/ cg: tz's algorithm was very-very slow, |
723 |
723 |
724 |
724 |
725 |
725 |
726 ! ! |
726 ! ! |
727 |
727 |
728 !ResourceSelectionBrowser methodsFor:'callbacks - user'! |
728 !ResourceSelectionBrowser methodsFor:'callbacks-user'! |
729 |
729 |
730 classSelected |
730 classSelected |
731 "after a class selection, read the allowed resource methods of the selected class" |
731 "after a class selection, read the allowed resource methods of the selected class" |
732 |
732 |
733 ClassPresentation = #'Class Hierarchy' |
733 ClassPresentation = #'Class Hierarchy' |