From f1769ec756494af5c619ea43c02633fb8c99cc28 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jun=20FURUSE=20/=20=E5=8F=A4=E7=80=AC=20=E6=B7=B3?=
 <jun.furuse@gmail.com>
Date: Wed, 14 Jan 2004 18:33:43 +0000
Subject: [PATCH] forgive me to introduce a tk8.3 stuff, for Syndex...

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6072 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 otherlibs/labltk/Widgets.src | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/otherlibs/labltk/Widgets.src b/otherlibs/labltk/Widgets.src
index e011bbe30..5a34ce8e7 100644
--- a/otherlibs/labltk/Widgets.src
+++ b/otherlibs/labltk/Widgets.src
@@ -186,6 +186,7 @@ type State {
    Normal ["normal"]
    Active ["active"]
    Disabled ["disabled"]
+   Hidden ["hidden"]                           % introduced in tk8.3, requested for Syndex
 }
 
 widget button {
@@ -374,9 +375,24 @@ subtype option(rectangle) {
    }
 
 % Text item configuration
+
+##ifndef CAMLTK
+% Only for Labltk. CanvasTextState is unified as State in Camltk
+type CanvasTextState { 
+   Normal ["normal"]
+   Disabled ["disabled"]
+   Hidden ["hidden"]
+}
+##endif
+
 subtype option(canvastext) {
    Anchor FillColor Font Justify
    Stipple Tags Text Width
+##ifdef CAMLTK
+   State                                       % introduced in tk8.3, requested for Syndex
+##else
+   CanvasTextState ["-state"; CanvasTextState] % introduced in tk8.3, requested for Syndex
+##endif
    }
 
 % Window item configuration