From 591854adb9ab77e04766c9ed01b28be9fd9b02a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Mon, 1 Sep 2008 14:36:04 +0000
Subject: renamed [parentposition] to [canvasposition] (consistent naming
 scheme); added more helppatches

svn path=/trunk/externals/iem/iemguts/; revision=10272
---
 src/parentposition.c | 144 ---------------------------------------------------
 1 file changed, 144 deletions(-)
 delete mode 100644 src/parentposition.c

(limited to 'src/parentposition.c')

diff --git a/src/parentposition.c b/src/parentposition.c
deleted file mode 100644
index 086c902..0000000
--- a/src/parentposition.c
+++ /dev/null
@@ -1,144 +0,0 @@
-
-/******************************************************
- *
- * parentposition - implementation file
- *
- * copyleft (c) IOhannes m zmölnig
- *
- *   2007:forum::für::umläute:2007
- *
- *   institute of electronic music and acoustics (iem)
- *
- ******************************************************
- *
- * license: GNU General Public License v.2
- *
- ******************************************************/
-
-
-/* 
- * this object provides a way to get and set the position of the containing
- * abstraction within the parent-patch
- *
- * by default the position of the containing abstraction within the parent-patch is 
- * queried
- * you can give the "depth" as argument;
- * e.g. [parentposition 1] will set/get the position of the abstraction containing the
- * abstraction within its canvas.
- */
-
-#include "m_pd.h"
-
-#include "g_canvas.h"
-#include "m_imp.h"
-
-/* ------------------------- parentposition ---------------------------- */
-
-static t_class *parentposition_class;
-
-typedef struct _parentposition
-{
-  t_object  x_obj;
-  t_canvas  *x_canvas;
-
-  t_outlet*xoutlet, *youtlet;
-} t_parentposition;
-
-
-static void parentposition_bang(t_parentposition *x)
-{
-  t_canvas*c=x->x_canvas;
-  t_canvas*c0=0;
-
-  int x1=0, y1=0, width=0, height=0;
-  t_atom alist[2];
-
-  if(!c) return;
-
-
-  x1=c->gl_obj.te_xpix;
-  y1=c->gl_obj.te_ypix;
-
-
-  c0=c->gl_owner;
-  if(c0!=0) {
-    width= (int)(c0->gl_screenx2 - c0->gl_screenx1);
-    height=(int)(c0->gl_screeny2 - c0->gl_screeny1);
-  }
-
-  SETFLOAT(alist, (t_float)width);
-  SETFLOAT(alist+1, (t_float)height);
-  outlet_list(x->youtlet, 0, 2, alist);
-
-  //  outlet_float(x->youtlet, y1);
-  SETFLOAT(alist, (t_float)x1);
-  SETFLOAT(alist+1, (t_float)y1);
-  outlet_list(x->xoutlet, 0, 2, alist);
-}
-
-static void parentposition_list(t_parentposition *x, t_symbol*s, int argc, t_atom*argv)
-{
-  t_canvas*c=x->x_canvas;
-  t_canvas*c0=0;
-  int dx, dy;
-
-  if(!c) return;
-  c0=c->gl_owner;
-
-  if(argc==0){
-    parentposition_bang(x);
-    return;
-  }
-
-  if(argc!=2 || (A_FLOAT != (argv+0)->a_type) || (A_FLOAT != (argv+1)->a_type)) {
-    pd_error(x, "expected <x> <y> as new position");
-    return;
-  }
-  dx = atom_getint(argv+0) - c->gl_obj.te_xpix;
-  dy = atom_getint(argv+1) - c->gl_obj.te_ypix;
-
-  if(c0&&glist_isvisible(c0))  {
-    gobj_displace((t_gobj*)c, c0, dx, dy);
-    canvas_fixlinesfor(c0, (t_text*)c);
-  } else {
-    c->gl_obj.te_xpix+=dx;
-    c->gl_obj.te_ypix+=dy;
-  }
-}
-
-static void parentposition_free(t_parentposition *x)
-{
-  outlet_free(x->xoutlet);
-  outlet_free(x->youtlet);
-}
-
-static void *parentposition_new(t_floatarg f)
-{
-  t_parentposition *x = (t_parentposition *)pd_new(parentposition_class);
-  t_glist *glist=(t_glist *)canvas_getcurrent();
-  t_canvas *canvas=(t_canvas*)glist_getcanvas(glist);
-  int depth=(int)f;
-
-  if(depth<0)depth=0;
-  while(depth && canvas) {
-    canvas=canvas->gl_owner;
-    depth--;
-  }
-
-  x->x_canvas = canvas;
-
-  x->xoutlet=outlet_new(&x->x_obj, &s_list);
-  x->youtlet=outlet_new(&x->x_obj, &s_list);
-
-  return (x);
-}
-
-void parentposition_setup(void)
-{
-  parentposition_class = class_new(gensym("parentposition"), 
-                                   (t_newmethod)parentposition_new, (t_method)parentposition_free, 
-                                   sizeof(t_parentposition), 0,
-                                   A_DEFFLOAT, 0);
-  class_addbang(parentposition_class, (t_method)parentposition_bang);
-  class_addlist(parentposition_class, (t_method)parentposition_list);
-}
-- 
cgit v1.2.1