Skip to content
Snippets Groups Projects
Commit 32c4f562 authored by Jonathan Wilkes's avatar Jonathan Wilkes
Browse files

Death to tcl Part 1 (cont.): x_gui.c

parent 8e26a637
No related branches found
No related tags found
No related merge requests found
...@@ -153,7 +153,6 @@ void gfxstub_deleteforkey(void *key) ...@@ -153,7 +153,6 @@ void gfxstub_deleteforkey(void *key)
{ {
if (y->x_key == key) if (y->x_key == key)
{ {
//sys_vgui("destroy .gfxstub%lx\n", y);
char tagbuf[MAXPDSTRING]; char tagbuf[MAXPDSTRING];
sprintf(tagbuf, ".gfxstub%lx", (long unsigned int)y); sprintf(tagbuf, ".gfxstub%lx", (long unsigned int)y);
gui_vmess("gui_remove_gfxstub", "s", gui_vmess("gui_remove_gfxstub", "s",
...@@ -256,7 +255,6 @@ static void *openpanel_new( void) ...@@ -256,7 +255,6 @@ static void *openpanel_new( void)
static void openpanel_symbol(t_openpanel *x, t_symbol *s) static void openpanel_symbol(t_openpanel *x, t_symbol *s)
{ {
char *path = (s && s->s_name) ? s->s_name : "$pd_opendir"; char *path = (s && s->s_name) ? s->s_name : "$pd_opendir";
//sys_vgui("pdtk_openpanel {%s} {%s}\n", x->x_s->s_name, path);
gui_vmess("gui_openpanel", "xss", gui_vmess("gui_openpanel", "xss",
x->x_canvas, x->x_canvas,
x->x_s->s_name, x->x_s->s_name,
...@@ -316,7 +314,6 @@ static void *savepanel_new( void) ...@@ -316,7 +314,6 @@ static void *savepanel_new( void)
static void savepanel_symbol(t_savepanel *x, t_symbol *s) static void savepanel_symbol(t_savepanel *x, t_symbol *s)
{ {
char *path = (s && s->s_name) ? s->s_name : "$pd_opendir"; char *path = (s && s->s_name) ? s->s_name : "$pd_opendir";
sys_vgui("pdtk_savepanel {%s} {%s}\n", x->x_s->s_name, path);
gui_vmess("gui_savepanel", "xss", gui_vmess("gui_savepanel", "xss",
x->x_canvas, x->x_canvas,
x->x_s->s_name, x->x_s->s_name,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment