[PD-cvs] externals/hcs canvas_name.c,NONE,1.1
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Fri Nov 9 20:45:35 CET 2007
Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15173
Added Files:
canvas_name.c
Log Message:
added quick hack to get the Tk canvas name in Pd space
--- NEW FILE: canvas_name.c ---
#include <stdio.h>
#include <string.h>
#include <m_pd.h>
#include <g_canvas.h>
#define DEBUG(x)
static t_class *canvas_name_class;
typedef struct _canvas_name
{
t_object x_obj;
t_symbol *x_canvas_name;
} t_canvas_name;
static void canvas_name_bang(t_canvas_name *x)
{
outlet_symbol(x->x_obj.ob_outlet,x->x_canvas_name);
}
static void *canvas_name_new(void)
{
t_canvas_name *x = (t_canvas_name *)pd_new(canvas_name_class);
char buf[MAXPDSTRING];
snprintf(buf,MAXPDSTRING,".x%lx.c",(long unsigned int)canvas_getcurrent());
x->x_canvas_name = gensym(buf);
outlet_new(&x->x_obj, &s_symbol);
return(x);
}
void canvas_name_setup(void)
{
canvas_name_class = class_new(gensym("canvas_name"),
(t_newmethod)canvas_name_new, NULL,
sizeof(t_canvas_name), 0, 0);
class_addbang(canvas_name_class, (t_method)canvas_name_bang);
}
More information about the Pd-cvs
mailing list