aboutsummaryrefslogtreecommitdiff
path: root/src/iemlib2/parentdollarzero.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/iemlib2/parentdollarzero.c')
-rw-r--r--src/iemlib2/parentdollarzero.c53
1 files changed, 0 insertions, 53 deletions
diff --git a/src/iemlib2/parentdollarzero.c b/src/iemlib2/parentdollarzero.c
deleted file mode 100644
index a486ca3..0000000
--- a/src/iemlib2/parentdollarzero.c
+++ /dev/null
@@ -1,53 +0,0 @@
-/* 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 */
-
-
-#include "m_pd.h"
-#include "g_canvas.h"
-#include "iemlib.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)(0!=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"));
-}