!7

cmodule ScreenFillingText {
  S text = "TEST";
  float fontSize;
  
  transient JTextPane textPane;
  transient ReliableSingleThread rstAdjust = dm_rst(this, r adjust_impl);
  
  visual withComputing(rstAdjust, textPane = fontSize(fontSize, dm_centeredTextPane('text)));
  
  void adjust_impl {
    if (textPane == null) ret;
    new Flag done;
    jTextPane_adjustTextSizeToFillParentHeight(textPane, onDone := done);
    setField(fontSize := fontSize(textPane));
    waitForFlag(done);
  }
  
  start {
    new Dyn_FieldWatcher(this, 'text, rstAdjust);
  }
}