!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, centerTextPane(dm_textPane('text))));
  
  void adjust_impl {
    if (textPane == null) ret;
    new Flag done;
    print("Adjusting...");
    jTextPane_adjustTextSizeToFillParentHeight(textPane, onDone := done);
    setField(fontSize := fontSize(textPane));
    waitForFlag(done);
    print("Done");
  }
  
  start {
    new Dyn_FieldWatcher(this, 'text, rstAdjust);
  }
}