Re: [Caml-list] Adding ttk (tile tk) bindings to labltk

[Eliot Handelman <eliot@colba.net>]

On 10/03/2013 05:45 AM, Tim Cuthbertson wrote:
>
> Does anyone know if it's possible to add ttk widgets to labltk? Is 
> there a library other than labltk that I should be using for ttk?

It is for me -- here's how I got  LabelFrame going:

open Tk
open Protocol

let tokenize strings =
   Arr.of_list (L1.map (fun s -> TkToken s) strings)

let tk_command string_list =
    Protocol.tkCommand (tokenize string_list)

let tk_eval string_list  =
   Protocol.tkEval (tokenize string_list)

let after ms =
   tk_command [ "after"; string_of_int ms]

module LabelFrame = struct
   let id = ref 0
   let create ?(text = "") top =
     let i = int !id in
       incr id;
       let lf_name = (Widget.name top) ^ ".labelframe" ^ i in
     tk_command
       ["ttk::labelframe"; lf_name;
        "-text"; text
       ];
     Protocol.cTKtoCAMLwidget lf_name
end

best,

-- eliot