equal
deleted
inserted
replaced
1516 |
1516 |
1517 (wasClipped := clipChildren) ifTrue:[ |
1517 (wasClipped := clipChildren) ifTrue:[ |
1518 self clippedByChildren:(clipChildren := false). |
1518 self clippedByChildren:(clipChildren := false). |
1519 ]. |
1519 ]. |
1520 |
1520 |
1521 self handlesOf:aComponent do:[:rectangle :what| |
1521 self handlesOf:aComponent do:[:aRectangle :what| |l t w h| |
1522 what == #view ifTrue:[self displayRectangle:rectangle] |
1522 l := aRectangle left + 1. |
1523 ifFalse:[self fillRectangle:rectangle] |
1523 t := aRectangle top + 1. |
|
1524 w := aRectangle width - 2. |
|
1525 h := aRectangle height - 2. |
|
1526 |
|
1527 what == #view ifTrue:[self displayRectangleX:l y:t width:w height:h] |
|
1528 ifFalse:[self fillRectangleX:l y:t width:w height:h] |
1524 ]. |
1529 ]. |
1525 |
1530 |
1526 wasClipped ifTrue:[ |
1531 wasClipped ifTrue:[ |
1527 self clippedByChildren:(clipChildren := true). |
1532 self clippedByChildren:(clipChildren := true). |
1528 ] |
1533 ] |
1529 ] |
1534 ] |
1530 |
|
1531 |
|
1532 ! ! |
1535 ! ! |
1533 |
1536 |
1534 !UIPainterView methodsFor:'queries'! |
1537 !UIPainterView methodsFor:'queries'! |
1535 |
1538 |
1536 resolveName:aName |
1539 resolveName:aName |