!7

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