!7

// function: func(S) -> bool (true = handled)

// guiComponent may be null

srecord VoiceTarget(S moduleID, JComponent guiComponent, O function) {}

cmodule VoiceTargets > DynObjectTable<VoiceTarget> {

  start {

    dontPersist();

    dm_onTopInput_q(voidfunc(S s) {

      for (VoiceTarget vt : getVoiceTargets()) {

        if (!dm_moduleExists(vt.moduleID)) continue with remove(vt);

        temp dm_enter(vt.moduleID);

        if (isTrue(callF(vt.function, s))) ret;

      }

    });

  }

  // hold targets during reload

  O _getReloadData() { ret data; }

  void _setReloadData(L data) { main addAll(this.data, map(data, func(O o) -> VoiceTarget { shallowCloneToClass(VoiceTarget, o) })); }

  // API

  void addVoiceTarget(S moduleID, JComponent guiComponent, O function) enter {

    assertNotNull(+guiComponent);

    assertNempty(+moduleID);

    final VoiceTarget vt = new(moduleID, guiComponent, function);

    bindToComponent(guiComponent,

      r { add(vt) },

      r { remove(vt) });

  }

  L<VoiceTarget> getVoiceTargets() enter {

    ret cloneList(data);

  }

}