equal
deleted
inserted
replaced
350 |
350 |
351 |cls sel| |
351 |cls sel| |
352 resourceTypes := aResourceTypes. |
352 resourceTypes := aResourceTypes. |
353 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
353 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
354 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
354 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
355 self valueOfSelector value: aSelector. |
355 self valueOfSelector value:(aSelector ? ''). |
356 |
356 |
357 self open. |
357 self open. |
358 |
358 |
359 (self selectionOfClass value notNil and: |
359 (self selectionOfClass value notNil |
360 [(cls := Smalltalk at: self selectionOfClass value name) isClass and: |
360 and:[(cls := Smalltalk at: self selectionOfClass value name) isClass |
361 [accept value]]) |
361 and:[accept value]] |
362 ifTrue: |
362 ) ifTrue:[ |
363 [ |
|
364 ^cls name, ' ', self valueOfSelector value |
363 ^cls name, ' ', self valueOfSelector value |
365 ]. |
364 ]. |
366 ^nil |
365 ^nil |
|
366 |
|
367 "Modified: / 26.1.1998 / 22:26:50 / stefan" |
367 ! ! |
368 ! ! |
368 |
369 |
369 !ResourceSelectionBrowser methodsFor:'startup / release'! |
370 !ResourceSelectionBrowser methodsFor:'startup / release'! |
370 |
371 |
371 closeCancel |
372 closeCancel |