# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1216374467 -7200
# Node ID 6db49934cd0e571fdb93b27b1a3530065e19b660
# Parent  460554434db0fe1a09a234c5a6ac81be58ef1a3a
drop fixed

diff -r 460554434db0 -r 6db49934cd0e UIPainter.st
--- a/UIPainter.st	Fri Jul 18 11:47:14 2008 +0200
+++ b/UIPainter.st	Fri Jul 18 11:47:47 2008 +0200
@@ -4355,8 +4355,12 @@
                 ]
             ] ifFalse:[
                 spec useDefaultExtent:false.
+                spec usePreferredWidth:(layoutTool aspectFor:#usePreferredWidth) value.
+                spec usePreferredHeight:(layoutTool aspectFor:#usePreferredHeight) value.
+                spec useDynamicPreferredWidth:(layoutTool aspectFor:#useDynamicPreferredWidth) value.
+                spec useDynamicPreferredHeight:(layoutTool aspectFor:#useDynamicPreferredHeight) value.
                 painter setLayout:layout
-            ]
+            ].
         ]
     ] ifFalse:[
         self isHelpToolSelected ifTrue:[
@@ -5114,9 +5118,9 @@
     |classAndSelector|
 
     self askForSectionModification.
-    self hasSpecClassAndSelector ifTrue:[
-        self askForModification ifFalse:[^ false].
-    ].
+"/    self hasSpecClassAndSelector ifTrue:[
+"/        self askForModification ifFalse:[^ false].
+"/    ].
 
     classAndSelector := ResourceSelectionBrowser
             request: 'Save Window Spec In Class'
@@ -5739,7 +5743,7 @@
 drop:aDropContext at:aPoint
     "drop objects -> delegate to canvas"
 
-    self canvas drop:aDropContext at:aPoint
+    self canvas drop:aDropContext at:nil
 
     "Modified: / 13-10-2006 / 16:09:07 / cg"
 !
@@ -5755,7 +5759,7 @@
 dropObjects:aCollectionOfDropObjects at:aPoint
     "drop objects -> delegate to canvas"
 
-    self canvas dropObjects:aCollectionOfDropObjects at:aPoint
+    self canvas dropObjects:aCollectionOfDropObjects at:nil
 
     "Created: / 13-10-2006 / 16:08:56 / cg"
 ! !