[PD-cvs] SF.net SVN: pure-data: [9936] trunk/externals/iem/iemguts/src/ parentposition.c
zmoelnig at users.sourceforge.net
zmoelnig at users.sourceforge.net
Wed May 28 14:18:32 CEST 2008
Revision: 9936
http://pure-data.svn.sourceforge.net/pure-data/?rev=9936&view=rev
Author: zmoelnig
Date: 2008-05-28 05:18:32 -0700 (Wed, 28 May 2008)
Log Message:
-----------
added moving!
Modified Paths:
--------------
trunk/externals/iem/iemguts/src/parentposition.c
Modified: trunk/externals/iem/iemguts/src/parentposition.c
===================================================================
--- trunk/externals/iem/iemguts/src/parentposition.c 2008-05-28 11:44:48 UTC (rev 9935)
+++ trunk/externals/iem/iemguts/src/parentposition.c 2008-05-28 12:18:32 UTC (rev 9936)
@@ -34,10 +34,12 @@
{
t_object x_obj;
t_canvas *x_canvas;
+ t_glist *x_glist;
t_outlet*xoutlet, *youtlet;
} t_parentposition;
+
static void parentposition_bang(t_parentposition *x)
{
t_canvas*c=x->x_canvas;
@@ -67,7 +69,36 @@
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)
@@ -83,6 +114,7 @@
t_canvas *canvas=(t_canvas*)glist_getcanvas(glist);
x->x_canvas = canvas;
+ x->x_glist = glist;
x->xoutlet=outlet_new(&x->x_obj, &s_list);
x->youtlet=outlet_new(&x->x_obj, &s_list);
@@ -95,4 +127,5 @@
parentposition_class = class_new(gensym("parentposition"), (t_newmethod)parentposition_new,
(t_method)parentposition_free, sizeof(t_parentposition), 0, 0);
class_addbang(parentposition_class, (t_method)parentposition_bang);
+ class_addlist(parentposition_class, (t_method)parentposition_list);
}
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list