"

 COPYRIGHT (c) 1995 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

View subclass:#ActiveHelpView

	instanceVariableNames:'myView shapeStyle'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Help'

!

copyright

"

 COPYRIGHT (c) 1995 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a talking view.

    Instances of myself show up either as a comics-like talking

    view, or as a simple square popup. This is configured via the

    styleSheet; the default is simple-square. 

    To get the fancy comics style, add a resource 'activeHelpStyle' with 

    a symbol-value of #cartoon.

    However, be aware that some servers have performance problems with

    these view-shapes (or do not support shapes at all).

    [author:]

        Claus Gittinger

    [See also:]

        ActiveHelp

"

! !

for:someText

    "create a talking-view for some text"

    |helpView textView|

    helpView := self new.

    textView := Label new.

    ^ (helpView withView:textView) contents:someText

    "

     (ActiveHelpView for:'hello world\this is an ActiveHelpView' withCRs) 

        shapeStyle:nil; realize

     (ActiveHelpView for:'hello world\this is an ActiveHelpView' withCRs) 

        shapeStyle:#cartoon; realize

    "

!

with:aView

    "create a talking-view wrapping some other view"

    ^ self new withView:aView

    "

     (ActiveHelpView with:(TextView new)) realize

     (ActiveHelpView with:(TextView new)) open

     (ActiveHelpView with:(Button label:'ok')) open

    "

    "Modified: 27.4.1996 / 15:14:18 / cg"

! !

!ActiveHelpView methodsFor:'accessing'!

contents:someText

    "set the text"

    (myView isKindOf:Label) ifTrue:[

        myView label:someText asString.

        myView extent:(myView preferredExtent).

    ] ifFalse:[

        myView contents:someText.

    ].

    self resizeToFit

    "Modified: 27.4.1996 / 15:14:56 / cg"

!

shapeStyle:aStyleSymbol

    "set the shapeStyle

     currently, only nil or #cartoon are supported"

    shapeStyle := aStyleSymbol.

    self resizeToFit.

    self computeShape.

    "Created: 29.5.1996 / 15:39:41 / cg"

    "Modified: 29.5.1996 / 15:43:54 / cg"

!

withView:aView

    "set the component view"

    (aView isKindOf:Label) ifTrue:[

        aView viewBackground:viewBackground.

        aView backgroundColor:viewBackground.

    ].

    self addSubView:aView.

    myView := aView.

    myView borderWidth:0

    "Modified: 27.4.1996 / 15:16:46 / cg"

! !

!ActiveHelpView methodsFor:'initialization'!

initStyle

    <resource: #style (#activeHelpBackgroundColor

                       #activeHelpBorderWidth

                       #activeHelpStyle)>

    |bg|

    super initStyle.

    shapeStyle := styleSheet at:'activeHelpStyle' default:nil.

    bg := styleSheet colorAt:'activeHelpBackgroundColor' default:nil.

    bg notNil ifTrue:[

        viewBackground := bg

    ] ifFalse:[

        shapeStyle == #cartoon ifTrue:[

            viewBackground := White

        ]

    ].

    borderWidth := styleSheet at:'activeHelpBorderWidth' default:1.

    "Modified: 29.5.1996 / 15:48:49 / cg"

!

initialize

    super initialize.

    font := Font family:'helvetica' size:12.

    "Modified: 29.5.1996 / 15:37:40 / cg"

!

realize

    self create.

    self computeShape.

    self enableMotionEvents.

    self enableButtonMotionEvents.

    super realize

! !

!ActiveHelpView methodsFor:'private'!

