X-Git-Url: https://svn.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83..f3caf3d551b4ba1cd98d55678f0fd8085522669f:/interpreter/types.ml

diff --git a/interpreter/types.ml b/interpreter/types.ml
index dd82e7c..585b0ed 100644
--- a/interpreter/types.ml
+++ b/interpreter/types.ml
@@ -120,6 +120,17 @@ type symbol = Add
 	    | Select3
 	    | Rdtable
 	    | Rwtable
+	    | Button
+	    | Checkbox
+	    | Vslider
+	    | Hslider
+	    | Vgroup
+	    | Hgroup
+	    | Tgroup
+	    | Hbargraph
+	    | Vbargraph
+	    | Nentry
+	    | Attach
 
 type faust_exp =
          Const of basic
@@ -242,7 +253,7 @@ class type process_type =
 
 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
+      method write : rate_type array -> data -> string * string -> string array
     end;;