equal
deleted
inserted
replaced
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 |