computeShape

    "compute the shape, based upon the size of my component view"

    |extent shapeForm borderForm y1 bw h w mirrorH mirrorV

     p1 p2 p3 pB1 pB2 pB3 offs hEll|

    shapeStyle ~~ #cartoon ifTrue:[^ self].

    extent := self extent.

    h := extent y.

    w := extent x.

    bw := 4.

    offs := 0.

        mirrorH := true.

        self origin:((self origin x - w) @ (self origin y)).

        offs := bw * 2.

    ] ifFalse:[

        mirrorH := false

    ].

        mirrorV := true.

        self origin:(self origin x @ (self origin y - h)).

    ] ifFalse:[

        mirrorV := false

    ].

    borderForm := Form width:w height:h.

    shapeForm := Form width:w height:h.

    borderForm fill:(Color noColor).

    shapeForm fill:(Color noColor).

    hEll := (h // 3 * 2).

    mirrorV ifTrue:[

        y1 := 0.

    ] ifFalse:[

        y1 := h // 4.

    ].

    borderForm fillArcX:0 

                      y:y1 

                  width:w

                 height:hEll

                   from:0

                  angle:360.

    myView origin:(width - myView width // 2) @ (y1 + ((hEll - myView height) // 2)).

    mirrorH ifTrue:[

        mirrorV ifTrue:[

            p1 := w @ h. 

            p2 := ((w * 7 // 8) @ (h // 2)).

            p3 := ((w // 2) @ (h // 2)).

            pB1 := (w-bw) @ (h-bw). 

            pB2 := ((w * 7 // 8 - bw) @ (h // 2 - bw)).

            pB3 := ((w // 2 + bw) @ (h // 2 - bw))

        ] ifFalse:[

            p1 := w @ 0. 

            p2 := ((w * 7 // 8) @ (h // 2)).

            p3 := ((w // 2) @ (h // 2)).

            pB1 := (w-bw) @ bw. 

            pB2 := ((w * 7 // 8 - bw) @ (h // 2 + bw)).

            pB3 := ((w // 2 + bw) @ (h // 2 + bw))

        ]

    ] ifFalse:[

        mirrorV ifTrue:[

            p1 := 0@h. 

            p2 := ((w // 8) @ (h // 2)). 

            p3 := ((w // 2) @ (h // 2)).

            pB1 := bw@(h-bw). 

            pB2 := ((w // 8 + bw) @ (h // 2 - bw)). 

            pB3 := ((w // 2 - bw) @ (h // 2 - bw)).

        ] ifFalse:[

            p1 := 0@0. 

            p2 := ((w // 8) @ (h // 2)). 

            p3 := ((w // 2) @ (h // 2)).

            pB1 := bw@bw. 

            pB2 := ((w // 8 + bw) @ (h // 2 + bw)). 

            pB3 := ((w // 2 - bw) @ (h // 2 + bw)).

        ]

    ].

    borderForm fillPolygon:(Array with:p1 with:p2 with:p3).

    shapeForm fillPolygon:(Array with:pB1 with:pB2 with:pB3).

    shapeForm lineWidth:bw.

    shapeForm paint:(Color noColor).

    shapeForm displayPolygon:(Array with:p3 with:p1 with:p2).

    shapeForm paint:(Color colorId:1).

    shapeForm fillArcX:bw 

                     y:y1 + bw 

                 width:(w - (bw * 2))

                height:(h // 3 * 2 - (bw * 2))

                  from:0

                 angle:360.

    self borderShape:borderForm.

    self viewShape:shapeForm

!

resizeToFit

    "resize myself to make the component view fit"

    |h w pref|

    pref := myView preferredExtent.

    shapeStyle == #cartoon ifTrue:[

        h := pref y. 

        w := pref x. 

        self extent:((w / 0.85) rounded asInteger)

                     @ 

                    ((h * 4) rounded asInteger)

    ] ifFalse:[

        self extent:pref

    ]

    "Modified: 29.5.1996 / 15:54:23 / cg"

! !

!ActiveHelpView methodsFor:'queries'!

isPopUpView

    "return true - I am a popUp type of view (no decoration, pop-to-top)"

    ^ true

    "Modified: 12.5.1996 / 21:58:12 / cg"

! !

version

! !