blob: b0a88b269a2a2dfabf084171c1fcf935042274e2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
let cCAMLtoTKindex (* Don't put explicit typing *) = function
`Num x -> TkToken (string_of_int x)
| `Active -> TkToken "active"
| `End -> TkToken "end"
| `Last -> TkToken "last"
| `None -> TkToken "none"
| `Insert -> TkToken "insert"
| `Selfirst -> TkToken "sel.first"
| `Sellast -> TkToken "sel.last"
| `At n -> TkToken ("@"^string_of_int n)
| `Atxy (x,y) -> TkToken ("@"^string_of_int x^","^string_of_int y)
| `Anchor -> TkToken "anchor"
| `Pattern s -> TkToken s
| `Linechar (l,c) -> TkToken (string_of_int l^"."^string_of_int c)
| `Mark s -> TkToken s
| `Tagfirst t -> TkToken (t^".first")
| `Taglast t -> TkToken (t^".last")
| `Window (w : any widget) -> cCAMLtoTKwidget w
| `Image s -> TkToken s
let cCAMLtoTKcanvas_index = (cCAMLtoTKindex : canvas_index -> tkArgs)
let cCAMLtoTKentry_index = (cCAMLtoTKindex : entry_index -> tkArgs)
let cCAMLtoTKlistbox_index = (cCAMLtoTKindex : listbox_index -> tkArgs)
let cCAMLtoTKmenu_index = (cCAMLtoTKindex : menu_index -> tkArgs)
let cCAMLtoTKtext_index = (cCAMLtoTKindex : text_index -> tkArgs)
(* Assume returned values are only numerical and l.c *)
(* .menu index returns none if arg is none, but blast it *)
let cTKtoCAMLindex s =
try
let p = String.index elt:'.' s in
`Linechar (int_of_string (String.sub s pos:0 len:p),
int_of_string (String.sub s pos:(p+1)
len:(String.length s - p - 1)))
with
Not_found ->
try `Num (int_of_string s)
with _ -> raise (Invalid_argument ("TKtoCAMLindex: "^s))
let cTKtoCAMLtext_index s =
try
let p = String.index elt:'.' s in
`Linechar (int_of_string (String.sub s pos:0 len:p),
int_of_string (String.sub s pos:(p+1)
len:(String.length s - p - 1)))
with
Not_found ->
raise (Invalid_argument ("TKtoCAMLtext_index: "^s))
let cTKtoCAMLlistbox_index s =
try `Num (int_of_string s)
with _ -> raise (Invalid_argument ("TKtoCAMLlistbox_index: "^s))
(*
let cTKtoCAMLlinechar_index s =
try
let p = char_index '.' in:s in
(int_of_string (String.sub s pos:0 len:p),
int_of_string (String.sub s pos:(p+1)
len:(String.length s - p - 1)))
with
Not_found ->
raise (Invalid_argument ("TKtoCAMLlinechar_index: "^s))
let cTKtoCAMLnum_index s =
try int_of_string s
with _ -> raise (Invalid_argument ("TKtoCAMLnum_index: "^s))
*)
|