// instantiate only once per component!
sclass InstantNeverHideToolTip > MouseAdapter {
  JComponent component;
  JToolTip toolTip;
  Popup popup;
  int x, y;
  S text;
  IF0<S> calculateText;
  
  *(IF0<S> *calculateText, JComponent component) { this(component); }
  *(S *text, JComponent component) { this(component); }
  
  *(JComponent *component) {
    swing {
      component.addMouseListener(InstantNeverHideToolTip.this);
      toolTip = component.createToolTip();
      
      // Hide also when component is removed from hierarchy
      bindToComponent(component, null, l0 hideToolTip);
    }
  }
  
  @Override public void mouseEntered(MouseEvent e) {
    x = e.getXOnScreen()+2;
    y = e.getYOnScreen()+2;
    showToolTip();
  }
  
  void updateText() swing {
    if (calculateText != null)
      setText(calculateText!);
  }
  
  public void showToolTip() {
    updateText();
    if (empty(text)) ret;
    toolTip.setTipText(text);
    popup = PopupFactory.getSharedInstance().getPopup(component, toolTip, x, y);
    popup.show();
  }

  public void mouseExited(MouseEvent e) {
    hideToolTip();
  }
  
  bool toolTipShowing() { ret popup != null; }
  
  void hideToolTip() {
    if (popup != null) {
      popup.hide();
      popup = null;
    }
  }
  
  S getText() { ret text; }
  
  void setText(S text) swing {
    if (eq(text, getText())) ret;
    InstantNeverHideToolTip.this.text = text;
    if (toolTipShowing()) {
      hideToolTip();
      showToolTip();
    }
  }
}