import labltklabltk

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/labltk@2531 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 29 insertions, 0 deletions

diff --git a/otherlibs/labltk/support/textvariable.mli b/otherlibs/labltk/support/textvariable.mli
new file mode 100644
index 0000000000..bcc6842a25
--- /dev/null
+++ b/otherlibs/labltk/support/textvariable.mli
@@ -0,0 +1,29 @@
+(* $Id$ *)
+
+(* Support for Tk -textvariable option *)
+open Widget
+open Protocol
+
+type textVariable
+      (* TextVariable is an abstract type *)
+
+val create : ?on: 'a widget -> unit -> textVariable
+      (* Allocation of a textVariable with lifetime associated to widget 
+	 if a widget is specified *)
+val set : textVariable -> to: string -> unit
+      (* Setting the val of a textVariable *)
+val get : textVariable -> string
+      (* Reading the val of a textVariable *)
+val name : textVariable -> string
+      (* Its tcl name *)
+
+val cCAMLtoTKtextVariable : textVariable -> tkArgs
+      (* Internal conversion function *)
+
+val handle : textVariable -> (unit -> unit) -> unit
+      (* Callbacks on variable modifications *)
+
+val coerce : string -> textVariable
+
+(*-*)
+val free : textVariable -> unit