equal
deleted
inserted
replaced
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 [(cls class implements: (sel := self valueOfSelector value) asSymbol) and: |
407 [accept value]]) |
408 [accept value]]]) |
|
409 ifTrue: |
408 ifTrue: |
410 [ |
409 [ |
411 ^cls name, ' ', sel |
410 ^cls name, ' ', self valueOfSelector value |
412 ]. |
411 ]. |
413 ^nil |
412 ^nil |
414 ! ! |
413 ! ! |
415 |
414 |
416 !ResourceSelectionBrowser methodsFor:'startup / release'! |
415 !ResourceSelectionBrowser methodsFor:'startup / release'! |