Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine

[Faustine.git] / interpreter / types.ml

diff --git a/interpreter/types.ml b/interpreter/types.ml
index dd82e7c..da486f2 100644 (file)
--- a/interpreter/types.ml
+++ b/interpreter/types.ml
@@ -120,6 +120,17 @@ type symbol = Add
            | Select3
            | Rdtable
            | Rwtable
            | Select3
            | Rdtable
            | Rwtable

+           | Button
+           | Checkbox
+           | Vslider
+           | Hslider
+           | Vgroup
+           | Hgroup
+           | Tgroup
+           | Hbargraph
+           | Vbargraph
+           | Nentry
+           | Attach

 
 type faust_exp =
          Const of basic
 
 type faust_exp =
          Const of basic


@@ -242,7 +253,7 @@ class type process_type =
 
 class type io_type = 
     object
 
 class type io_type = 
     object

-      method set : string -> string -> unit
+      method set : string -> string -> string -> unit

       method read : string array -> beam_type
       method write : rate_type array -> data -> string array
     end;;
       method read : string array -> beam_type
       method write : rate_type array -> data -> string array
     end;;