UIPainter.st
changeset 1068 dcb2cba5787f
parent 1063 9e710dbc7c92
child 1071 560a9eb1a5d8
--- 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