[PD-cvs] pd/src desire.c,1.1.2.217.2.65,1.1.2.217.2.66
Mathieu Bouchard
matju at users.sourceforge.net
Wed Dec 13 08:22:48 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26302
Modified Files:
Tag: desiredata
desire.c
Log Message:
first attempt at inlet tooltips
Index: desire.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v
retrieving revision 1.1.2.217.2.65
retrieving revision 1.1.2.217.2.66
diff -C2 -d -r1.1.2.217.2.65 -r1.1.2.217.2.66
*** desire.c 13 Dec 2006 06:33:33 -0000 1.1.2.217.2.65
--- desire.c 13 Dec 2006 07:22:44 -0000 1.1.2.217.2.66
***************
*** 1167,1183 ****
/* ------------------------ event handling ------------------------ */
- void canvas_inlettip(t_canvas* x,t_object* ob,int closest,int xpos,int ypos) {
- /*
- if (!sys_tooltips) return;
- if (ob->ob_pd->c_firstin) closest--;
- if (closest < 0)
- sys_vgui(".x%lx.c create text %d %d -anchor sw -text \"%s\" -tags y\n",
- (t_int)x, xpos, ypos,ob->ob_pd->c_firsttip->s_name);
- else
- sys_vgui(".x%lx.c create text %d %d -anchor sw -text \"%s\" -tags y\n",
- (t_int)x, xpos, ypos-4,inlet_tip(ob->inlet,closest));
- */
- }
-
/* set a canvas up as a graph-on-parent.
Set reasonable defaults for any missing paramters and redraw things if necessary. */
--- 1167,1170 ----
***************
*** 6248,6251 ****
--- 6235,6252 ----
}
+ static void canvas_object_get_tips(t_canvas *x, t_symbol *name) {
+ t_text *o;
+ if (sscanf(name->s_name,"x%lx",(long*)&o)<1) {pd_error(x,"gargamel was here"); return;}
+ char foo[666];
+ if (o->ob_pd->c_firstin) strcpy(foo,o->ob_pd->c_firsttip->s_name); else strcpy(foo,"");
+ int n = obj_ninlets(x);
+ char *foop = foo;
+ for (int i=!!o->ob_pd->c_firstin; i<n; i++) {
+ strcat(foo," ");
+ strcat(foo,inlet_tip(o->inlet,i));
+ }
+ sys_mgui(o,"tips=","S",foo);
+ }
+
static long canvas_children_count(t_canvas *x) {
long n=0;
***************
*** 7500,7503 ****
--- 7501,7505 ----
class_addmethod3(c,canvas_object_delete,"object_delete","s");
class_addmethod3(c,canvas_object_insert,"object_insert","*");
+ class_addmethod3(c,canvas_object_get_tips,"object_get_tips","s");
class_addmethod3(c,canvas_text_setto,"text_setto","*");
class_addmethod3(c,canvas_with_reply,"with_reply","*");
More information about the Pd-cvs
mailing list