equal
deleted
inserted
replaced
521 resourceMethod := aSelector. |
521 resourceMethod := aSelector. |
522 resourceTypes := aResourceTypes. |
522 resourceTypes := aResourceTypes. |
523 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
523 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
524 resourceClass := aClassOrSymbol isClass |
524 resourceClass := aClassOrSymbol isClass |
525 ifTrue: [aClassOrSymbol name] |
525 ifTrue: [aClassOrSymbol name] |
526 ifFalse: [(Smalltalk at: aClassOrSymbol) |
526 ifFalse: [(Smalltalk at: aClassOrSymbol) notNil |
527 ifTrue: [aClassOrSymbol] |
527 ifTrue: [aClassOrSymbol] |
528 ifFalse: [nil]]. |
528 ifFalse: [nil]]. |
529 self valueOfSelector value:(aSelector ? ''). |
529 self valueOfSelector value:(aSelector ? ''). |
530 |
530 |
531 self open. |
531 self open. |
532 |
532 |