!7

cmodule SendModuleToMachine {
  S moduleID, computerID;
  
  visualize {
    ret withRightMargin(makeForm2(
      "Module ID:", dm_fieldTextField('moduleID),
      "Send to:", dm_onlineComputerSelectorComboBox(dm_fieldLiveValue('computerID)),
      "", jbutton("Send!", rThread doIt)));
  }
  
  void doIt enter {
    if (nempty(moduleID) && nempty(computerID)) {
      if (dm_mod(moduleID) != null)
        dm_copyModuleToOtherMachine(moduleID, computerID);
      else if (startsWith(moduleID, "#"))
        dm_evalOnOtherMachine(computerID, "dm_addDynamicModuleDialog2(" + quote(moduleID) + ");");
    }
  }
}