56 lines
1.6 KiB
OCaml
56 lines
1.6 KiB
OCaml
##ifdef CAMLTK
|
|
|
|
let cCAMLtoTKcolor = function
|
|
NamedColor x -> TkToken x
|
|
| Black -> TkToken "black"
|
|
| White -> TkToken "white"
|
|
| Red -> TkToken "red"
|
|
| Green -> TkToken "green"
|
|
| Blue -> TkToken "blue"
|
|
| Yellow -> TkToken "yellow"
|
|
;;
|
|
|
|
let cTKtoCAMLcolor = function s -> NamedColor s
|
|
;;
|
|
|
|
let cCAMLtoTKcursor = function
|
|
XCursor s -> TkToken s
|
|
| XCursorFg (s,fg) ->
|
|
TkQuote(TkTokenList [TkToken s; cCAMLtoTKcolor fg])
|
|
| XCursortFgBg (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])
|
|
;;
|
|
|
|
##else
|
|
|
|
let cCAMLtoTKcolor : color -> tkArgs = function
|
|
| `Color x -> TkToken x
|
|
| `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
|
|
| `Xcursor s -> TkToken s
|
|
| `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])
|
|
;;
|
|
|
|
##endif
|