!7

sclass DynModule {
}

sclass ShowStandardClass extends DynModule {
  S function, text;
  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);
      function = s;
      text = loadSnippet(snippetID);
      updateVis();
    }
  }

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