equal
deleted
inserted
replaced
391 |
391 |
392 !ResourceSelectionBrowser methodsFor:'instance creation'! |
392 !ResourceSelectionBrowser methodsFor:'instance creation'! |
393 |
393 |
394 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |
394 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |
395 |
395 |
396 |cls| |
396 |cls sel| |
397 resourceMethod := aSelector. |
397 resourceMethod := aSelector. |
398 resourceTypes := aResourceTypes. |
398 resourceTypes := aResourceTypes. |
399 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
399 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
400 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
400 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
401 self valueOfSelector value:(aSelector ? ''). |
401 self valueOfSelector value:(aSelector ? ''). |
402 |
402 |
403 self open. |
403 self open. |
404 |
404 |
405 (self selectionOfClass value notNil and: |
405 (self selectionOfClass value notNil and: |
406 [(cls := Smalltalk at: self selectionOfClass value name) isClass and: |
406 [(cls := Smalltalk at: self selectionOfClass value name) isClass and: |
407 [accept value]]) |
407 [(cls class implements: (sel := self valueOfSelector value) asSymbol) and: |
|
408 [accept value]]]) |
408 ifTrue: |
409 ifTrue: |
409 [ |
410 [ |
410 ^cls name, ' ', self valueOfSelector value |
411 ^cls name, ' ', sel |
411 ]. |
412 ]. |
412 ^nil |
413 ^nil |
413 ! ! |
414 ! ! |
414 |
415 |
415 !ResourceSelectionBrowser methodsFor:'startup / release'! |
416 !ResourceSelectionBrowser methodsFor:'startup / release'! |