equal
deleted
inserted
replaced
548 |
548 |
549 |cls sel| |
549 |cls sel| |
550 resourceMethod := aSelector. |
550 resourceMethod := aSelector. |
551 resourceTypes := aResourceTypes. |
551 resourceTypes := aResourceTypes. |
552 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
552 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
553 resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol]. |
553 resourceClass := aClassOrSymbol isClass |
|
554 ifTrue: [aClassOrSymbol name] |
|
555 ifFalse: [(Smalltalk at: aClassOrSymbol) |
|
556 ifTrue: [aClassOrSymbol] |
|
557 ifFalse: [nil]]. |
554 self valueOfSelector value:(aSelector ? ''). |
558 self valueOfSelector value:(aSelector ? ''). |
555 |
559 |
556 self open. |
560 self open. |
557 |
561 |
558 (self selectionOfClass value notNil and: |
562 (self selectionOfClass value notNil and: |
578 |
582 |
579 postBuildWith:aBuilder |
583 postBuildWith:aBuilder |
580 |
584 |
581 |classSelection| |
585 |classSelection| |
582 allClasses := Object withAllSubclasses. |
586 allClasses := Object withAllSubclasses. |
583 classSelection := resourceClass ? self class lastSelection. |
587 classSelection := resourceClass. |
584 (Smalltalk at: classSelection) isNil ifTrue: [classSelection := #Object]. |
588 (Smalltalk at: classSelection) isNil |
|
589 ifTrue: [classSelection := self class lastSelection]. |
|
590 (Smalltalk at: classSelection) isNil |
|
591 ifTrue: [classSelection := #Object]. |
585 classSelectionBlock := |
592 classSelectionBlock := |
586 [:clsPattern| |
593 [:clsPattern| |
587 |foundClass classes| |
594 |foundClass classes| |
588 ((foundClass := Smalltalk at: clsPattern printString asSymbol) isClass not or: |
595 ((foundClass := Smalltalk at: clsPattern printString asSymbol) isClass not or: |
589 [foundClass name ~= clsPattern]) |
596 [foundClass name ~= clsPattern]) |