!7

sclass DynModule {
  transient O _host;
  S name, toolTip;
  
  void setModuleName(S name) {
    this.name = name;
    setInternalFrameTitle(vis(), name);
  }
  
  void setModuleToolTip(S toolTip) {
    this.toolTip = toolTip;
  }
  
  JComponent vis() {
    ret (JComponent) getOpt(_host, 'vis);
  }
}

sclass ShowStandardClass extends DynModule {
  S function, text;
  
  transient SingleComponentPanel scp;
  
  JComponent visualize() { scp = singleComponentPanel(); updateVis(); ret scp; }
  void unvisualize() { scp = null; }
  
  void update {
    S s = dm_getInterestingString();
    if (isIdentifier(s)) {
      S snippetID = standardClassesMap_cached().get(s);
      if (snippetID == null) ret;
      function = s;
      text = loadSnippet(snippetID);
      setModuleName(s);
      setModuleToolTip(snippetID);
      updateVis();
    }
  }

  void updateVis {
    if (scp != null)
      scp.setComponent(function == null ? null : scrollableJavaxSyntaxTextArea(text));
  }
}