!7

sclass ShowStandardClass extends DynModule {
  S function, text;
  
  transient SingleComponentPanel scp;
  
  JComponent visualize() { scp = singleComponentPanel(); updateVis(); ret scp; }
  void unvisualize() { scp = null; }

  start {
    dm_onTopInput(r updateMe);
  }
  
  void update {
    S s = dm_getInterestingString();
    print("ShowStandardClass.update " + s);
    if (isIdentifier(s)) {
      S snippetID = standardClassesMap_cached().get(s);
      print("ShowStandardClass.snippetID " + snippetID);
      if (snippetID == null) ret;
      function = s;
      text = loadSnippet(snippetID);
      setModuleName(s + " [Standard Class]");
      setModuleToolTip(snippetID); // not used yet
      updateVis();
    }
  }

  void updateVis {
    if (scp != null) scp.setComponent(scrollableJavaxSyntaxTextAreaOrNull(text));
  }
}