From cb92a0ef25163f016ecb1e940a27fe1677bc970f Mon Sep 17 00:00:00 2001
From: Albert Graef <aggraef@gmail.com>
Date: Sat, 17 Dec 2016 01:38:06 +0100
Subject: [PATCH] Get rid of legacy tcl commands invoked when dragging the
label of an iemgui.
---
pd/src/g_all_guis.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/pd/src/g_all_guis.c b/pd/src/g_all_guis.c
index e97014b93..bcf345b9b 100644
--- a/pd/src/g_all_guis.c
+++ b/pd/src/g_all_guis.c
@@ -844,10 +844,10 @@ void scalehandle_click_label(t_scalehandle *h) {
t_iemgui *x = (t_iemgui *)h->h_master;
if (glist_isvisible(x->x_glist))
{
- sys_vgui("lower %s\n", h->h_pathname);
+ //sys_vgui("lower %s\n", h->h_pathname);
t_scalehandle *othersh = x->x_handle;
- sys_vgui("lower .x%lx.h%lx\n",
- (t_int)glist_getcanvas(x->x_glist), (t_int)othersh);
+ //sys_vgui("lower .x%lx.h%lx\n",
+ // (t_int)glist_getcanvas(x->x_glist), (t_int)othersh);
}
h->h_dragx = 0;
h->h_dragy = 0;
--
GitLab