!7

module ShowRandomColor > DynSCP {
  RGB color;
  S yourName;
  
  visualize2 {
    if (color == null) setField(color := randomColor());
    JComponent theForm = withRightMargin(makeForm2(
      "I call this color:", "bla",
      "How do you call this color?", centerAndEastWithMargin(
        onEnter(dm_fieldTextField('yourName), rThread saveName),
        jbutton("Save", rThread saveName))));
    print("pref=" + jPreferredSize(theForm));
        
    ret withRightAlignedButtons(
      centerAndSouthWithMargin(
        northAndCenterWithMargins(
          jRightAlignedLiveValueLabel(mapLiveValue(func(O color) -> S { "Color Code: #" + color }, S, dm_fieldLiveValue('color))),
          jSection("THE COLOR", singleColorPanel(toColor(color)))),
      jPreferredSizeToMinSize(theForm)),
      "New Color", rThread newColor);
  }
  
  void newColor enter {
    setField(color := randomColor());
    revisualize2();
  }
  
  void saveName enter {
  }
}