Smalltalk › Cincom › VisualWorks

Tooltip:

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

Maarten Mostert

Tooltip:

Hi,

Does anyone knows wheter toolTip: can still be used on a View with something like:

moveBlockWithPoint: movingPoint

blah blah somecondition ifTrue:[ self tooltip: [:myView | myView getUserHelpMessageForToolTip]].

I have the impression it can only be used with ClickableGraphic as all the examples now seem to use this class ?

Regards,

@+Maarten,

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

BREITH Karl-Albert (AREVA)

Re: Tooltip:

I'm using this kind of tooltip on an InputFieldView, works just fine.

VW7.9.

view tooltip: [ .... ]

When the mouse moves over the view, the tip is displayed.

Changed methods in HoverHelpWindow:

openTooltip: aVisualGraphic
"Defer to the tooltipAssistant for the displayBox bounds. The assistant may have its own ideas about the size and location of the displayBox, and may choose to ignore the component's bounds."

self lock critical:
   [self
    component: aVisualGraphic asVisualPart;
    displayBox: (self tooltipDisplayBox).
   "After the window bounds is established with #displayBox:, reset the component bounds."
   component bounds: self bounds.
   self open]

tooltipDisplayBox
"Preferentially align the left edge of the help window with the current mouse location and the top edge with the bottom of the mouse pointer box. Make sure the result fits the screen!"

| mouse extent origin |
mouse := self sensor state mousePoint.
extent := component preferredBounds extent.
origin := mouse + (0 @ 18).
origin y > Screen default bounds bottom
ifTrue: [origin := mouse - (0 @ (2 + extent y))].
^Screen default makeRectangleVisible: (origin extent: extent)

__________________________________________________________
Karl Breith
AREVA GmbH
FDN-G

Postfach 1109
91001 Erlangen
Phone: +49 (0) 9131 900 95544
Fax: +49 (0) 9131 900 94081
mail to: [hidden email]
Vorsitzender des Aufsichtsrats: Philippe Knoche - Geschäftsführer: Stefan vom Scheidt, Carsten Haferkamp
Sitz der Gesellschaft: Erlangen - Registergericht: Fürth, HRB 7817 - www.areva-np.com - Umsatzsteuer-ID: DE 206407096
Supervisory Board Chairman: Philippe Knoche - Managing Directors: Stefan vom Scheidt, Carsten Haferkamp
Company Seat: Erlangen - Commercial Registries Fürth, HRB 7817 - www.areva-np.com - VAT ID code: DE 206407096
Wichtiger Hinweis: Diese E-Mail kann Betriebs- oder Geschäftsgeheimnisse bzw. sonstige vertrauliche Informationen enthalten. Sollten Sie diese E-Mail irrtümlich erhalten haben, ist Ihnen eine Kenntnisnahme des Inhalts, eine Vervielfältigung oder Weitergabe der E-Mail ausdrücklich untersagt. Bitte benachrichtigen Sie uns und vernichten Sie die empfangene E-Mail. Vielen Dank.

Important Note: This e-mail may contain trade secrets or privileged, undisclosed or otherwise confidential information. If you have received this e-mail in error, you are hereby notified that any review, copying or distribution of it is strictly prohibited. Please inform us immediately and destroy the original transmittal. Thank you for your cooperation.

Von: [hidden email] [mailto:[hidden email]] Im Auftrag von [hidden email]
Gesendet: Dienstag, 12. März 2013 13:21
An: VWNC
Betreff: [vwnc] Tooltip:

Hi,