<!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<
html><
head>
<
title>liboop: oop_tcl_new
(), oop_tcl_delete
()<
/title>
<
link rel="stylesheet" type="text/css" href="style.css">
<
/head><
body>
<
h2>oop_tcl_new
(), oop_tcl_delete
()<
/h2>
<
pre>
#include <oop.h>
#include <oop-tcl.h>
oop_source *oop_tcl_new
();
void oop_tcl_delete
();
<
/pre>
<
h3>Description.<
/h3>
<
dl>
<
dt><
b>oop_tcl_new<
/b>
<
dd>Create a liboop source which uses the
<
a href="http://www.purl.org/tcl/home/man/tcl8.3.2/TclLib/DoOneEvent.htm">Tcl
event loop<
/a>
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.<
p>
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.<
p>
<
dt><
b>oop_tcl_delete<
/b>
<
dd>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.<
p>
<
/dl>
<
hr><
a href="ref.html">liboop reference<
/a><
/body><
/html>