From 7afcd906f1e9e9e26609d168d1820b39b349c5a9 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 23 Nov 2007 22:44:03 +0000
Subject: - fixed bug that caused the iolets to multiply whenever resizing, I
 forgot to   add the ->s_name to a symbol used in the sys_vgui, so it was
 using the   pointer value.

- moved standard key/mouse binding functions to tkwidgets.[ch]

- minor code cleanups for legibility

svn path=/trunk/externals/tkwidgets/; revision=9026
---
 shared/tkwidgets.c | 54 +++++++++++++++++++++++++++++++++++++++++++-
 shared/tkwidgets.h |  8 ++++---
 text.c             | 66 ++++++++----------------------------------------------
 3 files changed, 67 insertions(+), 61 deletions(-)

diff --git a/shared/tkwidgets.c b/shared/tkwidgets.c
index 7b1dc4f..cf7418d 100644
--- a/shared/tkwidgets.c
+++ b/shared/tkwidgets.c
@@ -187,7 +187,59 @@ void tkwidgets_draw_iolets(t_object *x, t_glist *glist, t_symbol *canvas_id,
 
 void tkwidgets_erase_iolets(t_symbol* canvas_id, t_symbol* iolets_tag)
 {
-    sys_vgui("%s delete %s\n", canvas_id->s_name, iolets_tag); 
+    sys_vgui("%s delete %s\n", canvas_id->s_name, iolets_tag->s_name); 
+}
+
+
+/* -------------------- bind to keys and mouse events ----------------------- */
+
+void tkwidgets_bind_key_events(t_symbol *canvas_id, t_symbol *widget_id)
+{
+#ifdef __APPLE__
+    sys_vgui("bind %s <Mod1-Key> {pdtk_canvas_ctrlkey %s %%K 0}\n",
+             widget_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Mod1-Shift-Key> {pdtk_canvas_ctrlkey %s %%K 1}\n",
+             widget_id->s_name, canvas_id->s_name);
+#else
+    sys_vgui("bind %s <Control-Key> {pdtk_canvas_ctrlkey %s %%K 0}\n",
+             widget_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Control-Shift-Key> {pdtk_canvas_ctrlkey %s %%K 1}\n",
+             widget_id->s_name, canvas_id->s_name);
+#endif
+}
+
+void tkwidgets_bind_mouse_events(t_symbol *canvas_id, t_symbol *widget_id)
+{
+    /* mouse buttons */
+    sys_vgui("bind %s <Button> {pdtk_canvas_sendclick %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b 0}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <ButtonRelease> {pdtk_canvas_mouseup %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Shift-Button> {pdtk_canvas_click %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b 1}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Button-2> {pdtk_canvas_rightclick %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Button-3> {pdtk_canvas_rightclick %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Control-Button> {pdtk_canvas_rightclick %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
+    /* mouse motion */
+    sys_vgui("bind %s <Motion> {pdtk_canvas_motion %s \
+[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] 0}\n",
+             widget_id->s_name, canvas_id->s_name, 
+             canvas_id->s_name, canvas_id->s_name);
 }
 
 /* -------------------- gui elements for resizing --------------------------- */
diff --git a/shared/tkwidgets.h b/shared/tkwidgets.h
index 171b3c7..342162e 100644
--- a/shared/tkwidgets.h
+++ b/shared/tkwidgets.h
@@ -100,9 +100,11 @@ void tkwidgets_erase_iolets(t_symbol* canvas_id, t_symbol* iolets_tag);
 void tkwidgets_draw_handle(); // TODO draw resize handle when selected in editmode
 void tkwidgets_draw_resize_window(); // TODO draw the resize window while resizing
 
-
-
-
+/* bind this widget to Cmd/Ctrl keys and mouse events to support things like
+ * then standard keys and right-click to bring up the Properties/Open/Help
+ * menu when the Tk widgets have focus */
+void tkwidgets_bind_key_events(t_symbol *canvas_id, t_symbol *widget_id);
+void tkwidgets_bind_mouse_events(t_symbol *canvas_id, t_symbol *widget_id);
 
 
 
diff --git a/text.c b/text.c
index 5ec1d84..63000b0 100644
--- a/text.c
+++ b/text.c
@@ -30,8 +30,7 @@
 /* TODO: remove glist from _erase() args */
 /* TODO: window name "handle1376fc00" already exists in parent */
 /* TODO: figure out window vs. text width/height */
-/* TODO: move bind_* to tkwidgets.c */
-/* TODO: erase iolets on resize, they are leaving old ones behind */
+
 
 #define DEFAULT_COLOR           "grey70"
 
@@ -159,55 +158,6 @@ static void erase_scrollbar(t_textwidget *x)
     x->have_scrollbars = 0;
 }
 
-static void bind_standard_keys(t_textwidget *x)
-{
-#ifdef __APPLE__
-    sys_vgui("bind %s <Mod1-Key> {pdtk_canvas_ctrlkey %s %%K 0}\n",
-             x->widget_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <Mod1-Shift-Key> {pdtk_canvas_ctrlkey %s %%K 1}\n",
-             x->widget_id->s_name, x->canvas_id->s_name);
-#else
-    sys_vgui("bind %s <Control-Key> {pdtk_canvas_ctrlkey %s %%K 0}\n",
-             x->widget_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <Control-Shift-Key> {pdtk_canvas_ctrlkey %s %%K 1}\n",
-             x->widget_id->s_name, x->canvas_id->s_name);
-#endif
-}
-
-static void bind_button_events(t_textwidget *x)
-{
-    /* mouse buttons */
-    sys_vgui("bind %s <Button> {pdtk_canvas_sendclick %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b 0}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <ButtonRelease> {pdtk_canvas_mouseup %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <Shift-Button> {pdtk_canvas_click %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b 1}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <Button-2> {pdtk_canvas_rightclick %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <Button-3> {pdtk_canvas_rightclick %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-    sys_vgui("bind %s <Control-Button> {pdtk_canvas_rightclick %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] %%b}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-    /* mouse motion */
-    sys_vgui("bind %s <Motion> {pdtk_canvas_motion %s \
-[expr %%X - [winfo rootx %s]] [expr %%Y - [winfo rooty %s]] 0}\n",
-             x->widget_id->s_name, x->canvas_id->s_name, 
-             x->canvas_id->s_name, x->canvas_id->s_name);
-}
-
 static void create_widget(t_textwidget *x)
 {
     DEBUG(post("create_widget"););
@@ -225,8 +175,9 @@ static void create_widget(t_textwidget *x)
     sys_vgui("pack %s -side left -fill both -expand 1 \n", x->widget_id->s_name);
     sys_vgui("pack %s -side bottom -fill both -expand 1 \n", x->frame_id->s_name);
 
-    bind_standard_keys(x);
-    bind_button_events(x);
+    tkwidgets_bind_key_events(x->canvas_id, x->widget_id);
+    tkwidgets_bind_mouse_events(x->canvas_id, x->widget_id);
+    /* bind to KeyRelease events to send out right outlet one key at a time */
     sys_vgui("bind %s <KeyRelease> {+pd %s keyup %%N \\;} \n", 
              x->widget_id->s_name, x->receive_name->s_name);
 }
@@ -330,6 +281,7 @@ static void textwidget_activate(t_gobj *z, t_glist *glist, int state)
 /* no worky, this should draw MAC OS X style lines on the resize handle */
 /*         sys_vgui("%s create line %d %d %d %d -fill black -tags RESIZE_LINES\n",  */
 /*                  x->handle_id->s_name, handle_x2, handle_y1, handle_x1, handle_y2); */
+/* TODO split out the handle and the handle binding into common functions */
         sys_vgui("%s create window %d %d -anchor nw -width %d -height %d -window %s -tags RESIZE\n",
                  x->canvas_id->s_name, handle_x1, handle_y1,
                  TKW_HANDLE_WIDTH, TKW_HANDLE_HEIGHT,
@@ -645,19 +597,19 @@ static void textwidget_click_callback(t_textwidget *x, t_floatarg f)
 static void textwidget_resize_click_callback(t_textwidget *x, t_floatarg f)
 {
     t_canvas *canvas = (glist_isvisible(x->x_glist) ? x->x_canvas : 0);
-    int newstate = (int)f;
-    if (x->x_resizing && !newstate && canvas)
+    int button_state = (int)f;
+    if (x->x_resizing && !button_state && canvas)
     {
         tkwidgets_draw_iolets((t_object*)x, canvas,
                               x->canvas_id, x->iolets_tag, x->all_tag,
                               x->width, x->height, TOTAL_INLETS, TOTAL_OUTLETS);
         canvas_fixlinesfor(x->x_glist, (t_text *)x);  // 2nd inlet
     }
-    if (!x->x_resizing && newstate)
+    if (!x->x_resizing && button_state)
     {
         tkwidgets_erase_iolets(x->canvas_id, x->iolets_tag);
     }
-    x->x_resizing = newstate;
+    x->x_resizing = button_state;
 }
 
 static void textwidget_resize_motion_callback(t_textwidget *x, t_floatarg f1, t_floatarg f2)
-- 
cgit v1.2.1