From 22c1e6dbe7cf74936e5ca29eadeff81312ccc506 Mon Sep 17 00:00:00 2001
From: buisson
Date: Fri, 29 Apr 2005 09:35:43 +0000
Subject: Initial revision

---
 examples/tkivyprobe.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 examples/tkivyprobe.ml

(limited to 'examples/tkivyprobe.ml')

diff --git a/examples/tkivyprobe.ml b/examples/tkivyprobe.ml
new file mode 100644
index 0000000..67ee3aa
--- /dev/null
+++ b/examples/tkivyprobe.ml
@@ -0,0 +1,10 @@
+let _ =
+  Ivyprobe.init ();
+  let top = Tk.openTk () in
+  try
+    ignore (TkIvy.set_up_channel Unix.stdin Ivy.stop (fun _ -> Ivyprobe.read stdin));
+    TkIvy.main ()
+  with
+    End_of_file -> Ivy.stop ()
+
+
-- 
cgit v1.1