equal
deleted
inserted
replaced
300 resourceTypes := aResourceTypes. |
300 resourceTypes := aResourceTypes. |
301 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
301 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
302 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
302 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
303 self valueOfSelector value: aSelector. |
303 self valueOfSelector value: aSelector. |
304 |
304 |
305 self open. |
305 self open. |
306 (self selectionOfClass value notNil and: [ |
306 |
307 (cls := Smalltalk at: self selectionOfClass value name) isClass & |
307 (self selectionOfClass value notNil and: |
308 (cls class implements: (sel := self valueOfSelector value)) & |
308 [(cls := Smalltalk at: self selectionOfClass value name) isClass and: |
309 accept value]) |
309 [accept value]]) |
310 ifTrue: |
310 ifTrue: |
311 [ |
311 [ |
312 ^cls name, ' ', sel |
312 ^cls name, ' ', self valueOfSelector value |
313 ]. |
313 ]. |
314 ^nil |
314 ^nil |
315 ! ! |
315 ! ! |
316 |
316 |
317 !ResourceSelectionBrowser methodsFor:'startup / release'! |
317 !ResourceSelectionBrowser methodsFor:'startup / release'! |