## oop_tcl_new(), oop_tcl_delete()

    #include <oop.h>
    #include <oop-tcl.h>

    oop_source *oop_tcl_new();
    void oop_tcl_delete();

### Description.

oop_tcl_new
  Create a liboop source which uses the Tcl event loop for events. There is only one such event loop, so this function is global. You may call it multiple times; it will return the same event source, but keep count of the number of users.

  Events will be dispatched when the Tcl event loop is run, either directly via Tcl_DoOneEvent() or indirectly via Tk_MainLoop(). Unfortunately, there is no way to stop the Tcl event loop, so return values from event handlers are ignored.

oop_tcl_delete
  Delete the liboop source created with oop_tcl_new(). This decrements the count of users; when oop_tcl_delete has been called as many times as oop_tcl_new, the event source is removed.

liboop reference