1008 |oldClip gX gY gW gH| |
1008 |oldClip gX gY gW gH| |
1009 |
1009 |
1010 shown ifTrue:[ |
1010 shown ifTrue:[ |
1011 self clearRectangleX:x y:y width:w height:h. |
1011 self clearRectangleX:x y:y width:w height:h. |
1012 frameBeforeMove notNil ifTrue:[ |
1012 frameBeforeMove notNil ifTrue:[ |
1013 oldClip := self clippingRectangleOrNil. |
1013 (frameBeforeMove intersects:(x@y extent:w@h)) ifTrue:[ |
1014 self clippingRectangle:(Rectangle left:x top:y width:w height:h). |
1014 oldClip := self clippingRectangleOrNil. |
1015 |
1015 self clippingRectangle:(Rectangle left:x top:y width:w height:h). |
1016 gX := frameBeforeMove left. |
1016 |
1017 gY := frameBeforeMove top. |
1017 gX := frameBeforeMove left. |
1018 gW := frameBeforeMove width. |
1018 gY := frameBeforeMove top. |
1019 gH := frameBeforeMove height. |
1019 gW := frameBeforeMove width. |
|
1020 gH := frameBeforeMove height. |
1020 |
1021 |
1021 ghostColor notNil ifTrue:[ |
1022 ghostColor notNil ifTrue:[ |
1022 self paint:ghostColor. |
1023 self paint:ghostColor. |
1023 self fillRectangle:frameBeforeMove. |
1024 self fillRectangle:frameBeforeMove. |
1024 ]. |
1025 ]. |
1025 (ghostLevel ~~ 0) ifTrue:[ |
1026 (ghostLevel ~~ 0) ifTrue:[ |
1026 self drawEdgesForX:gX y:gY width:gW height:gH level:ghostLevel |
1027 self drawEdgesForX:gX y:gY width:gW height:gH level:ghostLevel |
1027 ]. |
1028 ]. |
1028 ghostFrameColor notNil ifTrue:[ |
1029 ghostFrameColor notNil ifTrue:[ |
1029 self paint:ghostFrameColor. |
1030 self paint:ghostFrameColor. |
1030 self displayRectangleX:gX y:gY width:gW height:gH |
1031 self displayRectangleX:gX y:gY width:gW height:gH |
1031 ]. |
1032 ]. |
1032 self clippingRectangle:oldClip |
1033 self clippingRectangle:oldClip |
|
1034 ] |
1033 ] |
1035 ] |
1034 ] |
1036 ] |
1035 |
1037 |
1036 "Modified: 28.5.1996 / 19:53:40 / cg" |
1038 "Modified: 28.5.1996 / 19:53:40 / cg" |
1037 ! ! |
1039 ! ! |