1999-11-30 06:59:39 -08:00
|
|
|
let cCAMLtoTKcolor : color -> tkArgs = function
|
2000-02-16 03:51:37 -08:00
|
|
|
| `Color x -> TkToken x
|
1999-11-30 06:59:39 -08:00
|
|
|
| `Black -> TkToken "black"
|
|
|
|
|
| `White -> TkToken "white"
|
|
|
|
|
| `Red -> TkToken "red"
|
|
|
|
|
| `Green -> TkToken "green"
|
|
|
|
|
| `Blue -> TkToken "blue"
|
|
|
|
|
| `Yellow -> TkToken "yellow"
|
|
|
|
|
|
|
|
|
|
let cTKtoCAMLcolor = function s -> `Color s
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let cCAMLtoTKcursor : cursor -> tkArgs = function
|
2000-02-16 03:51:37 -08:00
|
|
|
| `Xcursor s -> TkToken s
|
1999-11-30 06:59:39 -08:00
|
|
|
| `Xcursorfg (s,fg) ->
|
|
|
|
|
TkQuote(TkTokenList [TkToken s; cCAMLtoTKcolor fg])
|
|
|
|
|
| `Xcursorfgbg (s,fg,bg) ->
|
|
|
|
|
TkQuote(TkTokenList [TkToken s; cCAMLtoTKcolor fg; cCAMLtoTKcolor bg])
|
|
|
|
|
| `Cursorfilefg (s,fg) ->
|
|
|
|
|
TkQuote(TkTokenList [TkToken ("@"^s); cCAMLtoTKcolor fg])
|
|
|
|
|
| `Cursormaskfile (s,m,fg,bg) ->
|
|
|
|
|
TkQuote(TkTokenList [TkToken ("@"^s); TkToken m; cCAMLtoTKcolor fg; cCAMLtoTKcolor bg])
|
|
|
|
|
|
|
|
|
|
|
