sbool conceptLanguageToolTips_enabled;

svoid conceptLanguageToolTips() swing {
  if (conceptLanguageToolTips_enabled) ret;
  conceptLanguageToolTips_enabled = true;
  
  thread "conceptLanguageToolTips" {
    repeat with ms sleep 500 {
      Component c = componentAtMouse();
      if (c instanceof JComponent) {
        S word = wordAtMouse(), msg = "";
        if (possibleGlobalID(word)) {
          S name = conceptToName(word);
          if (neq(name, word))
            msg = word + ": " + name;
        }
        setToolTipText((JComponent) c, msg);
      }
    }
  }
}