equal
deleted
inserted
replaced
495 what = 'class' ifTrue: [cls := cls superclass]. |
495 what = 'class' ifTrue: [cls := cls superclass]. |
496 |
496 |
497 cls isNil ifTrue: [^self warn: 'May not create class with superclass ', 'nil' asBoldText, '!!']. |
497 cls isNil ifTrue: [^self warn: 'May not create class with superclass ', 'nil' asBoldText, '!!']. |
498 |
498 |
499 what = 'private' |
499 what = 'private' |
500 ifFalse: [cls subclass: clsCandidat |
500 ifFalse: |
501 instanceVariableNames:'' |
501 [ |
502 classVariableNames:'' |
502 cls subclass: clsCandidat |
503 poolDictionaries:'' |
503 instanceVariableNames:'' |
504 category: cls category.] |
504 classVariableNames:'' |
|
505 poolDictionaries:'' |
|
506 category: cls category |
|
507 ] |
505 ifTrue: |
508 ifTrue: |
506 [ |
509 [ |
507 |superClsCandidate| |
510 |superClsCandidate| |
508 superClsCandidate := (Dialog |
511 superClsCandidate := (Dialog |
509 request: 'Enter name of superclass of private class.' |
512 request: 'Enter name of superclass of private class.' |
523 |
526 |
524 what = 'class' |
527 what = 'class' |
525 ifTrue: [self selectionOfClass value parent changed: #children] |
528 ifTrue: [self selectionOfClass value parent changed: #children] |
526 ifFalse: [self selectionOfClass value changed: #children]. |
529 ifFalse: [self selectionOfClass value changed: #children]. |
527 |
530 |
528 classSelectionBlock value: self valueOfClassName value |
531 classSelectionBlock value: self valueOfClassName value |
529 ! |
532 ! |
530 |
533 |
531 resourceDoubleClicked |
534 resourceDoubleClicked |
532 |
535 |
533 resourceMethod := self selectionOfResource value. |
536 resourceMethod := self selectionOfResource value. |
544 |
547 |
545 !ResourceSelectionBrowser methodsFor:'instance creation'! |
548 !ResourceSelectionBrowser methodsFor:'instance creation'! |
546 |
549 |
547 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |
550 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |
548 |
551 |
549 |cls sel| |
552 |cls clsName| |
550 resourceMethod := aSelector. |
553 resourceMethod := aSelector. |
551 resourceTypes := aResourceTypes. |
554 resourceTypes := aResourceTypes. |
552 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
555 resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol]. |
553 resourceClass := aClassOrSymbol isClass |
556 resourceClass := aClassOrSymbol isClass |
554 ifTrue: [aClassOrSymbol name] |
557 ifTrue: [aClassOrSymbol name] |
557 ifFalse: [nil]]. |
560 ifFalse: [nil]]. |
558 self valueOfSelector value:(aSelector ? ''). |
561 self valueOfSelector value:(aSelector ? ''). |
559 |
562 |
560 self open. |
563 self open. |
561 |
564 |
|
565 clsName := (self selectionOfClass value name upTo: $ ) asSymbol. |
|
566 |
562 (self selectionOfClass value notNil and: |
567 (self selectionOfClass value notNil and: |
563 [(cls := Smalltalk at: self selectionOfClass value name) isClass and: |
568 [(cls := Smalltalk at: clsName) isClass and: |
564 [accept value]]) |
569 [accept value]]) |
565 ifTrue: |
570 ifTrue: |
566 [ |
571 [ |
567 ^self valueOfClassName value, ' ', self valueOfSelector value |
572 ^clsName, ' ', self valueOfSelector value |
568 ]. |
573 ]. |
569 ^nil |
574 ^nil |
570 ! ! |
575 ! ! |
571 |
576 |
572 !ResourceSelectionBrowser methodsFor:'startup / release'! |
577 !ResourceSelectionBrowser methodsFor:'startup / release'! |