UIPainter.st
changeset 2372 7eee2cf54932
parent 2370 ce1233002cf8
child 2378 6db49934cd0e
equal deleted inserted replaced
2371:233e1bda3570 2372:7eee2cf54932
  4643     ].
  4643     ].
  4644 
  4644 
  4645     [
  4645     [
  4646         again := false.
  4646         again := false.
  4647 
  4647 
  4648         aspects at:#classNameChannel      put:(specClassName      ? 'NewApplication')   asValue.
  4648         aspects at:#classNameChannel      put:(specClassName  ? 'NewApplication')   asValue.
  4649         aspects at:#methodNameChannel     put:(specSelector   ? 'windowSpec')       asValue.
  4649         aspects at:#methodNameChannel     put:(specSelector   ? 'windowSpec')       asValue.
  4650         aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue.
  4650         aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue.
  4651 
  4651 
  4652         (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[
  4652         (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[
  4653             specClassName  := readFromModelKeyed value:#classNameChannel.
  4653             specClassName  := readFromModelKeyed value:#classNameChannel.
  5128     classAndSelector isNil ifTrue:[^ false].
  5128     classAndSelector isNil ifTrue:[^ false].
  5129 
  5129 
  5130     self clearModified.
  5130     self clearModified.
  5131     self painter resetModification.
  5131     self painter resetModification.
  5132 
  5132 
  5133     specClassName := classAndSelector methodClass.
  5133     specClass := classAndSelector methodClass.
       
  5134     specClassName := classAndSelector methodClass name.
  5134     specSelector := classAndSelector methodSelector.
  5135     specSelector := classAndSelector methodSelector.
  5135     specSuperclassName := specClassName superclass name.
  5136     specSuperclassName := specClass superclass name.
  5136     self doSave.
  5137     self doSave.
  5137     ^ true
  5138     ^ true
  5138 !
  5139 !
  5139 
  5140 
  5140 doSelectAspectMethod:aspectSelector
  5141 doSelectAspectMethod:aspectSelector