diff options
| author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-06-02 18:26:48 +0000 |
|---|---|---|
| committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-06-02 18:26:48 +0000 |
| commit | 710c3dcfc0728166ac9477d153a24f5b80ab18c4 (patch) | |
| tree | d547d013ce5969b3f8ee092738a27306ade809e5 /src/iemlib2/parentdollarzero.c | |
| parent | 0c9b89b1018eb7760708ee5b080cd96846861328 (diff) | |
added files for release 1.16
svn path=/trunk/externals/iemlib/; revision=3103
Diffstat (limited to 'src/iemlib2/parentdollarzero.c')
| -rw-r--r-- | src/iemlib2/parentdollarzero.c | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/src/iemlib2/parentdollarzero.c b/src/iemlib2/parentdollarzero.c new file mode 100644 index 0000000..947d87e --- /dev/null +++ b/src/iemlib2/parentdollarzero.c @@ -0,0 +1,60 @@ +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+#include "m_pd.h"
+#include "g_canvas.h"
+#include "iemlib.h"
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <math.h>
+
+/* -------------- parentdollarzero --------------- */
+/* -- receives the $0 value of the parent canvas --*/
+
+static t_class *parentdollarzero_class;
+
+typedef struct _parentdollarzero
+{
+ t_object x_obj;
+ t_symbol *s_parent_unique;
+ unsigned int x_is_there_a_parent;
+} t_parentdollarzero;
+
+static void parentdollarzero_bang(t_parentdollarzero *x)
+{
+ if(x->x_is_there_a_parent)
+ outlet_symbol(x->x_obj.ob_outlet, x->s_parent_unique);
+}
+
+static void *parentdollarzero_new(void)
+{
+ t_parentdollarzero *x = (t_parentdollarzero *)pd_new(parentdollarzero_class);
+ t_glist *glist = (t_glist *)canvas_getcurrent();
+ t_canvas *this_canvas = glist_getcanvas(glist);
+
+ x->x_is_there_a_parent = (unsigned int)this_canvas->gl_owner;
+
+ if(x->x_is_there_a_parent)
+ x->s_parent_unique = canvas_realizedollar((t_canvas *)this_canvas->gl_owner, gensym("$0"));
+ else
+ x->s_parent_unique = gensym("");
+ outlet_new(&x->x_obj, &s_symbol);
+ return (x);
+}
+
+void parentdollarzero_setup(void)
+{
+ parentdollarzero_class = class_new(gensym("parentdollarzero"), (t_newmethod)parentdollarzero_new,
+ 0, sizeof(t_parentdollarzero), 0, 0);
+ class_addcreator((t_newmethod)parentdollarzero_new, gensym("parent$0"), 0);
+ class_addbang(parentdollarzero_class, (t_method)parentdollarzero_bang);
+ class_sethelpsymbol(parentdollarzero_class, gensym("iemhelp/help-parentdollarzero"));
+}
|