!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 withComputing(rstAdjust, textPane = fontSize(fontSize, dm_centeredTextPane('text)));
  
  start { new Dyn_FieldWatcher(this, 'text, rstAdjust); }
}