From fe3fc457c00261cfdf2b533f61896cf2342aea08 Mon Sep 17 00:00:00 2001
From: Jonathan Wilkes <jon.w.wilkes@gmail.com>
Date: Tue, 19 Jan 2016 22:08:19 -0500
Subject: [PATCH] Death to tcl Part 1 (cont.): g_rtext.c
---
pd/src/g_rtext.c | 14 --------------
1 file changed, 14 deletions(-)
diff --git a/pd/src/g_rtext.c b/pd/src/g_rtext.c
index e5da92057..21fd00dcf 100644
--- a/pd/src/g_rtext.c
+++ b/pd/src/g_rtext.c
@@ -363,31 +363,17 @@ static void rtext_senditup(t_rtext *x, int action, int *widthp, int *heightp,
if (action == SEND_FIRST)
{
//fprintf(stderr,"send_first rtext=%lx t_text=%lx\n", x, x->x_text);
- //sys_vgui("pdtk_text_new .x%lx.c {%s %s text %s} %f %f {%.*s} %d %s\n",
- // canvas, x->x_tag, rtext_gettype(x)->s_name,
- // (glist_isselected(x->x_glist, ((t_gobj*)x->x_text)) ? "selected" : ""),
- // dispx + LMARGIN, dispy + TMARGIN,
- // outchars_b, tempbuf, sys_hostfontsize(font),
- // (glist_isselected(x->x_glist, ((t_gobj*)x->x_text)) ? "$pd_colors(selection)" : "$pd_colors(text)"));
gui_vmess("gui_text_new", "xssiiisi",
canvas, x->x_tag, rtext_gettype(x)->s_name,
glist_isselected(x->x_glist, ((t_gobj*)x->x_text)),
LMARGIN,
fontheight,
- //pixhigh - BMARGIN - TMARGIN - 1,
-// TMARGIN,
-// BMARGIN,
-// pixhigh,
-// dispx + LMARGIN,
-// dispy + TMARGIN,
tempbuf,
sys_hostfontsize(font));
}
else if (action == SEND_UPDATE)
{
- //sys_vgui("pdtk_text_set .x%lx.c %s {%.*s}\n",
- // canvas, x->x_tag, outchars_b, tempbuf);
gui_vmess("gui_text_set", "xss", canvas, x->x_tag, tempbuf);
// We add the check for T_MESSAGE below so that the box border
--
GitLab