GeometricWrapper subclass:#StrokingWrapper

	instanceVariableNames:'lineWidth lineStyle capStyle joinStyle'

!StrokingWrapper class methodsFor:'documentation'!

    a wrapper for a geometric object, which is to be drawn stroked.

    This allows any geometric thingy to be used as a component in a view.

    (background info: geometrics are mathematical objects - they do not 

     keep any color or lineStyle attributes. Wrappers add this information

     and can also be used as components of a view)

        FillingWrapper Geometric GraphicsContext

  wrap an ellipticArc and display it

  (notice, that no automatic redraw is performed):

                                                                        [exBegin]

    |v e component|

    v := (StandardSystemView extent:250@250) openAndWait.

    e := EllipticalArc boundingBox:(10@10 corner:90@90)

                        startAngle:0 

                        sweepAngle:270.

    component := StrokingWrapper on:e.

    component displayOn:v.

                                                                        [exEnd]

  wrap a rectangle and an ellipticArc,

  and add them as components to a View

  (notice, that doing so makes the redraw automatic):

                                                                        [exBegin]

    |v e component|

    v := StandardSystemView extent:250@250.

    e := Rectangle origin:10@10 corner:90@90.

    component := FillingWrapper on:e.

    component foregroundColor:Color red.

    v addComponent:component.

    e := EllipticalArc boundingBox:(10@10 corner:90@90)

                     startAngle:0 sweepAngle:360.

    component := StrokingWrapper on:e.

    component lineWidth:5.

    v addComponent:component.

    v addComponent:(Button label:'hello').

    v open

                                                                        [exEnd]

  with lineWidth & style:

  (notice, that the redraw is automatic):

                                                                        [exBegin]

    |v e|

    v := StandardSystemView extent:250@250.

    e := EllipticalArc boundingBox:(10@10 corner:90@90)

                        startAngle:0 

                        sweepAngle:270.

    v addComponent:((StrokingWrapper on:e)

                        lineWidth:5;

                        lineStyle:#dashed;

                        foregroundColor:(Color red)).

    e := EllipticalArc boundingBox:(30@30 corner:70@70)

                        startAngle:90 

                        sweepAngle:270.

    v addComponent:((StrokingWrapper on:e)

                        lineWidth:5;

                        lineStyle:#doubleDashed;

                        foregroundColor:(Color red);

                        backgroundColor:(Color green)).

    v open.

                                                                        [exEnd]

  scrolling:

    v addComponent:(Button label:'hello').

!StrokingWrapper methodsFor:'accessing'!

bounds

    "return the boundary rectangle - here, must take care of the lineWidth"

    ^ component bounds insetBy:(lineWidth // 2 + 1) negated

    "Created: 8.5.1996 / 23:22:43 / cg"

    "Modified: 26.5.1996 / 13:03:50 / cg"

!

capStyle

    "return the capStyle"

    ^ capStyle

    "Created: 8.5.1996 / 23:22:04 / cg"

    "Modified: 9.5.1996 / 00:09:12 / cg"

!

capStyle:aSymbol

    "set the capStyle"

    capStyle := aSymbol

    "Created: 8.5.1996 / 23:22:13 / cg"

    "Modified: 9.5.1996 / 00:09:17 / cg"

!

joinStyle

    "return the joinStyle"

    ^ joinStyle

    "Created: 8.5.1996 / 23:22:04 / cg"

    "Modified: 9.5.1996 / 00:09:12 / cg"

joinStyle:aSymbol

    "set the joinStyle"

    joinStyle := aSymbol

    "Created: 8.5.1996 / 23:22:13 / cg"

    "Modified: 9.5.1996 / 00:09:17 / cg"

!

lineStyle

    "return the lineStyle"

    ^ lineStyle

    "Created: 8.5.1996 / 23:22:04 / cg"

    "Modified: 9.5.1996 / 00:09:12 / cg"

lineStyle:aSymbol

    "set the lineStyle"

    lineStyle := aSymbol

    "Created: 8.5.1996 / 23:22:13 / cg"

    "Modified: 9.5.1996 / 00:09:17 / cg"

!

lineWidth

    "return the lineWidth"

    ^ lineWidth

    "Created: 8.5.1996 / 23:22:04 / cg"

    "Modified: 9.5.1996 / 00:09:12 / cg"

!

lineWidth:aNumber

    "set the lineWidth"

    lineWidth := aNumber

    "Created: 8.5.1996 / 23:22:13 / cg"

    "Modified: 9.5.1996 / 00:09:17 / cg"

    "return the components bounds as preferredBounds"

    ^ self bounds

    "Created: 8.5.1996 / 23:23:00 / cg"

    "Modified: 9.5.1996 / 00:09:31 / cg"

!StrokingWrapper methodsFor:'displaying'!

    "display myself - here, display the geometric object asStroked"

    |prevLineWidth prevLineStyle prevCapStyle prevJoinStyle 

     prevFg prevBg|

    prevLineWidth := aGC lineWidth.

    prevLineStyle := aGC lineStyle.

    prevJoinStyle := aGC joinStyle.

    prevCapStyle  := aGC capStyle.

    prevFg := aGC paint.

    prevBg := aGC backgroundPaint.

    aGC lineWidth:lineWidth.

    aGC lineStyle:lineStyle.

    aGC joinStyle:joinStyle.

    aGC capStyle:capStyle.

    component displayStrokedOn:aGC.

    aGC lineWidth:prevLineWidth.

    aGC lineStyle:prevLineStyle.

    aGC joinStyle:prevJoinStyle.

    aGC capStyle:prevCapStyle.

    aGC paint:prevFg on:prevBg.

    "Created: 8.5.1996 / 23:24:04 / cg"

    "Modified: 9.5.1996 / 00:11:17 / cg"

!StrokingWrapper methodsFor:'initialization'!

initialize

    "default my lineWidth to one pixel"

    super initialize.

    lineWidth := 1.

    "Created: 8.5.1996 / 23:49:27 / cg"

    "Modified: 9.5.1996 / 00:11:51 / cg"

!StrokingWrapper class methodsFor:'documentation'!

    ^ '$Header: /cvs/stx/stx/libview2/StrokingWrapper.st,v 1.11 1996-05-28 22:52:31 cg Exp $'