equal
deleted
inserted
replaced
1863 ! |
1863 ! |
1864 |
1864 |
1865 noteBookView |
1865 noteBookView |
1866 "returns the notebook view; initialize the tools embedded in the notebook" |
1866 "returns the notebook view; initialize the tools embedded in the notebook" |
1867 |
1867 |
1868 |noteBook modifiedChannel acceptChannel helpTool layoutTool specTool| |
1868 |noteBook modifiedChannel helpTool layoutTool specTool| |
1869 |
1869 |
1870 (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[ |
1870 (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[ |
1871 noteBook := View new. |
1871 noteBook := View new. |
1872 layoutTool := UILayoutTool new. |
1872 layoutTool := UILayoutTool new. |
1873 helpTool := UIHelpTool new. |
1873 helpTool := UIHelpTool new. |
2927 !UIPainter methodsFor:'user actions'! |
2927 !UIPainter methodsFor:'user actions'! |
2928 |
2928 |
2929 accept |
2929 accept |
2930 "accepts all modifications done to the attributes of the current section" |
2930 "accepts all modifications done to the attributes of the current section" |
2931 |
2931 |
2932 |painter layout spec prop key layoutTool| |
2932 |painter layout spec layoutTool| |
2933 |
2933 |
2934 self acceptChannel value:true. "/ force editFields to accept |
2934 self acceptChannel value:true; value:false. "/ force editFields to accept |
2935 self acceptChannel value:false. |
|
2936 |
|
2937 self modifiedChannel value:false. |
2935 self modifiedChannel value:false. |
2938 modified := true. |
2936 modified := true. |
2939 |
2937 |
2940 painter := self painter. |
2938 painter := self painter. |
2941 |
2939 |
2960 self helpTool accept. |
2958 self helpTool accept. |
2961 spec activeHelpKey:self helpTool helpKey. |
2959 spec activeHelpKey:self helpTool helpKey. |
2962 ]. |
2960 ]. |
2963 painter updateFromSpec:spec |
2961 painter updateFromSpec:spec |
2964 ] |
2962 ] |
2965 |
|
2966 |
|
2967 ! |
2963 ! |
2968 |
2964 |
2969 addWidget: aSpecClass |
2965 addWidget: aSpecClass |
2970 "adds a widget from aSpecClass to the current widget" |
2966 "adds a widget from aSpecClass to the current widget" |
2971 |
2967 |