diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-11-16 10:22:42 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 1999-11-16 10:22:42 +0000 |
| commit | 9696d300803ab6fcb5ab2884cd65fe05696e7025 (patch) | |
| tree | 82e406c747a89199f5d8a74b161da42aa00fdeb9 /otherlibs/labltk/builtin/builtin_index.ml | |
| download | ocaml-labltk.tar.gz | |
import labltklabltk
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/labltk@2531 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/builtin/builtin_index.ml')
| -rw-r--r-- | otherlibs/labltk/builtin/builtin_index.ml | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/otherlibs/labltk/builtin/builtin_index.ml b/otherlibs/labltk/builtin/builtin_index.ml new file mode 100644 index 0000000000..917ac410a3 --- /dev/null +++ b/otherlibs/labltk/builtin/builtin_index.ml @@ -0,0 +1,56 @@ +(* Various indexes + canvas + entry + listbox +*) + +type canvas_index = [ + `Num(int) + | `End + | `Insert + | `Selfirst + | `Sellast + | `Atxy(int * int) +] + +type entry_index = [ + `Num(int) + | `End + | `Insert + | `Selfirst + | `Sellast + | `At(int) + | `Anchor +] + +type listbox_index = [ + `Num(int) + | `Active + | `Anchor + | `End + | `Atxy(int * int) +] + +type menu_index = [ + `Num(int) + | `Active + | `End + | `Last + | `None + | `At(int) + | `Pattern(string) +] + +type text_index = [ + `Linechar(int * int) + | `Atxy(int * int) + | `End + | `Mark(string) + | `Tagfirst(string) + | `Taglast(string) + | `Window(any widget) + | `Image(string) +] + +type linechar_index = int * int +type num_index = int |