--- 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