# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1241964527 -7200
# Node ID 36dce8c654af7bcc8ac455c5afc2a1325388997a
# Parent  c27a926cbe67516b68c764a00f2f0a0cbc5c9938
*** empty log message ***

diff -r c27a926cbe67 -r 36dce8c654af UIObjectView.st
--- a/UIObjectView.st	Sun May 10 13:00:24 2009 +0200
+++ b/UIObjectView.st	Sun May 10 16:08:47 2009 +0200
@@ -199,12 +199,12 @@
         h := self isHorizontalResizable:aView.
 
         h ifTrue:[  
-            aBlock value:(aView leftCenter ) value:#left.
-            aBlock value:(aView rightCenter) value:#right
+            aBlock value:(aView leftCenter rounded ) value:#left.
+            aBlock value:(aView rightCenter rounded) value:#right
         ].
         v ifTrue:[  
-            aBlock value:(aView topCenter   ) value:#top.
-            aBlock value:(aView bottomCenter) value:#bottom.
+            aBlock value:(aView topCenter rounded   ) value:#top.
+            aBlock value:(aView bottomCenter rounded) value:#bottom.
         ].
 
         (h and:[v]) ifTrue:[
@@ -224,8 +224,8 @@
         v := self isVerticalResizable:aView.
         h := self isHorizontalResizable:aView.
 
-        v ifTrue:[ aBlock value:(aView bottomCenter) value:#bottom ].
-        h ifTrue:[ aBlock value:(aView rightCenter ) value:#right ].
+        v ifTrue:[ aBlock value:(aView bottomCenter rounded) value:#bottom ].
+        h ifTrue:[ aBlock value:(aView rightCenter rounded ) value:#right ].
 
         (h and:[v]) ifTrue:[
             aBlock value:(aView corner) value:#corner.
@@ -485,10 +485,10 @@
     spv := self findContainerOfView:aView.
 
     aView isView ifFalse:[
-        spv invalidate.
+"/        spv invalidate.
     ].
 
-    spv := self findContainerOfView:aView.
+"/    spv := self findContainerOfView:aView.
 
     selectionHiddenLevel ~~ 0 ifTrue:[
         setOfSuperViewsSizeChanged add:spv
@@ -497,31 +497,6 @@
     ]
 !
 
-exposeX:x y:y width:w height:h
-    "handle an expose event from device; redraw selection
-    "
-
-"/    resizeData isNil ifTrue:[
-        super exposeX:x y:y width:w height:h.
-
-        "/ handle any expose events (for subcomponents) before
-        "/ redrawing the handles.
-"/        (self sensor hasExposeEventFor:nil) ifTrue:[^ self].
-"/
-"/        self selectionDo:[:aComponent |
-"/            aComponent withAllSubViewsDo:[:v |
-"/                v realized ifTrue:[
-"/                    self sensor flushExposeEventsFor:v.
-"/                    v exposeX:0 y:0 width:v width height:v height.
-"/                ]
-"/            ].
-"/            self showSelected:aComponent
-"/        ]
-"/    ].
-
-    "Modified: / 9.11.1998 / 12:50:34 / cg"
-!
-
 keyPress:key x:x y:y
     "any key pressed
     "
@@ -1598,10 +1573,10 @@
                 (el intersects:aDamage) ifTrue:[
                     damages removeIdentical:el.
 
-                    aDamage left:(aDamage left   min:el left)
-                           right:(aDamage right  max:el right)
-                             top:(aDamage top    min:el top)
-                          bottom:(aDamage bottom max:el bottom)
+                    aDamage left:(aDamage left   min:el left) floor
+                           right:(aDamage right  max:el right) ceiling
+                             top:(aDamage top    min:el top) floor
+                          bottom:(aDamage bottom max:el bottom) ceiling
                 ]
             ].                        
             damages add:aDamage