Pd-cvs April 2008

pd-cvs@lists.iem.at

16 participants
130 discussions

SF.net SVN: pure-data: [9739] trunk/externals/gridflow/
by matju＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9739 http://pure-data.svn.sourceforge.net/pure-data/?rev=9739&view=rev Author: matju Date: 2008-04-28 11:10:15 -0700 (Mon, 28 Apr 2008) Log Message: ----------- this is an old gridflow, and there's already a svn repository at http://gridflow.ca/svn/trunk Removed Paths: ------------- trunk/externals/gridflow/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9738] trunk/packages/win32_inno/pd-inno.iss.in
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9738 http://pure-data.svn.sourceforge.net/pure-data/?rev=9738&view=rev Author: eighthave Date: 2008-04-28 10:36:35 -0700 (Mon, 28 Apr 2008) Log Message: ----------- switched name from 'Pure Data' to 'Pd-extended' for the sake of clarity and to make GNU/Linux and Mac OS X Modified Paths: -------------- trunk/packages/win32_inno/pd-inno.iss.in Modified: trunk/packages/win32_inno/pd-inno.iss.in =================================================================== --- trunk/packages/win32_inno/pd-inno.iss.in 2008-04-28 16:54:42 UTC (rev 9737) +++ trunk/packages/win32_inno/pd-inno.iss.in 2008-04-28 17:36:35 UTC (rev 9738) @@ -13,7 +13,7 @@ AppSupportURL=http://puredata.org/community/lists/ AppUpdatesURL=http://puredata.org/downloads/ DefaultDirName={pf}\pd -DefaultGroupName=Pure Data +DefaultGroupName=Pd-extended LicenseFile=..\..\externals\maxlib\LICENSE Compression=lzma/ultra @@ -32,11 +32,11 @@ Filename: {app}\pd.url; Section: InternetShortcut; Key: URL; String: http://puredata.org [Icons] -Name: {group}\Pure Data; Filename: {app}\bin\pd.exe; IconFilename: {app}\lib\pd.ico; IconIndex: 0; WorkingDir: {app} +Name: {group}\Pd-extended; Filename: {app}\bin\pd.exe; IconFilename: {app}\lib\pd.ico; IconIndex: 0; WorkingDir: {app} Name: {group}\puredata.org; Filename: {app}\pd.url -Name: {group}\Uninstall Pure Data; Filename: {uninstallexe} -Name: {userdesktop}\Pure Data; Filename: {app}\bin\pd.exe; Tasks: desktopicon; IconFilename: {app}\lib\pd.ico; IconIndex: 0; WorkingDir: {app} -Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Pure Data; Filename: {app}\bin\pd.exe; Tasks: quicklaunchicon; WorkingDir: {app}; IconFilename: {app}\lib\pd.ico; IconIndex: 0 +Name: {group}\Uninstall Pd-extended; Filename: {uninstallexe} +Name: {userdesktop}\Pd-extended; Filename: {app}\bin\pd.exe; Tasks: desktopicon; IconFilename: {app}\lib\pd.ico; IconIndex: 0; WorkingDir: {app} +Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Pd-extended; Filename: {app}\bin\pd.exe; Tasks: quicklaunchicon; WorkingDir: {app}; IconFilename: {app}\lib\pd.ico; IconIndex: 0 Name: {group}\Documentation\Pd Manual; Filename: {app}\doc\1.manual\index.htm Name: {group}\Documentation\Pd Drums Tutorial; Filename: {app}\doc\tutorials\footils\pddrums\pddrums.html Name: {group}\Documentation\Gem Manual; Filename: {app}\doc\gem\00.manual\index.html @@ -50,7 +50,7 @@ ;[Run] ; NOTE: The following entry contains an English phrase ("Launch"). You are free to translate it into another language if required. -;Filename: {app}\bin\pd.exe; Description: Launch Pure Data; Flags: nowait postinstall skipifsilent +;Filename: {app}\bin\pd.exe; Description: Launch Pd-extended; Flags: nowait postinstall skipifsilent [UninstallDelete] Type: files; Name: {app}\pd.url This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9737] branches/pd-extended/v0-40/pd/src
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9737 http://pure-data.svn.sourceforge.net/pure-data/?rev=9737&view=rev Author: eighthave Date: 2008-04-28 09:54:42 -0700 (Mon, 28 Apr 2008) Log Message: ----------- removed my kludge and replaced it with pdtk_enquote since it is used throughout and seems to work Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/g_canvas.c branches/pd-extended/v0-40/pd/src/m_glob.c branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/g_canvas.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-04-28 16:53:23 UTC (rev 9736) +++ branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-04-28 16:54:42 UTC (rev 9737) @@ -138,18 +138,6 @@ canvas_newdirectory = dirsym; } -void glob_setfilename_gimme(void *dummy, t_symbol *s, int argc, t_atom *argv) -{ - int bufsize; - char *buf; - t_binbuf *b = binbuf_new(); - canvas_newfilename = atom_getsymbolarg(0, argc, argv); - binbuf_add(b, argc - 1, argv + 1); - binbuf_gettext(b, &buf, &bufsize); - buf[bufsize] = 0; - canvas_newdirectory = gensym(buf); -} - t_canvas *canvas_getcurrent(void) { return ((t_canvas *)pd_findbyclass(&s__X, canvas_class)); Modified: branches/pd-extended/v0-40/pd/src/m_glob.c =================================================================== --- branches/pd-extended/v0-40/pd/src/m_glob.c 2008-04-28 16:53:23 UTC (rev 9736) +++ branches/pd-extended/v0-40/pd/src/m_glob.c 2008-04-28 16:54:42 UTC (rev 9737) @@ -11,7 +11,7 @@ /* These "glob" routines, which implement messages to Pd, are from all over. Some others are prototyped in m_imp.h as well. */ -void glob_setfilename_gimme(void *dummy, t_symbol *s, int argc, t_atom *argv); +void glob_setfilename(void *dummy, t_symbol *filesym, t_symbol *dirsym); void glob_verifyquit(void *dummy, t_floatarg f); void glob_dsp(void *dummy, t_symbol *s, int argc, t_atom *argv); void glob_meters(void *dummy, t_floatarg f); @@ -74,8 +74,8 @@ CLASS_DEFAULT, A_NULL); class_addmethod(glob_pdobject, (t_method)glob_initfromgui, gensym("init"), A_GIMME, 0); - class_addmethod(glob_pdobject, (t_method)glob_setfilename_gimme, - gensym("filename"), A_GIMME, 0); + class_addmethod(glob_pdobject, (t_method)glob_setfilename, + gensym("filename"), A_SYMBOL, A_SYMBOL, 0); class_addmethod(glob_pdobject, (t_method)glob_evalfile, gensym("open"), A_SYMBOL, A_SYMBOL, 0); class_addmethod(glob_pdobject, (t_method)glob_quit, gensym("quit"), 0); Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 16:53:23 UTC (rev 9736) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 16:54:42 UTC (rev 9737) @@ -421,7 +421,8 @@ proc menu_new {} { global untitled_number global untitled_directory - pd [concat pd filename Untitled-$untitled_number $untitled_directory \;] + pd [concat pd filename Untitled-$untitled_number \ + [pdtk_enquote $untitled_directory] \;] pd { #N canvas; #X pop 1; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9736] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9736 http://pure-data.svn.sourceforge.net/pure-data/?rev=9736&view=rev Author: eighthave Date: 2008-04-28 09:53:23 -0700 (Mon, 28 Apr 2008) Log Message: ----------- made file type definitions set per platform so that the formatting matches the native style Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 15:28:47 UTC (rev 9735) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 16:53:23 UTC (rev 9736) @@ -25,6 +25,11 @@ set cursor_editmode_nothing "hand2" set cursor_editmode_connect "circle" set cursor_editmode_disconnect "X_cursor" + # set file types that open/save recognize + set filetypes { + {{Pd Files} {.pd} } + {{Max Text Files} {.pat} } + } } elseif { $tcl_platform(os) == "Darwin" } { set pd_nt 2 # fonts @@ -37,6 +42,11 @@ set cursor_editmode_nothing "hand2" set cursor_editmode_connect "circle" set cursor_editmode_disconnect "X_cursor" + # set file types that open/save recognize + set filetypes { + {{Pd Files} {.pd} } + {{Max Text Files (.pat)} {.pat} } + } } else { set pd_nt 0 # fonts @@ -49,6 +59,11 @@ set cursor_editmode_nothing "hand2" set cursor_editmode_connect "circle" set cursor_editmode_disconnect "X_cursor" + # set file types that open/save recognize + set filetypes { + {{pd files} {.pd} } + {{max text files} {.pat} } + } } # start Pd-extended font hacks ----------------------------- @@ -79,13 +94,6 @@ } # end hidden files/folder hack ------------------ -# set file types that open/save recognize -set filetypes { - {{Pd Files (.pd)} {.pd} } - {{Max Text Files (.pat)} {.pat} } - {{All Files} * } -} - # Tearoff is set to true by default: set pd_tearoff 1 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9735] trunk/packages/patches/ cords_and_properties_set_dirty-0.41.4.patch
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9735 http://pure-data.svn.sourceforge.net/pure-data/?rev=9735&view=rev Author: eighthave Date: 2008-04-28 08:28:47 -0700 (Mon, 28 Apr 2008) Log Message: ----------- Sets canvas dirty flag for all canvas-related properties panels (i.e. NOT the audio/midi/path/startup pref panels). This should work for adding and deleting cords, and properties panels for: canvas, arrays, iemguis, and atom boxes. The only downside is that with the properties panels, there is no checking whether there has actually be any change. I just sets the dirty flag if the user clicks on OK or Apply. Added Paths: ----------- trunk/packages/patches/cords_and_properties_set_dirty-0.41.4.patch Added: trunk/packages/patches/cords_and_properties_set_dirty-0.41.4.patch =================================================================== --- trunk/packages/patches/cords_and_properties_set_dirty-0.41.4.patch (rev 0) +++ trunk/packages/patches/cords_and_properties_set_dirty-0.41.4.patch 2008-04-28 15:28:47 UTC (rev 9735) @@ -0,0 +1,76 @@ +Index: g_editor.c +=================================================================== +--- g_editor.c (revision 9725) ++++ g_editor.c (working copy) +@@ -1343,6 +1343,7 @@ + glist_getcanvas(x), + lx1, ly1, lx2, ly2, + (obj_issignaloutlet(ob1, closest1) ? 2 : 1), oc); ++ canvas_dirty(x, 1); + canvas_setundo(x, canvas_undo_connect, + canvas_undo_set_connect(x, + canvas_getindex(x, &ob1->ob_g), closest1, +@@ -1990,6 +1991,7 @@ + x->gl_editor->e_selectline_outno, + x->gl_editor->e_selectline_index2, + x->gl_editor->e_selectline_inno); ++ canvas_dirty(x, 1); + canvas_setundo(x, canvas_undo_disconnect, + canvas_undo_set_disconnect(x, + x->gl_editor->e_selectline_index1, +Index: g_editor.c +=================================================================== +--- g_editor.c (revision 9733) ++++ g_editor.c (working copy) +@@ -963,6 +963,7 @@ + } + /* LATER avoid doing 2 redraws here (possibly one inside setgraph) */ + canvas_setgraph(x, graphme, 0); ++ canvas_dirty(x, 1); + if (x->gl_havewindow) + canvas_redraw(x); + else if (glist_isvisible(x->gl_owner)) +Index: g_all_guis.c +=================================================================== +--- g_all_guis.c (revision 9721) ++++ g_all_guis.c (working copy) +@@ -633,6 +633,7 @@ + fs = 4; + iemgui->x_fontsize = fs; + iemgui_verify_snd_ne_rcv(iemgui); ++ canvas_dirty(iemgui->x_glist, 1); + return(oldsndrcvable); + } + +Index: g_text.c +=================================================================== +--- g_text.c (revision 9721) ++++ g_text.c (working copy) +@@ -760,6 +760,7 @@ + x->a_symto = symto; + x->a_expanded_to = canvas_realizedollar(x->a_glist, x->a_symto); + gobj_vis(&x->a_text.te_g, x->a_glist, 1); ++ canvas_dirty(x->a_glist, 1); + + /* glist_retext(x->a_glist, &x->a_text); */ + } +Index: g_array.c +=================================================================== +--- g_array.c (revision 9721) ++++ g_array.c (working copy) +@@ -385,6 +385,7 @@ + gl = glist_addglist(parent, &s_, 0, 1, + (size > 1 ? size-1 : size), -1, 0, 0, 0, 0); + a = graph_array(gl, sharptodollar(name), &s_float, size, flags); ++ canvas_dirty(parent, 1); + } + + /* this is called from the properties dialog window for an existing array */ +@@ -453,6 +454,7 @@ + + garray_setsaveit(x, (saveit != 0)); + garray_redraw(x); ++ canvas_dirty(x->x_glist, 1); + } + } + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9734] branches/pd-extended/v0-40/pd/src
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9734 http://pure-data.svn.sourceforge.net/pure-data/?rev=9734&view=rev Author: eighthave Date: 2008-04-28 08:26:52 -0700 (Mon, 28 Apr 2008) Log Message: ----------- Sets dirty flag for all canvas-related properties panels (i.e. NOT the audio/midi/path/startup pref panels). This should work for properties panels: canvas, arrays, iemguis, and atom boxes. The only downside is that with the properties panels, there is no checking whether there has actually be any change. I just sets the dirty flag if the user clicks on OK or Apply. Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/g_all_guis.c branches/pd-extended/v0-40/pd/src/g_array.c branches/pd-extended/v0-40/pd/src/g_editor.c branches/pd-extended/v0-40/pd/src/g_text.c Modified: branches/pd-extended/v0-40/pd/src/g_all_guis.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_all_guis.c 2008-04-28 14:24:49 UTC (rev 9733) +++ branches/pd-extended/v0-40/pd/src/g_all_guis.c 2008-04-28 15:26:52 UTC (rev 9734) @@ -633,6 +633,7 @@ fs = 4; iemgui->x_fontsize = fs; iemgui_verify_snd_ne_rcv(iemgui); + canvas_dirty(iemgui->x_glist, 1); return(oldsndrcvable); } Modified: branches/pd-extended/v0-40/pd/src/g_array.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_array.c 2008-04-28 14:24:49 UTC (rev 9733) +++ branches/pd-extended/v0-40/pd/src/g_array.c 2008-04-28 15:26:52 UTC (rev 9734) @@ -385,6 +385,7 @@ gl = glist_addglist(parent, &s_, 0, 1, (size > 1 ? size-1 : size), -1, 0, 0, 0, 0); a = graph_array(gl, sharptodollar(name), &s_float, size, flags); + canvas_dirty(parent, 1); } /* this is called from the properties dialog window for an existing array */ @@ -453,6 +454,7 @@ garray_setsaveit(x, (saveit != 0)); garray_redraw(x); + canvas_dirty(x->x_glist, 1); } } Modified: branches/pd-extended/v0-40/pd/src/g_editor.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_editor.c 2008-04-28 14:24:49 UTC (rev 9733) +++ branches/pd-extended/v0-40/pd/src/g_editor.c 2008-04-28 15:26:52 UTC (rev 9734) @@ -963,6 +963,7 @@ } /* LATER avoid doing 2 redraws here (possibly one inside setgraph) */ canvas_setgraph(x, graphme, 0); + canvas_dirty(x, 1); if (x->gl_havewindow) canvas_redraw(x); else if (glist_isvisible(x->gl_owner)) Modified: branches/pd-extended/v0-40/pd/src/g_text.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_text.c 2008-04-28 14:24:49 UTC (rev 9733) +++ branches/pd-extended/v0-40/pd/src/g_text.c 2008-04-28 15:26:52 UTC (rev 9734) @@ -760,6 +760,7 @@ x->a_symto = symto; x->a_expanded_to = canvas_realizedollar(x->a_glist, x->a_symto); gobj_vis(&x->a_text.te_g, x->a_glist, 1); + canvas_dirty(x->a_glist, 1); /* glist_retext(x->a_glist, &x->a_text); */ } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9733] branches/pd-extended/v0-40/pd/src/g_editor.c
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9733 http://pure-data.svn.sourceforge.net/pure-data/?rev=9733&view=rev Author: eighthave Date: 2008-04-28 07:24:49 -0700 (Mon, 28 Apr 2008) Log Message: ----------- set canvas as dirty whenever a connection is made or deleted Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/g_editor.c Modified: branches/pd-extended/v0-40/pd/src/g_editor.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_editor.c 2008-04-28 05:22:28 UTC (rev 9732) +++ branches/pd-extended/v0-40/pd/src/g_editor.c 2008-04-28 14:24:49 UTC (rev 9733) @@ -1347,6 +1347,7 @@ (issignal ? "$signal_cord" : "$msg_cord"), (issignal ? 2 : 1), oc); + canvas_dirty(x, 1); canvas_setundo(x, canvas_undo_connect, canvas_undo_set_connect(x, canvas_getindex(x, &ob1->ob_g), closest1, @@ -1988,6 +1989,7 @@ x->gl_editor->e_selectline_outno, x->gl_editor->e_selectline_index2, x->gl_editor->e_selectline_inno); + canvas_dirty(x, 1); canvas_setundo(x, canvas_undo_disconnect, canvas_undo_set_disconnect(x, x->gl_editor->e_selectline_index1, This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9732] trunk/externals/ext13/doc/ftos-help.pd
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9732 http://pure-data.svn.sourceforge.net/pure-data/?rev=9732&view=rev Author: eighthave Date: 2008-04-27 22:22:28 -0700 (Sun, 27 Apr 2008) Log Message: ----------- created quick help file to fix bug report #1830071 Added Paths: ----------- trunk/externals/ext13/doc/ftos-help.pd Added: trunk/externals/ext13/doc/ftos-help.pd =================================================================== --- trunk/externals/ext13/doc/ftos-help.pd (rev 0) +++ trunk/externals/ext13/doc/ftos-help.pd 2008-04-28 05:22:28 UTC (rev 9732) @@ -0,0 +1,12 @@ +#N canvas 161 221 450 300 10; +#X obj 174 130 ftos; +#X msg 180 68 bang; +#X floatatom 106 63 5 0 0 0 - - -; +#X symbolatom 174 173 10 0 0 0 - - -; +#X text 118 30 convert a float to a symbol; +#X obj 160 203 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 0 0; +#X connect 3 0 5 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9731] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9731 http://pure-data.svn.sourceforge.net/pure-data/?rev=9731&view=rev Author: eighthave Date: 2008-04-27 21:51:17 -0700 (Sun, 27 Apr 2008) Log Message: ----------- fixed bug #1939380, there was a typo in "right_ptr", but also switched pointers to make Pd use the default pointer normally, then a special pointer when something is clickable. Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 04:48:44 UTC (rev 9730) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 04:51:17 UTC (rev 9731) @@ -18,8 +18,8 @@ set defaultFontFamily {Bitstream Vera Sans Mono} font create menuFont -family Tahoma -size 11 # mouse cursors - set cursor_runmode_nothing "rigth_ptr" - set cursor_runmode_clickme "arrow" + set cursor_runmode_nothing "arrow" + set cursor_runmode_clickme "right_ptr" set cursor_runmode_thicken "sb_v_double_arrow" set cursor_runmode_addpoint "plus" set cursor_editmode_nothing "hand2" This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data: [9730] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9730 http://pure-data.svn.sourceforge.net/pure-data/?rev=9730&view=rev Author: eighthave Date: 2008-04-27 21:48:44 -0700 (Sun, 27 Apr 2008) Log Message: ----------- - first attempt at fixing bug #1927425, and cleaned up filetypes a bit in the process. no luck, so I posted on tcl-mac - set default directory for new patches to be the home folder instead of pwd - fixed bug in previous pdtk_pd_ctrlkey addition for Cmd-M minimizing Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 04:14:00 UTC (rev 9729) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 04:48:44 UTC (rev 9730) @@ -79,6 +79,13 @@ } # end hidden files/folder hack ------------------ +# set file types that open/save recognize +set filetypes { + {{Pd Files (.pd)} {.pd} } + {{Max Text Files (.pat)} {.pat} } + {{All Files} * } +} + # Tearoff is set to true by default: set pd_tearoff 1 @@ -319,8 +326,11 @@ ############### set up global variables ################################ set untitled_number 1 -set untitled_directory [pwd] -set saveas_client doggy +if {$pd_nt == 1} { + set untitled_directory [regsub -all \\\\ $::env(USERPROFILE) /] +} else { + set untitled_directory $::env(HOME) +} set pd_opendir $untitled_directory set pd_undoaction no set pd_redoaction no @@ -414,10 +424,9 @@ ################## the "Open" menu command ######################### proc menu_open {} { - global pd_opendir + global pd_opendir filetypes set filename [tk_getOpenFile -defaultextension .pd \ - -filetypes { {{pd files} {.pd}} {{max files} {.pat}}} \ - -initialdir $pd_opendir] + -filetypes $filetypes -initialdir $pd_opendir] if {$filename != ""} {open_file $filename} } @@ -2005,10 +2014,9 @@ ############ pdtk_canvas_saveas -- run a saveas dialog ############## proc pdtk_canvas_saveas {name initfile initdir} { - global pd_nt - set filename [tk_getSaveFile -initialfile $initfile \ - -initialdir $initdir -defaultextension .pd \ - -filetypes { {{pd files} {.pd}} {{max files} {.pat}} }] + global pd_nt filetypes + set filename [tk_getSaveFile -initialfile $initfile -initialdir $initdir \ + -defaultextension .pd -filetypes $filetypes] if {$filename != ""} { # yes, we need the extent even if we're on a mac. @@ -3636,6 +3644,7 @@ ############### event binding procedures for Pd window ################ proc pdtk_pd_ctrlkey {name key shift} { + global pd_nt # puts stderr [concat key $key shift $shift] # .dummy itemconfig goo -text [concat ---> control-key event $key]; if {$key == "n" || $key == "N"} {menu_new} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs April 2008