summaryrefslogtreecommitdiff
path: root/otherlibs/labltk/browser/jg_tk.ml
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/labltk/browser/jg_tk.ml')
-rw-r--r--otherlibs/labltk/browser/jg_tk.ml8
1 files changed, 8 insertions, 0 deletions
diff --git a/otherlibs/labltk/browser/jg_tk.ml b/otherlibs/labltk/browser/jg_tk.ml
new file mode 100644
index 0000000000..da5f4930cf
--- /dev/null
+++ b/otherlibs/labltk/browser/jg_tk.ml
@@ -0,0 +1,8 @@
+(* $Id$ *)
+
+open Tk
+
+let tpos x : textIndex = `Linechar (1,0), [`Char x]
+and tposend x : textIndex = `End, [`Char (-x)]
+let tstart : textIndex = `Linechar (1,0), []
+and tend : textIndex = `End, []