sbool conceptLanguageToolTips_enabled;

svoid conceptLanguageToolTips() swing {
  if (conceptLanguageToolTips_enabled) ret;
  conceptLanguageToolTips_enabled = true;
  
  thread "conceptLanguageToolTips" {
    //repeat with ms sleep 500 {
    // Don't respond to "pause" button
    while (licensed_noPing()) {
      pcall {
        Component c = componentAtMouse();
        if (c instanceof JComponent) {
          S word = wordAtMouse(), msg = "";
          if (possibleGlobalID(word)) {
            Lisp l = getLispTruth(word);
            S name = null;
            if (l != null)
              name = lispToEnglish_prettier(l);
            if (name == null)
              name = conceptToNameOpt(word); // This reloads AI concepts
            if (name != null)
              msg = word + ": " + name;
          }
          setToolTipText((JComponent) c, msg);
        }
      }
      Thread.sleep(500);
    }
  }
}