From 906c8c819e6089dcdde1925e82bdb88a10c3a5b1 Mon Sep 17 00:00:00 2001 From: Thomas O Fredericks Date: Thu, 4 Oct 2007 16:31:59 +0000 Subject: deleted extra directories svn path=/trunk/externals/tof/; revision=8785 --- folderpanel/folderpanel-help.pd | 13 ------ folderpanel/folderpanel.c | 89 ----------------------------------------- folderpanel/makefile | 60 --------------------------- 3 files changed, 162 deletions(-) delete mode 100644 folderpanel/folderpanel-help.pd delete mode 100644 folderpanel/folderpanel.c delete mode 100755 folderpanel/makefile (limited to 'folderpanel') diff --git a/folderpanel/folderpanel-help.pd b/folderpanel/folderpanel-help.pd deleted file mode 100644 index 04e1427..0000000 --- a/folderpanel/folderpanel-help.pd +++ /dev/null @@ -1,13 +0,0 @@ -#N canvas 0 0 450 300 10; -#X obj 146 135 folderpanel; -#X obj 157 95 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 --1; -#X obj 228 202 folderpanel; -#X obj 142 170 print A; -#X obj 227 241 print B; -#X obj 244 162 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 --1 -1; -#X connect 0 0 3 0; -#X connect 1 0 0 0; -#X connect 2 0 4 0; -#X connect 5 0 2 0; diff --git a/folderpanel/folderpanel.c b/folderpanel/folderpanel.c deleted file mode 100644 index 51d735b..0000000 --- a/folderpanel/folderpanel.c +++ /dev/null @@ -1,89 +0,0 @@ -#include -#include -#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"); - - - -} - - diff --git a/folderpanel/makefile b/folderpanel/makefile deleted file mode 100755 index bab0766..0000000 --- a/folderpanel/makefile +++ /dev/null @@ -1,60 +0,0 @@ -current: - echo make pd_linux, pd_win, or pd_darwin - -clean: ; rm -f *.pd_linux *.o - -# ----------------------- WINDOWS ----------------------- - -pd_win: folderpanel.dll - -.SUFFIXES: .dll - -WINCFLAGS = -Wall -W -Wshadow -Wstrict-prototypes -DPD -DNT -W3 -WX -Werror -Wno-unused -mms-bitfields -Wno-parentheses -Wno-switch -O6 -funroll-loops -fomit-frame-pointer - -WINPDPATH = /home/tom/pd0.4 - -WININCLUDE = -I.. -I../include -I$(WINPDPATH)/src - -LDFLAGS = -shared - -.c.dll: - gcc -mms-bitfields $(WINCFLAGS) $(WININCLUDE) -o $*.o -c $*.c - gcc $(LDFLAGS) -o $*.dll $*.o $(WINPDPATH)/bin/pd.dll - strip --strip-unneeded $*.dll - rm -f $*.o - - -# ----------------------- LINUX i386 ----------------------- - -pd_linux: folderpanel.pd_linux - -.SUFFIXES: .pd_linux - -PDPATH = /home/tom/pd/cvs/pd - -LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer \ - -Wall -W -Wshadow -Wstrict-prototypes -Werror \ - -Wno-unused -Wno-parentheses -Wno-switch - -LINUXINCLUDE = -I$(PDPATH)/src - -.c.pd_linux: - cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c - ld -export_dynamic -shared -o $*.pd_linux $*.o -lc -lm - strip --strip-unneeded $*.pd_linux - rm $*.o - -# ----------------------- Mac OSX ----------------------- - -pd_darwin: folderpanel.pd_darwin - -.SUFFIXES: .pd_darwin - -DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \ - -Wno-unused -Wno-parentheses -Wno-switch - -.c.pd_darwin: - cc $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c - cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o - rm -f $*.o - -- cgit v1.2.1