!7

module SendAllKeystrokes > DynPrintLog {
  S sendTo;
  bool enabled;

  start {
    dm_startKeyLogger();
    ownResource(vmBus_onMessage('keyDown, voidfunc(int keyCode, int modifiers) {
      if (!enabled || !possibleComputerID(sendTo)) ret;
      switch to q();
      print("Sending: " + s);
      dm_privateChat_evalOnOtherMachine(sendTo, "dm_setAIBarText(" + quote(s) + ");");
    }));
  }
  
  visualize {
    ret centerAndSouthWithMargins(super.visualize(),
      centerAndEast(withLabel("Send to:", dm_fieldTextField('sendTo)), dm_fieldCheckBox('enabled)));
  }
}

Began life as a copy of #1019658