other files missing in 20001129

[helm.git] / helm / DEVEL / lablgtk / lablgtk_20001129-0.1.0 / applications / radtest / common.mli

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/common.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/common.mli
new file mode 100644 (file)
index 0000000..7050f9f
--- /dev/null
+++ b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/common.mli
@@ -0,0 +1,27 @@
+(* $Id$ *)
+
+type range =
+  |  String
+  | Int
+  | Float of float * float
+  | Enum of string list
+  | Enum_string of string list
+  | Adjust
+  | CList_titles
+  | File
+
+class type prop =
+  object
+    method name : string       (* name of the property *)
+    method range : range       (* range of its values *)
+    method get : string                (* current value *)
+    method set : string -> unit        (* change value *)
+    method modified : bool     (* value differs from default *)
+    method code : string       (* encoded value for the ml code *)
+    method save_code : string   (* encoded value for saving *)
+  end
+
+class type tiwidget_base = object
+  method name : string
+  method proplist : (string * prop) list
+end