--- a/UIPainter.st Fri Mar 19 21:57:48 1999 +0100
+++ b/UIPainter.st Fri Mar 19 22:02:01 1999 +0100
@@ -1865,7 +1865,7 @@
noteBookView
"returns the notebook view; initialize the tools embedded in the notebook"
- |noteBook modifiedChannel acceptChannel helpTool layoutTool specTool|
+ |noteBook modifiedChannel helpTool layoutTool specTool|
(noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
noteBook := View new.
@@ -2929,11 +2929,9 @@
accept
"accepts all modifications done to the attributes of the current section"
- |painter layout spec prop key layoutTool|
-
- self acceptChannel value:true. "/ force editFields to accept
- self acceptChannel value:false.
-
+ |painter layout spec layoutTool|
+
+ self acceptChannel value:true; value:false. "/ force editFields to accept
self modifiedChannel value:false.
modified := true.
@@ -2962,8 +2960,6 @@
].
painter updateFromSpec:spec
]
-
-
!
addWidget: aSpecClass