equal
deleted
inserted
replaced
197 "compute the shape, based upon the size of my component view" |
197 "compute the shape, based upon the size of my component view" |
198 |
198 |
199 |extent shapeForm borderForm y1 bw h w mirrorH mirrorV |
199 |extent shapeForm borderForm y1 bw h w mirrorH mirrorV |
200 p1 p2 p3 pB1 pB2 pB3 offs hEll| |
200 p1 p2 p3 pB1 pB2 pB3 offs hEll| |
201 |
201 |
202 Display hasShape ifTrue:[ |
202 Display supportsArbitraryShapedViews ifTrue:[ |
203 (shapeStyle == #cartoon) ifTrue:[ |
203 (shapeStyle == #cartoon) ifTrue:[ |
204 extent := self extent. |
204 extent := self extent. |
205 h := extent y. |
205 h := extent y. |
206 w := extent x. |
206 w := extent x. |
207 bw := 4. |
207 bw := 4. |
325 ! ! |
325 ! ! |
326 |
326 |
327 !ActiveHelpView class methodsFor:'documentation'! |
327 !ActiveHelpView class methodsFor:'documentation'! |
328 |
328 |
329 version |
329 version |
330 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.19 1997-10-28 20:00:40 cg Exp $' |
330 ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.20 1999-05-27 12:23:04 cg Exp $' |
331 ! ! |
331 ! ! |