UIPainter.st
changeset 851 2f65d898243e
parent 838 0ac5a26498c1
child 852 c24c7584abe4
equal deleted inserted replaced
850:092d24394c88 851:2f65d898243e
  2043     spec := self specTool specification.
  2043     spec := self specTool specification.
  2044     cls := spec majorKey.
  2044     cls := spec majorKey.
  2045     cls isNil ifTrue:[
  2045     cls isNil ifTrue:[
  2046         cls := specClass.
  2046         cls := specClass.
  2047     ].
  2047     ].
  2048     (cls isNil or:[(cls := self resolveName:cls) isNil]) ifTrue:[
  2048     (cls := self resolveName:cls inClass:(Smalltalk at: specClass)) isNil ifTrue:[
  2049         spec majorKey isNil ifTrue:[
  2049         spec majorKey isNil ifTrue:[
  2050             ^ self warn:'Cannot find class (no majorKey specified)'.
  2050             ^ self warn:'Cannot find class (no majorKey specified)'.
  2051         ].
  2051         ].
  2052         ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'.
  2052         ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'.
  2053     ].
  2053     ].
  2590 
  2590 
  2591     self valueOfCanCut value: canCutOrCopy.
  2591     self valueOfCanCut value: canCutOrCopy.
  2592     self valueOfCanCopy value: canCutOrCopy.
  2592     self valueOfCanCopy value: canCutOrCopy.
  2593     self valueOfCanPaste value: canPaste.            
  2593     self valueOfCanPaste value: canPaste.            
  2594     self valueOfCanPasteWithKeepingLayout value: (canPaste &  self canKeepLayoutInSelection).
  2594     self valueOfCanPasteWithKeepingLayout value: (canPaste &  self canKeepLayoutInSelection).
  2595 
       
  2596 
       
  2597 ! !
  2595 ! !
  2598 
  2596 
  2599 !UIPainter methodsFor:'settings'!
  2597 !UIPainter methodsFor:'settings'!
  2600 
  2598 
  2601 redefineAspectMethods
  2599 redefineAspectMethods
  3500 
  3498 
  3501 setAttributesFromWindowSpec:aWindowSpec
  3499 setAttributesFromWindowSpec:aWindowSpec
  3502     "sets a window spec from aWindowSpec"
  3500     "sets a window spec from aWindowSpec"
  3503 
  3501 
  3504     windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec.
  3502     windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec.
  3505     self canvasNameChanged:aWindowSpec name.           
  3503     self canvas topView name: aWindowSpec name.
       
  3504     self canvasNameChanged: aWindowSpec name.
  3506     self application treeSelection.
  3505     self application treeSelection.
  3507 
       
  3508 
       
  3509 ! !
  3506 ! !
  3510 
  3507 
  3511 !UIPainter::TreeView methodsFor:'canvas selection'!
  3508 !UIPainter::TreeView methodsFor:'canvas selection'!
  3512 
  3509 
  3513 cvsSelection:aSelection
  3510 cvsSelection:aSelection