!7

module ShowRandomColor > DynSCP {
  RGB color;
  
  visualize2 {
    if (color == null) setField(color := randomColor());
    ret withCenteredButtons(
      northAndCenterWithMargin(
        jRightAlignedLiveValueLabel(dm_fieldLiveValue('color)),
        singleColorPanel(toColor(color))),
      "New Color", rThread newColor);
  }
  
  void newColor enter {
    setField(color := randomColor());
    revisualize2();
  }
}