<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_698nb94rm7amp1rb5fv52o2jpk, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

module ShowRandomColor > DynSCP {
  RGB color;
  S myGuess, yourName;
  
  transient JTextField tfYourName;
  
  visualize2 {
    if (color == null) setField(color := randomColor());
    JComponent theForm = withRightMargin(makeForm2(
      "I call this color:", dm_fieldLabel('myGuess),
      "How do you call this color?", centerAndEastWithMargin(
        onEnter(tfYourName = dm_fieldTextField('yourName), rThread saveName),
        jbutton("Save", rThread saveName))));

    ret withRightAlignedButtons(
      centerAndSouthWithMargin(
        northAndCenterWithMargins(
          jRightAlignedLiveValueLabel(mapLiveValue(func(O color) -> S { "Color Code: #" + color }, S, dm_fieldLiveValue('color))),
          jSection("THE COLOR", singleColorPanel(toColor(color)))),
      jPreferredSizeToMinSizePlusY(5, theForm)),
      "New Color", rThread newColor);
  }
  
  void newColor enter {
    setField(color := randomColor());
    setField(myGuess := or((S) dm_callModule(dm_colorNamesModule(), 'getClosestColorName, color.getColor()), "no idea"));
    revisualize2();
    focus(tfYourName);
  }
  
  void saveName enter {
    dm_callModule(dm_colorNamesModule(), 'addColorName, color.getColor(), yourName, "");
    newColor();
  }
}