equal
deleted
inserted
replaced
1071 "redraw all objects on a graphic context" |
1071 "redraw all objects on a graphic context" |
1072 |
1072 |
1073 |vFrame| |
1073 |vFrame| |
1074 |
1074 |
1075 (aGC == self) ifTrue:[ |
1075 (aGC == self) ifTrue:[ |
1076 shown ifFalse:[^ self]. |
1076 shown ifFalse:[^ self]. |
1077 vFrame := Rectangle origin:0@0 corner:(width @ height). |
1077 vFrame := Rectangle left:0 top:0 width:width height:height. |
1078 |
1078 |
1079 transformation notNil ifTrue:[ |
1079 transformation notNil ifTrue:[ |
1080 vFrame := transformation applyInverseTo:vFrame. |
1080 vFrame := transformation applyInverseTo:vFrame. |
1081 ]. |
1081 ]. |
1082 self redrawObjectsIntersecting:vFrame |
1082 self redrawObjectsIntersecting:vFrame |
1083 ] ifFalse:[ |
1083 ] ifFalse:[ |
1084 "should loop over pages" |
1084 "should loop over pages" |
1085 |
1085 |
1086 vFrame := Rectangle origin:(0@0) corner:(9999 @ 9999). |
1086 vFrame := Rectangle left:0 top:0 width:9999 height:9999. |
1087 |
1087 |
1088 self objectsIntersecting:vFrame do:[:theObject | |
1088 self objectsIntersecting:vFrame do:[:theObject | |
1089 theObject drawIn:aGC |
1089 theObject drawIn:aGC |
1090 ] |
1090 ] |
1091 ] |
1091 ] |
|
1092 |
|
1093 "Modified: 8.5.1996 / 21:01:27 / cg" |
1092 ! |
1094 ! |
1093 |
1095 |
1094 redrawScale |
1096 redrawScale |
1095 "redraw the scales" |
1097 "redraw the scales" |
1096 |
1098 |
1248 |
1250 |
1249 redrawX:x y:y width:w height:h |
1251 redrawX:x y:y width:w height:h |
1250 |redrawFrame | |
1252 |redrawFrame | |
1251 |
1253 |
1252 ((contents size ~~ 0) or:[gridShown]) ifTrue:[ |
1254 ((contents size ~~ 0) or:[gridShown]) ifTrue:[ |
1253 redrawFrame := Rectangle left:x top:y |
1255 redrawFrame := Rectangle left:x top:y width:w height:h. |
1254 width:w height:h. |
1256 self redrawObjectsInVisible:redrawFrame |
1255 self redrawObjectsInVisible:redrawFrame |
1257 ] |
1256 ] |
1258 |
|
1259 "Modified: 8.5.1996 / 21:01:32 / cg" |
1257 ! ! |
1260 ! ! |
1258 |
1261 |
1259 !ObjectView methodsFor:'grid manipulation'! |
1262 !ObjectView methodsFor:'grid manipulation'! |
1260 |
1263 |
1261 alignOff |
1264 alignOff |
2793 ! ! |
2796 ! ! |
2794 |
2797 |
2795 !ObjectView class methodsFor:'documentation'! |
2798 !ObjectView class methodsFor:'documentation'! |
2796 |
2799 |
2797 version |
2800 version |
2798 ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.35 1996-04-27 18:13:37 cg Exp $' |
2801 ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.36 1996-05-08 20:03:19 cg Exp $' |
2799 ! ! |
2802 ! ! |