equal
deleted
inserted
replaced
1941 |
1941 |
1942 "if no other object intersects both frames we can do a copy:" |
1942 "if no other object intersects both frames we can do a copy:" |
1943 |
1943 |
1944 intersects := oldFrame intersects:newFrame. |
1944 intersects := oldFrame intersects:newFrame. |
1945 intersects ifFalse:[ |
1945 intersects ifFalse:[ |
1946 gridShown ifFalse:[ |
1946 self hasSolidBackground ifTrue:[ |
1947 transformation isNil ifTrue:[ |
1947 transformation isNil ifTrue:[ |
1948 (objectsIntersectingOldFrame size == 1) ifTrue:[ |
1948 (objectsIntersectingOldFrame size == 1) ifTrue:[ |
1949 (objectsIntersectingNewFrame size == 1) ifTrue:[ |
1949 (objectsIntersectingNewFrame size == 1) ifTrue:[ |
1950 clip := self clippingRectangleOrNil. |
1950 clip := self clippingRectangleOrNil. |
1951 (clip isNil or:[oldFrame isContainedIn:clip]) ifTrue:[ |
1951 (clip isNil or:[oldFrame isContainedIn:clip]) ifTrue:[ |
2389 self objectsIntersecting:absRect do:aBlock |
2389 self objectsIntersecting:absRect do:aBlock |
2390 ! ! |
2390 ! ! |
2391 |
2391 |
2392 !ObjectView methodsFor:'queries'! |
2392 !ObjectView methodsFor:'queries'! |
2393 |
2393 |
|
2394 hasSolidBackground |
|
2395 "return true, if I have a solid color background, which can be pixel-copied |
|
2396 for optimized redraw in moveObject." |
|
2397 |
|
2398 ^ gridShown not |
|
2399 ! |
|
2400 |
2394 heightOfContents |
2401 heightOfContents |
2395 "answer the height of the document in pixels" |
2402 "answer the height of the document in pixels" |
2396 |
2403 |
2397 |h| |
2404 |h| |
2398 |
2405 |
3223 ! ! |
3230 ! ! |
3224 |
3231 |
3225 !ObjectView class methodsFor:'documentation'! |
3232 !ObjectView class methodsFor:'documentation'! |
3226 |
3233 |
3227 version |
3234 version |
3228 ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.75 1999-07-05 11:21:52 cg Exp $' |
3235 ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.76 1999-11-19 14:35:01 ps Exp $' |
3229 ! ! |
3236 ! ! |