!7

cmodule2 FontDemo > DynSCP {
  switchable S fontSnippetID;
  switchable int fontSize = 100;
  switchable S text = charRange('A', 'Z') + charRange('a', 'z') + charRange('0', '9');

  start {
    dm_onFieldChange text(r show);
  }
  
  visualize {
    JComponent c = northAndCenter(centerAndEastWithMargins(
      vstackWithSpacing(
        jhgridWithSpacing(dm_textFieldWithLabel fontSnippetID(),
          dm_intSpinnerWithLabel fontSize(1, 200)),
        dm_textFieldWithLabel text()),
      jbutton("Show", rThreadEnter show)),
    super.visualize();
    dm_inQ(r show);
    ret c;
  }
  
  void show {
    JScrollPane sp = scrollableImageSurface(renderText(fontSnippetID, fontSize, text));
    scp.setComponent(jSection(snippetWithTitle(fontSnippetID), sp));
  }
}