From 31f625c4e5eaf443872eece61b9a7156121669d9 Mon Sep 17 00:00:00 2001
From: Thomas O Fredericks <mrtof@users.sourceforge.net>
Date: Mon, 10 Sep 2007 22:25:41 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r8719, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/tof/; revision=8720
---
 folderpanel/folderpanel.c | 89 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 89 insertions(+)
 create mode 100644 folderpanel/folderpanel.c

(limited to 'folderpanel/folderpanel.c')

diff --git a/folderpanel/folderpanel.c b/folderpanel/folderpanel.c
new file mode 100644
index 0000000..51d735b
--- /dev/null
+++ b/folderpanel/folderpanel.c
@@ -0,0 +1,89 @@
+#include <stdio.h>
+#include <string.h>
+#include "m_pd.h"
+#include "g_canvas.h"
+
+// tk_chooseDirectory
+/*
+
+proc pdtk_folderpanel {target localdir} {
+    if {$localdir == ""} {
+    	set filename [tk_getSaveFile]
+    } else {
+    	set filename [tk_getSaveFile -initialdir $localdir]
+    }
+    if {$filename != ""} {
+        pd [concat $target callback [pdtk_enquote $filename] \;]
+    }
+}
+
+
+*/
+
+
+
+
+t_class *folderpanel_class;
+
+typedef struct _folderpanel
+{
+    t_object x_obj;
+    t_symbol *x_s;
+} t_folderpanel;
+
+
+static void folderpanel_symbol(t_folderpanel *x, t_symbol *s)
+{
+    char *path = (s && s->s_name) ? s->s_name : "\"\"";
+    sys_vgui("tof_folderpanel %s \n", x->x_s->s_name);
+}
+
+static void folderpanel_bang(t_folderpanel *x)
+{
+    folderpanel_symbol(x, &s_);
+}
+
+static void folderpanel_callback(t_folderpanel *x, t_symbol *s)
+{
+    outlet_symbol(x->x_obj.ob_outlet, s);
+}
+
+static void folderpanel_free(t_folderpanel *x)
+{
+    pd_unbind(&x->x_obj.ob_pd, x->x_s);
+}
+
+static void *folderpanel_new( void)
+{
+    char buf[50];
+    t_folderpanel *x = (t_folderpanel *)pd_new(folderpanel_class);
+    sprintf(buf, "d%lx", (t_int)x);
+    x->x_s = gensym(buf);
+    pd_bind(&x->x_obj.ob_pd, x->x_s);
+    outlet_new(&x->x_obj, &s_symbol);
+    return (x);
+}
+
+void folderpanel_setup(void)
+{
+    folderpanel_class = class_new(gensym("folderpanel"),
+        (t_newmethod)folderpanel_new, (t_method)folderpanel_free,
+        sizeof(t_folderpanel), 0, 0);
+    class_addbang(folderpanel_class, folderpanel_bang);
+    class_addsymbol(folderpanel_class, folderpanel_symbol);
+    class_addmethod(folderpanel_class, (t_method)folderpanel_callback,
+        gensym("callback"), A_SYMBOL, 0);
+
+   
+	sys_gui("proc tof_folderpanel {target} {\n");
+	sys_gui("  set path [tk_chooseDirectory] \n");
+	sys_gui(" if {$path != \"\"} {\n");
+	sys_gui("  pd [concat $target callback [pdtk_enquote $path]] \\;\n");
+	sys_gui(" }\n");
+	sys_gui("}\n");
+
+
+
+}
+
+
-- 
cgit v1.2.1