equal
deleted
inserted
replaced
197 (type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[ |
197 (type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[ |
198 v := self isVerticalResizable:aView. |
198 v := self isVerticalResizable:aView. |
199 h := self isHorizontalResizable:aView. |
199 h := self isHorizontalResizable:aView. |
200 |
200 |
201 h ifTrue:[ |
201 h ifTrue:[ |
202 aBlock value:(aView leftCenter ) value:#left. |
202 aBlock value:(aView leftCenter rounded ) value:#left. |
203 aBlock value:(aView rightCenter) value:#right |
203 aBlock value:(aView rightCenter rounded) value:#right |
204 ]. |
204 ]. |
205 v ifTrue:[ |
205 v ifTrue:[ |
206 aBlock value:(aView topCenter ) value:#top. |
206 aBlock value:(aView topCenter rounded ) value:#top. |
207 aBlock value:(aView bottomCenter) value:#bottom. |
207 aBlock value:(aView bottomCenter rounded) value:#bottom. |
208 ]. |
208 ]. |
209 |
209 |
210 (h and:[v]) ifTrue:[ |
210 (h and:[v]) ifTrue:[ |
211 aBlock value:(aView origin ) value:#origin. |
211 aBlock value:(aView origin ) value:#origin. |
212 aBlock value:(aView topRight ) value:#topRight. |
212 aBlock value:(aView topRight ) value:#topRight. |
222 |
222 |
223 type == #Extent ifTrue:[ |
223 type == #Extent ifTrue:[ |
224 v := self isVerticalResizable:aView. |
224 v := self isVerticalResizable:aView. |
225 h := self isHorizontalResizable:aView. |
225 h := self isHorizontalResizable:aView. |
226 |
226 |
227 v ifTrue:[ aBlock value:(aView bottomCenter) value:#bottom ]. |
227 v ifTrue:[ aBlock value:(aView bottomCenter rounded) value:#bottom ]. |
228 h ifTrue:[ aBlock value:(aView rightCenter ) value:#right ]. |
228 h ifTrue:[ aBlock value:(aView rightCenter rounded ) value:#right ]. |
229 |
229 |
230 (h and:[v]) ifTrue:[ |
230 (h and:[v]) ifTrue:[ |
231 aBlock value:(aView corner) value:#corner. |
231 aBlock value:(aView corner) value:#corner. |
232 ^ self |
232 ^ self |
233 ] |
233 ] |
483 |spv| |
483 |spv| |
484 |
484 |
485 spv := self findContainerOfView:aView. |
485 spv := self findContainerOfView:aView. |
486 |
486 |
487 aView isView ifFalse:[ |
487 aView isView ifFalse:[ |
488 spv invalidate. |
488 "/ spv invalidate. |
489 ]. |
489 ]. |
490 |
490 |
491 spv := self findContainerOfView:aView. |
491 "/ spv := self findContainerOfView:aView. |
492 |
492 |
493 selectionHiddenLevel ~~ 0 ifTrue:[ |
493 selectionHiddenLevel ~~ 0 ifTrue:[ |
494 setOfSuperViewsSizeChanged add:spv |
494 setOfSuperViewsSizeChanged add:spv |
495 ] ifFalse:[ |
495 ] ifFalse:[ |
496 spv sizeChanged:nil |
496 spv sizeChanged:nil |
497 ] |
497 ] |
498 ! |
|
499 |
|
500 exposeX:x y:y width:w height:h |
|
501 "handle an expose event from device; redraw selection |
|
502 " |
|
503 |
|
504 "/ resizeData isNil ifTrue:[ |
|
505 super exposeX:x y:y width:w height:h. |
|
506 |
|
507 "/ handle any expose events (for subcomponents) before |
|
508 "/ redrawing the handles. |
|
509 "/ (self sensor hasExposeEventFor:nil) ifTrue:[^ self]. |
|
510 "/ |
|
511 "/ self selectionDo:[:aComponent | |
|
512 "/ aComponent withAllSubViewsDo:[:v | |
|
513 "/ v realized ifTrue:[ |
|
514 "/ self sensor flushExposeEventsFor:v. |
|
515 "/ v exposeX:0 y:0 width:v width height:v height. |
|
516 "/ ] |
|
517 "/ ]. |
|
518 "/ self showSelected:aComponent |
|
519 "/ ] |
|
520 "/ ]. |
|
521 |
|
522 "Modified: / 9.11.1998 / 12:50:34 / cg" |
|
523 ! |
498 ! |
524 |
499 |
525 keyPress:key x:x y:y |
500 keyPress:key x:x y:y |
526 "any key pressed |
501 "any key pressed |
527 " |
502 " |
1596 self handlesOf:v do:[:aDamage :wht| |
1571 self handlesOf:v do:[:aDamage :wht| |
1597 damages reverseDo:[:el| |
1572 damages reverseDo:[:el| |
1598 (el intersects:aDamage) ifTrue:[ |
1573 (el intersects:aDamage) ifTrue:[ |
1599 damages removeIdentical:el. |
1574 damages removeIdentical:el. |
1600 |
1575 |
1601 aDamage left:(aDamage left min:el left) |
1576 aDamage left:(aDamage left min:el left) floor |
1602 right:(aDamage right max:el right) |
1577 right:(aDamage right max:el right) ceiling |
1603 top:(aDamage top min:el top) |
1578 top:(aDamage top min:el top) floor |
1604 bottom:(aDamage bottom max:el bottom) |
1579 bottom:(aDamage bottom max:el bottom) ceiling |
1605 ] |
1580 ] |
1606 ]. |
1581 ]. |
1607 damages add:aDamage |
1582 damages add:aDamage |
1608 ] |
1583 ] |
1609 ]. |
1584 ]. |