!7

module RandomSpeechLogLines {
  S line;
  
  start {
    setModuleName("Random Speech Log Line (" + l(dm_speechLog()+ ")");
  }
  
  visualize {
    JLabel lbl = fontSizePlus(3, dm_centeredFieldLabel('line));
    awtCalcEvery(lbl,
      0.0, 5.0, r {
        setField(line := random(dm_speechLog()));
      });
    ret lbl;
  }
}