ported to slightly modified template Makefile

svn path=/trunk/externals/tkwidgets/; revision=14135

1 files changed, 287 insertions, 0 deletions

diff --git a/tkwidgets.c b/tkwidgets.c
new file mode 100644
index 0000000..1100bbe
--- /dev/null
+++ b/tkwidgets.c
@@ -0,0 +1,287 @@
+/* 
+    Copyright (C) 2007 Free Software Foundation
+    written by Hans-Christoph Steiner <hans@at.or.at>
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+    This is the shared library for the tkwidgets library for Pd.
+
+*/
+
+/* TODO apply store logic to query so query doesn't send blank options */
+
+#include "tkwidgets.h"
+#include <stdio.h>
+#include <string.h>
+
+#define DEBUG(x)
+//#define DEBUG(x) x
+
+/* -------------------- options handling ------------------------------------ */
+
+void tkwidgets_query_options(t_symbol *receive_name, t_symbol *widget_id, 
+                             int argc, char** argv)
+{
+    int i;
+    for(i = 0; i < argc; i++)
+        sys_vgui("pd [concat %s query_callback %s [%s cget -%s] \\;]\n",
+                 receive_name->s_name, argv[i], widget_id->s_name, argv[i]);
+}
+
+/* this queries the widget for each option listed in the tk_options struct,
+ * builts a list in Tcl-space, then send that list to the store_callback */
+void tkwidgets_store_options(t_symbol *receive_name, t_symbol *tcl_namespace,
+                             t_symbol *widget_id, int argc, char **argv)
+{
+    int i;
+    for(i = 0; i < argc; i++)
+    {
+        sys_vgui("set ::%s::tmp [%s cget -%s]\n",
+                 tcl_namespace->s_name, widget_id->s_name, argv[i]);
+        sys_vgui("if {[string length $::%s::tmp] > 0} {\n",
+                 tcl_namespace->s_name);
+        sys_vgui("lappend ::%s::list -%s; lappend ::%s::list $::%s::tmp}\n", 
+                 tcl_namespace->s_name, argv[i], 
+                 tcl_namespace->s_name, tcl_namespace->s_name);
+    }
+    sys_vgui("pd [concat %s store_callback $::%s::list \\;]\n",
+             receive_name->s_name, tcl_namespace->s_name);
+    sys_vgui("unset ::%s::list \n", tcl_namespace->s_name);  
+}
+
+void tkwidgets_restore_options(t_symbol *widget_id, t_binbuf *options_binbuf)
+{
+    int length;
+    char *options;
+    binbuf_gettext(options_binbuf, &options, &length);
+    options[length] = 0; //binbuf_gettext() doesn't put a null, so we do
+    sys_vgui("%s configure %s\n", widget_id->s_name, options);
+}
+
+/* output a list of available options for this widget */ 
+void tkwidgets_list_options(t_outlet *status_outlet, int argc, char** argv)
+{
+    int i;
+    t_binbuf *bb = binbuf_new();
+    for(i = 0; i < argc; ++i)
+    {
+        binbuf_addv(bb, "s", gensym(argv[i]));
+    }
+    outlet_anything(status_outlet, gensym("options"), 
+                    binbuf_getnatom(bb), binbuf_getvec(bb));
+}
+
+
+/* -------------------- generate names for various elements ----------------- */
+
+t_symbol* tkwidgets_gen_tcl_namespace(t_object* x, t_symbol* widget_name)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"%s%lx", widget_name->s_name, (long unsigned int)x);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_callback_name(t_symbol* tcl_namespace)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"#%s", tcl_namespace->s_name);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_canvas_id(t_canvas* canvas)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,".x%lx.c", (long unsigned int) canvas);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_frame_id(t_object* x, t_symbol* canvas_id)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"%s.frame%lx", canvas_id->s_name, (long unsigned int)x);
+    return gensym(buf);    
+}
+
+t_symbol* tkwidgets_gen_widget_id(t_object* x, t_symbol* parent_id)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"%s.widget%lx", parent_id->s_name, (long unsigned int)x);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_handle_id(t_object *x, t_symbol* canvas_id)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"%s.handle%lx", canvas_id->s_name, (long unsigned int)x);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_scrollbar_id(t_object *x, t_symbol* frame_id)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"%s.scrollbar%lx", frame_id->s_name, (long unsigned int)x);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_window_tag(t_object* x, t_symbol* canvas_id)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"%s.window%lx", canvas_id->s_name, (long unsigned int)x);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_iolets_tag(t_object* x)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"iolets%lx", (long unsigned int)x);
+    return gensym(buf);
+}
+
+t_symbol* tkwidgets_gen_all_tag(t_object *x)
+{
+    char buf[MAXPDSTRING];
+    sprintf(buf,"all%lx", (long unsigned int)x);
+    return gensym(buf);
+}
+
+/* -------------------- inlets/outlets -------------------------------------- */
+ 
+static int calculate_onset(int x_location, int width,
+                           int current_iolet, int total_iolets)
+{
+    DEBUG(post("calculate_onset"););
+    return(x_location + (width - IOWIDTH)                               \
+           * current_iolet / (total_iolets == 1 ? 1 : total_iolets - 1));
+}
+
+/* standard method for drawing inlets and outlets.  Currently, the number of
+ * inlets and outlets is set in tkwidgets.h since I think all of the
+ * objectclasses will have the same ones.  If that needs to change, then this
+ * function can use obj_ninlets() and obj_noutlets() */
+void tkwidgets_draw_iolets(t_object *x, t_glist *glist, t_symbol *canvas_id,
+                           t_symbol *iolets_tag, t_symbol *all_tag,
+                           int width, int height)
+{
+    int i, onset;
+    int x_location = text_xpix(x, glist);
+    int y_location = text_ypix(x, glist);
+
+/* TODO: make inlets draw on top of widget */
+    for (i = 0; i < TOTAL_INLETS; i++)  /* inlets */
+    {
+        onset = calculate_onset(x_location, width, i, TOTAL_INLETS);
+        sys_vgui("%s create rectangle %d %d %d %d -tags {%s %s}\n",
+                 canvas_id->s_name, onset, y_location - 2,
+                 onset + IOWIDTH, y_location,
+                 iolets_tag->s_name, all_tag->s_name);
+        sys_vgui("%s raise %s\n", canvas_id->s_name, iolets_tag->s_name);
+    }
+    for (i = 0; i < TOTAL_OUTLETS; i++) /* outlets */
+    {
+        onset = calculate_onset(x_location, width, i, TOTAL_OUTLETS);
+        sys_vgui("%s create rectangle %d %d %d %d -tags {%s %s}\n",
+                 canvas_id->s_name, onset, y_location + height,
+                 onset + IOWIDTH, y_location + height + 2,
+                 iolets_tag->s_name, all_tag->s_name);
+        sys_vgui("%s raise %s\n", canvas_id->s_name, iolets_tag->s_name);
+    }
+}
+
+void tkwidgets_erase_iolets(t_symbol* canvas_id, t_symbol* iolets_tag)
+{
+    sys_vgui("%s delete %s\n", canvas_id->s_name, iolets_tag->s_name); 
+}
+
+/* -------------------- scrollbars ------------------------------------------ */
+
+void tkwidgets_draw_y_scrollbar(t_symbol *widget_id, t_symbol *scrollbar_id)
+{
+    sys_vgui("scrollbar %s -orient vertical -command {%s yview}\n",
+             scrollbar_id->s_name, widget_id->s_name);
+    sys_vgui("pack %s -side right -fill y -before %s \n",
+             scrollbar_id->s_name, widget_id->s_name);
+    sys_vgui("%s configure -yscrollcommand {%s set}\n",
+             widget_id->s_name, scrollbar_id->s_name);
+}
+
+void tkwidgets_erase_y_scrollbar(t_symbol *widget_id, t_symbol *scrollbar_id)
+{
+    sys_vgui("%s configure -yscrollcommand {}\n", widget_id->s_name);
+    sys_vgui("pack forget %s \n", scrollbar_id->s_name);
+    sys_vgui("destroy %s \n", scrollbar_id->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> {::pd_bindings::sendkey %s %%K 0}\n",
+             widget_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Mod1-Shift-Key> {::pd_bindings::sendkey %s %%K 1}\n",
+             widget_id->s_name, canvas_id->s_name);
+#else
+    sys_vgui("bind %s <Control-Key> {::pd_bindings::sendkey %s %%K 0}\n",
+             widget_id->s_name, canvas_id->s_name);
+    sys_vgui("bind %s <Control-Shift-Key> {::pd_bindings::sendkey %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_mouse %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 --------------------------- */
+
+void tkwidgets_draw_handle()
+{
+    // TODO draw resize handle when selected in editmode
+}
+
+void tkwidgets_draw_resize_window()
+{
+    // TODO draw the resize window while resizing
+}