[PD-cvs] externals/hcs window_name.c, NONE, 1.1 window_name-help.pd, NONE, 1.1
Hans-Christoph Steiner
eighthave at users.sourceforge.net
Thu Nov 8 04:24:18 CET 2007
Update of /cvsroot/pure-data/externals/hcs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13978
Added Files:
window_name.c window_name-help.pd
Log Message:
created object to get current window name so you can change it's tk options
--- NEW FILE: window_name.c ---
#include <stdio.h>
#include <string.h>
#include <m_pd.h>
#include <g_canvas.h>
#define DEBUG(x)
static t_class *window_name_class;
typedef struct _window_name
{
t_object x_obj;
t_symbol *windowname;
} t_window_name;
static void window_name_bang(t_window_name *x)
{
outlet_symbol(x->x_obj.ob_outlet,x->windowname);
}
static void *window_name_new(void)
{
t_window_name *x = (t_window_name *)pd_new(window_name_class);
char buf[MAXPDSTRING];
snprintf(buf, MAXPDSTRING, ".x%lx", (long unsigned int)canvas_getcurrent());
x->windowname = gensym(buf);
outlet_new(&x->x_obj, &s_symbol);
return(x);
}
void window_name_setup(void)
{
window_name_class = class_new(gensym("window_name"),
(t_newmethod)window_name_new, NULL,
sizeof(t_window_name), 0, 0);
class_addbang(window_name_class, (t_method)window_name_bang);
}
--- NEW FILE: window_name-help.pd ---
#N canvas 431 431 476 365 10;
#X obj 175 202 sys_gui;
#X symbolatom 290 96 0 0 0 0 - - -;
#X obj 274 27 loadbang;
#X obj 175 143 pack float symbol;
#X obj 110 83 hsl 128 15 0.1 1 1 1 empty empty window_alpha -2 -8 0
10 -204800 -1 -1 12700 1;
#X floatatom 107 118 5 0 0 0 - - -;
#X msg 175 172 wm attributes \$2 -alpha \$1;
#X text 43 256 for more options:;
#X obj 62 279 pddp/pddplink http://tcl.tk/man/tcl8.4/TkCmd/wm.htm;
#X text 164 229 alpha does not work with X11 :(;
#X obj 274 64 window_name;
#X connect 2 0 10 0;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 6 0 0 0;
#X connect 10 0 3 1;
#X connect 10 0 1 0;
More information about the Pd-cvs
mailing list