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

1 files changed, 16 insertions, 0 deletions

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