equal
deleted
inserted
replaced
2674 accept |
2674 accept |
2675 "accepts all modifications done to the attributes of the current section" |
2675 "accepts all modifications done to the attributes of the current section" |
2676 |
2676 |
2677 |painter layout spec prop key layoutTool| |
2677 |painter layout spec prop key layoutTool| |
2678 |
2678 |
|
2679 self modifiedChannel value:false. |
|
2680 modified := true. |
|
2681 |
2679 painter := self painter. |
2682 painter := self painter. |
2680 |
2683 |
2681 self isLayoutToolSelected ifTrue:[ |
2684 self isLayoutToolSelected ifTrue:[ |
2682 layoutTool := self layoutTool. |
2685 layoutTool := self layoutTool. |
2683 |
2686 |
2703 prop notNil ifTrue:[ |
2706 prop notNil ifTrue:[ |
2704 prop spec activeHelpKey:key |
2707 prop spec activeHelpKey:key |
2705 ]. |
2708 ]. |
2706 spec activeHelpKey:key. |
2709 spec activeHelpKey:key. |
2707 ] ifFalse:[ |
2710 ] ifFalse:[ |
2708 painter updateFromSpec:spec. |
2711 painter updateFromSpec:spec |
2709 ] |
2712 ] |
2710 ]. |
2713 ] |
2711 self modifiedChannel value:false. |
2714 |
2712 modified := true. |
|
2713 ! |
2715 ! |
2714 |
2716 |
2715 addWidget: aSpecClass |
2717 addWidget: aSpecClass |
2716 "adds a widget from aSpecClass to the current widget" |
2718 "adds a widget from aSpecClass to the current widget" |
2717 |
2719 |