From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@sympa.inria.fr Delivered-To: caml-list@sympa.inria.fr Received: from mail2-relais-roc.national.inria.fr (mail2-relais-roc.national.inria.fr [192.134.164.83]) by sympa.inria.fr (Postfix) with ESMTPS id 8CEF47EE4C for ; Fri, 4 Oct 2013 02:27:01 +0200 (CEST) Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of eliot@colba.net) identity=pra; client-ip=216.252.64.98; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="eliot@colba.net"; x-sender="eliot@colba.net"; x-conformance=sidf_compatible Received-SPF: Pass (mail2-smtp-roc.national.inria.fr: domain of eliot@colba.net designates 216.252.64.98 as permitted sender) identity=mailfrom; client-ip=216.252.64.98; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="eliot@colba.net"; x-sender="eliot@colba.net"; x-conformance=sidf_compatible; x-record-type="v=spf1" Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of postmaster@clement-iii.colba.net) identity=helo; client-ip=216.252.64.98; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="eliot@colba.net"; x-sender="postmaster@clement-iii.colba.net"; x-conformance=sidf_compatible X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AnkBAAQKTlLY/EBinGdsb2JhbABagz/CGYEdFg4BAQEBAQgUCTyCJQEBBScRQBELGAkWDwkDAgECAUUTCAEBiAK8dY8eOhaEDQOYAYEvlBA X-IPAS-Result: AnkBAAQKTlLY/EBinGdsb2JhbABagz/CGYEdFg4BAQEBAQgUCTyCJQEBBScRQBELGAkWDwkDAgECAUUTCAEBiAK8dY8eOhaEDQOYAYEvlBA X-IronPort-AV: E=Sophos;i="4.90,1029,1371074400"; d="scan'208";a="35499520" Received: from clement-iii.colba.net ([216.252.64.98]) by mail2-smtp-roc.national.inria.fr with ESMTP/TLS/DHE-RSA-AES256-SHA; 04 Oct 2013 02:26:58 +0200 Received: from tigershark.manage.enter-net ([172.30.2.6]) by clement-iii.manage.colba.net ([172.30.2.28:25]/clement-2.6-3.8.1) with ESMTP (version=TLSv1/SSLv3 cipher=AES256-SHA bits=256 verify=OK) id <13764-20131003202652-3662a01d@clement-iii.manage.colba.net> for ; Thu, 03 Oct 2013 20:26:52 -0400 Received: (qmail-ldap/ctrl 14725 invoked from network); 4 Oct 2013 00:31:51 -0000 Received: from 88-89-252-216-dsl.colba.net (HELO [192.168.0.100]) (eliot@[216.252.89.88]) (envelope-sender ) by mailhost1.enter-net.com (qmail-ldap-1.03) with SMTP for ; 4 Oct 2013 00:31:51 -0000 Message-ID: <524E0AAD.9000909@colba.net> Date: Thu, 03 Oct 2013 20:24:13 -0400 From: Eliot Handelman Reply-To: eliot@colba.net User-Agent: Mozilla/5.0 (X11; Linux i686; rv:24.0) Gecko/20100101 Thunderbird/24.0 MIME-Version: 1.0 To: caml-list@inria.fr References: In-Reply-To: Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Clement-Version: 2.6-3.8.1 X-Clement-ID: <13764-20131003202652-3662a01d> X-Clement-Virus-checker: ClamAV 0.97.8/17930/Thu Oct 3 00:39:19 2013 Subject: Re: [Caml-list] Adding ttk (tile tk) bindings to labltk 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