From 30fb06bce3c76c7f37d8649aa33927f38ed194a9 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Fri, 28 Oct 2011 19:25:27 +0000
Subject: add open menu

svn path=/trunk/externals/loaders/tclpd/; revision=15671
---
 tcl_extras.h | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'tcl_extras.h')

diff --git a/tcl_extras.h b/tcl_extras.h
index 0f563a8..283816d 100644
--- a/tcl_extras.h
+++ b/tcl_extras.h
@@ -16,11 +16,15 @@
 
 typedef struct _t_tcl {
     t_object o;
+    int ninlets;
     t_glist* x_glist;
+
+    char *source_file;
+
+    // Tcl-interpreter related objects:
     Tcl_Obj* self;
     Tcl_Obj* classname;
     Tcl_Obj* dispatcher;
-    int ninlets;
 } t_tcl;
 
 typedef struct _t_proxyinlet {
@@ -65,6 +69,7 @@ void tclpd_free (t_tcl* self);
 void tclpd_anything(t_tcl* self, t_symbol* s, int ac, t_atom* at);
 void tclpd_inlet_anything(t_tcl *self, int inlet, t_symbol *s, int ac, t_atom *at);
 void tclpd_loadbang(t_tcl* x);
+void tclpd_open(t_tcl* x);
 t_proxyinlet* tclpd_add_proxyinlet(t_tcl* x);
 t_tcl* tclpd_get_instance(const char* objectSequentialId);
 t_pd* tclpd_get_instance_pd(const char* objectSequentialId);
-- 
cgit v1.2.1