push
github
35 of 98 new or added lines in 15 files covered. (35.71%)
4299 of 5367 relevant lines covered (80.1%)
0.8 hits per line
|
NEW
|
accessing |
× |
|
NEW
|
positionPopupSafely: aPopup |
× |
|
NEW
|
|
× |
|
NEW
|
| clippingOnTop | |
× |
|
NEW
|
clippingOnTop := false.
|
× |
|
NEW
|
aPopup bottomRight: self topCenter. |
× |
|
NEW
|
(aPopup position y < (owner position y)) |
× |
|
NEW
|
ifTrue: [ |
× |
|
NEW
|
aPopup topLeft: self bottomCenter. |
× |
|
NEW
|
clippingOnTop := true].
|
× |
|
NEW
|
(aPopup topLeft x < (owner position x + 60))
|
× |
|
NEW
|
ifTrue: [ |
× |
|
NEW
|
(clippingOnTop) |
× |
|
NEW
|
ifTrue: [aPopup topLeft: self bottomCenter.] |
× |
|
NEW
|
ifFalse: [aPopup bottomLeft: self topCenter]] |
× |