equal
deleted
inserted
replaced
277 "compute the shape, based upon the size of my component view" |
277 "compute the shape, based upon the size of my component view" |
278 |
278 |
279 |extent oldOrigin shapeForm borderForm y1 bw h w mirrorH mirrorV |
279 |extent oldOrigin shapeForm borderForm y1 bw h w mirrorH mirrorV |
280 p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78 mousePosition graphicsDevice| |
280 p1 p2 p3 pB1 pB2 pB3 offs hEll h2 w2 w8 w78 mousePosition graphicsDevice| |
281 |
281 |
282 (shapeStyle == #cartoon) ifFalse:[ |
282 (shapeStyle ~~ #cartoon) ifTrue:[ |
283 ^ self. |
283 ^ self. |
284 ]. |
284 ]. |
285 graphicsDevice := device. |
285 graphicsDevice := device. |
286 graphicsDevice supportsArbitraryShapedViews ifTrue:[ |
286 graphicsDevice supportsArbitraryShapedViews ifTrue:[ |
287 extent := self extent. |
287 extent := self extent. |
381 borderForm notNil ifTrue:[ |
381 borderForm notNil ifTrue:[ |
382 self borderShape:borderForm. |
382 self borderShape:borderForm. |
383 self viewShape:shapeForm |
383 self viewShape:shapeForm |
384 ]. |
384 ]. |
385 |
385 |
386 "Modified: / 5.6.1999 / 21:41:01 / cg" |
386 "Modified: / 05-06-1999 / 21:41:01 / cg" |
387 "Modified: / 27.10.1999 / 13:45:45 / stefan" |
387 "Modified: / 16-04-2018 / 11:43:55 / stefan" |
388 ! |
388 ! |
389 |
389 |
390 resizeToFit |
390 resizeToFit |
391 "resize myself to make the component view fit" |
391 "resize myself to make the component view fit" |
392 |
392 |