!7

cmodule ScreenFillingText {
  S text = "TEST";
  float fontSize;
  
  transient JTextPane textPane;
  transient ReliableSingleThread rstAdjust = dm_rst(this, r {
    jTextPane_adjustTextSizeToFillParentHeight_wait(textPane);
    dm_setFieldUnlessNull(fontSize := fontSize(textPane));
  });
  
  visual onResize(rstAdjust, jscroll(textPane = fontSize(fontSize, dm_centeredTextPane('text))));
  start { dm_watchField('text, rstAdjust); }
}