From 395274265ff73f92aaa00eaf1c5a37c0acd4e767 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 25 Oct 2011 04:14:33 +0000 Subject: updated to support 0.43 (renamed pdtk_enquote to enquote_path and added after idle/after 100 to launch panels that were hanging) svn path=/trunk/externals/tof/; revision=15651 --- src/folderpanel.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/folderpanel.c b/src/folderpanel.c index 1de13b3..e8184c0 100644 --- a/src/folderpanel.c +++ b/src/folderpanel.c @@ -13,7 +13,7 @@ proc pdtk_folderpanel {target localdir} { set filename [tk_getSaveFile -initialdir $localdir] } if {$filename != ""} { - pd [concat $target callback [pdtk_enquote $filename] \;] + pd [concat $target callback [enquote_path $filename] \;] } } @@ -35,7 +35,7 @@ typedef struct _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); + sys_vgui("after idle [list after 100 tof_folderpanel %s]\n", x->x_s->s_name); } static void folderpanel_bang(t_folderpanel *x) @@ -78,7 +78,7 @@ void folderpanel_setup(void) sys_gui("proc tof_folderpanel {target} {\n"); sys_gui(" set path [tk_chooseDirectory] \n"); sys_gui(" if {$path != \"\"} {\n"); - sys_gui(" pdsend \"$target callback [pdtk_enquote $path]\"\n"); + sys_gui(" pdsend \"$target callback [enquote_path $path]\"\n"); sys_gui(" }\n"); sys_gui("}\n"); -- cgit v1.2.1