equal
deleted
inserted
replaced
768 aSuperclassOrSymbol, |
768 aSuperclassOrSymbol, |
769 and aClassOrSymbol, |
769 and aClassOrSymbol, |
770 and aSelector, |
770 and aSelector, |
771 with allowed aResourceTypes" |
771 with allowed aResourceTypes" |
772 |
772 |
773 |clsName| |
773 |clsName clsNameString| |
774 |
774 |
775 resourceMethod := aSelector. |
775 resourceMethod := aSelector. |
776 resourceTypes := aResourceTypes. |
776 resourceTypes := aResourceTypes. |
777 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
777 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
778 resourceClass := nil. |
778 resourceClass := nil. |
787 ]. |
787 ]. |
788 self valueOfResourceSelector value:(aSelector ? ''). |
788 self valueOfResourceSelector value:(aSelector ? ''). |
789 |
789 |
790 self open. |
790 self open. |
791 |
791 |
792 (clsName := self selectionOfClassHierarchy value) isNil |
792 (clsName := self selectionOfClassHierarchy value) isNil ifTrue:[ |
793 ifTrue: [(clsName := self selectionOfClassCategories value) isNil ifTrue: [^nil]]. |
793 (clsName := self selectionOfClassCategories value) isNil ifTrue:[ |
794 |
794 (clsNameString := self valueOfClassName value) isNil ifTrue:[ |
795 clsName := (clsName name upTo: $ ) asSymbol. |
795 accept value ifTrue:[ |
796 |
796 self warn:'No valid class selected/entered'. |
797 ((Smalltalk at: clsName) isClass and: [accept value]) |
797 ]. |
798 ifTrue: |
798 ^ nil |
799 [ |
799 ] |
800 ^clsName, ' ', self valueOfResourceSelector value |
800 ] |
801 ]. |
801 ]. |
802 ^nil |
802 |
|
803 clsNameString isNil ifTrue:[ |
|
804 clsNameString := clsName name upTo:Character space |
|
805 ]. |
|
806 clsNameString := clsNameString asSymbol. |
|
807 |
|
808 ((Smalltalk at: clsNameString) isClass and:[accept value]) ifTrue:[ |
|
809 ^ clsNameString, ' ', self valueOfResourceSelector value |
|
810 ]. |
|
811 |
|
812 accept value ifTrue:[ |
|
813 self warn:'No valid class selected/entered'. |
|
814 ]. |
|
815 ^ nil |
803 |
816 |
804 "Modified: / 22.4.1998 / 14:51:03 / cg" |
817 "Modified: / 22.4.1998 / 14:51:03 / cg" |
805 ! ! |
818 ! ! |
806 |
819 |
807 !ResourceSelectionBrowser methodsFor:'startup / release'! |
820 !ResourceSelectionBrowser methodsFor:'startup / release'! |