!7

cmodule ScreenFillingText {
  S text = "TEST";
  
  transient JTextPane textPane;
  transient ReliableSingleThread rstAdjust = dm_rst(this, r adjust_impl);
  
  visual withComputing(rstAdjust, textPane = dm_textPane('text));
  
  void adjust_impl {
    new Flag done;
    print("Adjusting...");
    jTextPane_adjustTextSizeToFillParentHeight(textPane, onDone := done);
    waitForFlag(done);
    print("Done");
  }
  
  start {
    new Dyn_FieldWatcher(this, 'text, rstAdjust);
  }
}