!7

sclass GMailSendForm extends DynModule {
  SS data;
  transient JComponent form;
  transient JTextField tfSender, tfTo, tfSubject;
  transient JTextArea tfText;
  
  bool warnOnDelete() { true; }
  
  visualize {
    tfSender = jtextfield(completeGMailAddress(gmailDefaultUser()));
    tfTo = jtextfield("billg@microsoft.com");
    tfSubject = jtextfield("Hello");
    tfText = jwrappedtextarea(trim(
[[
Hello Bill.
  
-Sent from my JavaX computer
]]));

    form = setFormData(data, makeForm(
      "From:", tfSender,
      "To:", tfTo,
      "Subject:", tfSubject,
      "Text:", tfText,
      "", jbutton("Send mail!", r-thread-messagebox {
        infoBox("Sending...");
        quickGMail(getTextTrim(tfSender), getTextTrim(tfTo),
          getTextTrim(tfSubject), getText(tfText));
        infoBox("Sent!");
      })));
    awtCalcEvery(form, 10.0, r saveData);
    ret form;
  }

  void saveData {
    temp enter();
    if (form != null)
      setField(data := autoGetDataFromForm(form));
  }
  
  void unvisualize {
    saveData();
    super.unvisualize();
  }
}

Began life as a copy of #1014736