# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 921877321 -3600
# Node ID dcb2cba5787f2b84cda4f8244186c8946f5ce8c2
# Parent  08d5c0a01e56e1f8ba676dc95627e8a65a45d786
*** empty log message ***

diff -r 08d5c0a01e56 -r dcb2cba5787f UIPainter.st
--- 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