# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1157474702 -7200
# Node ID bf7f7207fa07f6252e4451990adf84ef531448e8
# Parent  66d858959276259c43819108901e7a7b5dbf37bf
*** empty log message ***

diff -r 66d858959276 -r bf7f7207fa07 UIPainter.st
--- a/UIPainter.st	Tue Sep 05 18:44:51 2006 +0200
+++ b/UIPainter.st	Tue Sep 05 18:45:02 2006 +0200
@@ -2325,10 +2325,6 @@
     ^aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
 !
 
-autoAcceptOnSelectionChange
-    ^ builder valueAspectFor:#autoAcceptOnSelectionChange initialValue:true
-!
-
 canChangeOrderInContainer
     "returns a boolean value holder which is true if the widget order can be changed 
      within their container"
@@ -3282,8 +3278,10 @@
 painter
     "returns the canvas view"
 
-^ painter.
-    ^ treeView canvas
+    ^ painter.
+"/    ^ treeView canvas
+
+    "Modified: / 05-09-2006 / 18:36:32 / cg"
 !
 
 specTool
@@ -3389,17 +3387,6 @@
     ^ Array with:spec with:view
 !
 
-selectionChangeAllowed:newSelection
-    self isModified ifFalse:[^ true].
-
-    self autoAcceptOnSelectionChange value ifTrue:[
-        self accept
-    ] ifFalse:[
-        self askForUnsavedModifications ifFalse:[^ false].
-    ].
-    ^ true
-!
-
 tabSelection
     "returns the label of the current section in the notebook"
 
@@ -3892,26 +3879,20 @@
 
     |newSel|
 
-    (newSel := self pasteSpecifications:aSpec keepLayout:false at:0@0) notNil
-    ifTrue:
-    [
-        self select: newSel
-    ]
-    ifFalse:
-    [   
+    (newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil
+    ifTrue:[
+        painter select: newSel
+    ] ifFalse:[   
         ((treeView selection size = 0) or: [treeView selectedNode isNil])
-        ifTrue:
-        [                          
+        ifTrue:[                          
             treeView selection: #(1).
-        ]
-        ifFalse:
-        [  
+        ] ifFalse:[  
             treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent])
         ].
         self addWidgetOfSpec: aSpec
     ]
 
-    "Modified: / 30.10.2001 / 13:22:25 / cg"
+    "Modified: / 05-09-2006 / 18:37:12 / cg"
 !
 
 cancel