Pd-cvs April 2008

pd-cvs@lists.iem.at

16 participants
130 discussions

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

28 Apr '08

Revision: 9729 http://pure-data.svn.sourceforge.net/pure-data/?rev=9729&view=rev Author: eighthave Date: 2008-04-27 21:14:00 -0700 (Sun, 27 Apr 2008) Log Message: ----------- wrote a function to switch the [pd filename] callback message to use a A_GIMME instead of two symbols, thereby correctly receiving any directory names with spaces in it. Added Paths: ----------- trunk/packages/patches/allow_spaces_in_new_directory-0.41.4.patch Added: trunk/packages/patches/allow_spaces_in_new_directory-0.41.4.patch =================================================================== --- trunk/packages/patches/allow_spaces_in_new_directory-0.41.4.patch (rev 0) +++ trunk/packages/patches/allow_spaces_in_new_directory-0.41.4.patch 2008-04-28 04:14:00 UTC (rev 9729) @@ -0,0 +1,47 @@ +Index: m_glob.c +=================================================================== +--- m_glob.c (revision 9721) ++++ m_glob.c (working copy) +@@ -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(void *dummy, t_symbol *name, t_symbol *dir); ++void glob_setfilename_gimme(void *dummy, t_symbol *s, int argc, t_atom *argv); + 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, gensym("filename"), +- A_SYMBOL, A_SYMBOL, 0); ++ class_addmethod(glob_pdobject, (t_method)glob_setfilename_gimme, ++ gensym("filename"), A_GIMME, 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); +Index: g_canvas.c +=================================================================== +--- g_canvas.c (revision 9726) ++++ g_canvas.c (working copy) +@@ -138,6 +138,18 @@ + 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)); 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: [9728] branches/pd-extended/v0-40/pd/src
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9728 http://pure-data.svn.sourceforge.net/pure-data/?rev=9728&view=rev Author: eighthave Date: 2008-04-27 21:13:52 -0700 (Sun, 27 Apr 2008) Log Message: ----------- Wrote a function to switch the [pd filename] callback message to use a A_GIMME instead of two symbols, thereby correctly receiving any directory names with spaces in it. Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/g_canvas.c branches/pd-extended/v0-40/pd/src/m_glob.c Modified: branches/pd-extended/v0-40/pd/src/g_canvas.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-04-28 00:20:13 UTC (rev 9727) +++ branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-04-28 04:13:52 UTC (rev 9728) @@ -138,6 +138,18 @@ 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 00:20:13 UTC (rev 9727) +++ branches/pd-extended/v0-40/pd/src/m_glob.c 2008-04-28 04:13:52 UTC (rev 9728) @@ -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(void *dummy, t_symbol *name, t_symbol *dir); +void glob_setfilename_gimme(void *dummy, t_symbol *s, int argc, t_atom *argv); 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, gensym("filename"), - A_SYMBOL, A_SYMBOL, 0); + class_addmethod(glob_pdobject, (t_method)glob_setfilename_gimme, + gensym("filename"), A_GIMME, 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); 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: [9727] trunk/packages/patches/ proxy_icon_and_modified_state-0.41.4.patch
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9727 http://pure-data.svn.sourceforge.net/pure-data/?rev=9727&view=rev Author: eighthave Date: 2008-04-27 17:20:13 -0700 (Sun, 27 Apr 2008) Log Message: ----------- Luke Iannini's proxy_icon_and_modified_state.patch fixed to eliminate crash (caused by using %f in sys_vgui for an int value). Also, made the title bar fully Mac OS X-style. Added Paths: ----------- trunk/packages/patches/proxy_icon_and_modified_state-0.41.4.patch Added: trunk/packages/patches/proxy_icon_and_modified_state-0.41.4.patch =================================================================== --- trunk/packages/patches/proxy_icon_and_modified_state-0.41.4.patch (rev 0) +++ trunk/packages/patches/proxy_icon_and_modified_state-0.41.4.patch 2008-04-28 00:20:13 UTC (rev 9727) @@ -0,0 +1,20 @@ +Index: g_canvas.c +=================================================================== +--- g_canvas.c (revision 9721) ++++ g_canvas.c (working copy) +@@ -598,9 +598,15 @@ + strcat(namebuf, ")"); + } + else namebuf[0] = 0; ++#ifdef __APPLE__ ++ sys_vgui("wm attributes .x%lx -modified %d -titlepath {%s/%s}\n", ++ x, x->gl_dirty, canvas_getdir(x)->s_name, x->gl_name->s_name); ++ sys_vgui("wm title .x%lx {%s%s}\n", x, x->gl_name->s_name, namebuf); ++#else + sys_vgui("wm title .x%lx {%s%c%s - %s}\n", + x, x->gl_name->s_name, (x->gl_dirty? '*' : ' '), namebuf, + canvas_getdir(x)->s_name); ++#endif + } + + void canvas_dirty(t_canvas *x, t_int n) 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: [9726] branches/pd-extended/v0-40/pd/src/g_canvas.c
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9726 http://pure-data.svn.sourceforge.net/pure-data/?rev=9726&view=rev Author: eighthave Date: 2008-04-27 17:14:39 -0700 (Sun, 27 Apr 2008) Log Message: ----------- fixed up Luke's proxy_icon_and_modified_state.patch to eliminate crash (caused by using %f in sys_vgui for an int value). Also, made the title bar fully Mac OS X-style. Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/g_canvas.c Modified: branches/pd-extended/v0-40/pd/src/g_canvas.c =================================================================== --- branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-04-28 00:09:51 UTC (rev 9725) +++ branches/pd-extended/v0-40/pd/src/g_canvas.c 2008-04-28 00:14:39 UTC (rev 9726) @@ -598,9 +598,15 @@ strcat(namebuf, ")"); } else namebuf[0] = 0; +#ifdef __APPLE__ + sys_vgui("wm attributes .x%lx -modified %d -titlepath {%s/%s}\n", + x, x->gl_dirty, canvas_getdir(x)->s_name, x->gl_name->s_name); + sys_vgui("wm title .x%lx {%s%s}\n", x, x->gl_name->s_name, namebuf); +#else sys_vgui("wm title .x%lx {%s%c%s - %s}\n", x, x->gl_name->s_name, (x->gl_dirty? '*' : ' '), namebuf, canvas_getdir(x)->s_name); +#endif } void canvas_dirty(t_canvas *x, t_int n) 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: [9725] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 28 Apr '08

28 Apr '08

Revision: 9725 http://pure-data.svn.sourceforge.net/pure-data/?rev=9725&view=rev Author: eighthave Date: 2008-04-27 17:09:51 -0700 (Sun, 27 Apr 2008) Log Message: ----------- removed debug message 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-25 19:41:16 UTC (rev 9724) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 00:09:51 UTC (rev 9725) @@ -476,7 +476,6 @@ proc menu_raise_console {} { set pd_window . set top_window [lindex [wm stackorder $pd_window] end] - puts stderr "if $pd_window eq $top_window" if {$pd_window eq $top_window} { lower $pd_window } else { This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended debian-stable-powerpc 2008-04-26 06.28.17
by pd＠debian-stable-powerpc.idmi.poly.edu 26 Apr '08

26 Apr '08

/home/pd/auto-build/pd-extended/externals/build/src/../../bsaylor/svf~.c: In function ‘svf_setstate_HP’: /home/pd/auto-build/pd-extended/externals/build/src/../../bsaylor/svf~.c:85: internal compiler error: Segmentation fault Please submit a full bug report, with preprocessed source if appropriate. See <URL:http://gcc.gnu.org/bugs.html> for instructions. For Debian GNU/Linux specific bug reporting instructions, see <URL:file:///usr/share/doc/gcc-4.1/README.Bugs>. The bug is not reproducible, so it is likely a hardware or OS problem. make[2]: *** [/home/pd/auto-build/pd-extended/externals/build/src/svf~.o] Error 1 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 ls: /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory upload specs linux_make . deb Uploading ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync: connection unexpectedly closed (4 bytes received so far) [receiver] rsync error: error in rsync protocol data stream (code 12) at io.c(453) [receiver=2.6.9]

1 0

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

25 Apr '08

Revision: 9724 http://pure-data.svn.sourceforge.net/pure-data/?rev=9724&view=rev Author: eighthave Date: 2008-04-25 12:41:16 -0700 (Fri, 25 Apr 2008) Log Message: ----------- - implemented hack to make Cmd-M minimize on Mac OS X - removed Edit->"Raise Pd Window" and merged that into Window->"Pd Window" - tried to add missing standard elements to the Pd window's "Window" menu, but they didn't show up. I am guessing that Tk treats the Window menu as something special, and it autmoatically handles the list of windows, but somehow that is turned off... 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-25 11:25:23 UTC (rev 9723) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-25 19:41:16 UTC (rev 9724) @@ -448,7 +448,7 @@ pack .sendpanel.entry -side bottom -fill both -ipadx 100 .sendpanel.entry select from 0 .sendpanel.entry select adjust end - if{$pd_nt == 2} { + if {$pd_nt == 2} { bind .sendpanel <Mod1-Key-w> {destroy .sendpanel} } else { bind .sendpanel <Control-Key-w> {destroy .sendpanel} @@ -460,11 +460,23 @@ focus .sendpanel.entry } + +################## menu commands for Mac OS X ######################### + +proc menu_minimize {window} { + if {$window eq ""} { #Pd Window + wm iconify [winfo toplevel .printout] + } else { + wm iconify [winfo toplevel $window] + } +} + ################## menu commands for console ######################### proc menu_raise_console {} { - set pd_window [winfo toplevel .printout] + set pd_window . set top_window [lindex [wm stackorder $pd_window] end] + puts stderr "if $pd_window eq $top_window" if {$pd_window eq $top_window} { lower $pd_window } else { @@ -481,9 +493,6 @@ proc menu_quit {} {pd {pd verifyquit;}} -######### the "Pd" menu command, which puts the Pd window on top ######## -proc menu_pop_pd {} {raise .} - ######### the "audio" menu command ############### proc menu_audio {flag} {pd [concat pd dsp $flag \;]} @@ -543,10 +552,10 @@ set top_window [lindex [wm stackorder .] end] set window_title [wm title $top_window] set helpfile [regsub {(.*)-help.*} $window_title {\1}] - if {[string compare $helpfile $window_title]} { + if {$helpfile eq $window_title} { + menu_openhtml "http://wiki.puredata.info/" + } else { menu_openhtml "http://wiki.puredata.info/en/$helpfile" - } else { - menu_openhtml "http://wiki.puredata.info/" } } @@ -734,15 +743,18 @@ .mbar.file add command -label Open -command {menu_open} \ -accelerator [accel_munge "Ctrl+o"] .mbar.file add separator -.mbar.file add command -label Message -command {menu_send} \ - -accelerator [accel_munge "Ctrl+m"] -# On MacOS X, these are in the standard HIG locations -# i.e. the Preferences menu under "Pd" if {$pd_nt != 2} { + .mbar.file add command -label Message -command {menu_send} \ + -accelerator [accel_munge "Ctrl+m"] + # On MacOS X, follow the standard Human Interface Guidelines + # i.e. the Preferences menu under "Pd" .mbar.file add command -label Path... \ -command {pd pd start-path-dialog \;} .mbar.file add command -label Startup... \ -command {pd pd start-startup-dialog \;} +} else { # Mac OS X + # Cmd-m is minimize window on Mac OS X, so remove binding + .mbar.file add command -label Message -command {menu_send} } .mbar.file add separator .mbar.file add command -label Close -accelerator [accel_munge "Ctrl+w"] \ @@ -787,10 +799,8 @@ } .mbar.edit add command -label Font -state disabled .mbar.edit add command -label {Tidy Up} -state disabled -.mbar.edit add command -label "Raise Pd window" -accelerator [accel_munge "Ctrl+r"]\ - -command menu_raise_console -.mbar.edit add command -label "Toggle console" -accelerator [accel_munge "Shift+Ctrl+r"]\ - -command menu_toggle_console +.mbar.edit add command -label "Toggle console" \ + -accelerator [accel_munge "Shift+Ctrl+r"] -command menu_toggle_console .mbar.edit add command -label "Clear console" \ -accelerator [accel_munge "Shift+Ctrl+l"] -command menu_clear_console .mbar.edit add separator @@ -813,6 +823,16 @@ -state disabled .mbar.find add command -label {Find last error} -command {menu_finderror} +#################### the "Window" menu for the Pd window ############## + +# this does not show up on the Window menu, probably because it is a special +# menu that is supposed to be automatically managed by Tcl/Tk +#.mbar.find add command -label {parent window} -state disabled +#.mbar.windows add command -label {Pd window} -command menu_raise_console \ +# -accelerator [accel_munge "Ctrl+r"] +#.mbar.windows add separator + + ########### functions for menu functions on document windows ######## proc menu_save {name} { @@ -1151,18 +1171,20 @@ -accelerator [accel_munge "Ctrl+o"] $name.m.file add separator - $name.m.file add command -label Message -command {menu_send} \ - -accelerator [accel_munge "Ctrl+m"] # arrange menus according to Apple HIG - # these are now part of Preferences... if {$pd_nt != 2 } { + $name.m.file add command -label Message -command {menu_send} \ + -accelerator [accel_munge "Ctrl+m"] + # these are now part of Preferences... on Mac OS X $name.m.file add command -label Path... \ -command {pd pd start-path-dialog \;} - $name.m.file add command -label Startup... \ -command {pd pd start-startup-dialog \;} - } + } else { + # Cmd-m is minimize window on Mac OS X + $name.m.file add command -label Message -command {menu_send} + } $name.m.file add separator $name.m.file add command -label Close \ @@ -1230,10 +1252,6 @@ $name.m.edit add command -label {Tidy Up} \ -command [concat menu_tidyup $name] - $name.m.edit add command -label "Raise Pd window" \ - -accelerator [accel_munge "Ctrl+r"] \ - -command [concat menu_raise_console] - $name.m.edit add command -label "Toggle console" \ -accelerator [accel_munge "Shift+Ctrl+r"] \ -command [concat .controls.switches.console invoke] @@ -1371,7 +1389,8 @@ $name.m.windows add command -label {parent window}\ -command [concat menu_windowparent $name] - $name.m.windows add command -label {Pd window} -command menu_pop_pd + $name.m.windows add command -label {Pd window} -command menu_raise_console \ + -accelerator [accel_munge "Ctrl+r"] $name.m.windows add separator # the audio menu @@ -1928,7 +1947,6 @@ if {$key == "b" || $key == "B"} {menu_doc_browser} if {$key == "n" || $key == "N"} {menu_new} if {$key == "o" || $key == "O"} {menu_open} - if {$key == "m" || $key == "M"} {menu_send} if {$key == "w" || $key == "W"} {menu_close $topname} if {$key == "p" || $key == "P"} {menu_print $topname} if {$key == "r" || $key == "R"} {menu_raise_console} @@ -1937,10 +1955,14 @@ if {$key == "v" || $key == "V"} {menu_paste $topname} if {$key == "d" || $key == "D"} {menu_duplicate $topname} if {$key == "a" || $key == "A"} {menu_selectall $topname} - if {$pd_nt == 2} { # by default, Cmd-T opens the font panel on Mac OS X + if {$pd_nt == 2} { + # by default, Cmd-T opens the font panel on Mac OS X if {$key == "t" || $key == "T"} {menu_font $topname} + if {$key == "m" || $key == "M"} {menu_minimize $topname} } else { if {$key == "t" || $key == "T"} {menu_texteditor $topname} + # minimize window on Mac OS X + if {$key == "m" || $key == "M"} {menu_send} } if {$key == "f" || $key == "F"} {menu_findobject $topname} if {$key == "g" || $key == "G"} {menu_findagain $topname} @@ -3619,9 +3641,14 @@ # .dummy itemconfig goo -text [concat ---> control-key event $key]; if {$key == "n" || $key == "N"} {menu_new} if {$key == "o" || $key == "O"} {menu_open} - if {$key == "m" || $key == "M"} {menu_send} + if {$pd_nt != 2} { + # Cmd-m is minimize window on Mac OS X + if {$key == "m" || $key == "M"} {menu_send} + } else { + if {$key == "m" || $key == "M"} {menu_minimize} + } if {$key == "q" || $key == "Q"} { - if {$shift == 1} {menu_really_quit} else {menu_quit} + if {$shift == 1} {menu_really_quit} else {menu_quit} } if {$key == "slash"} {menu_audio 1} if {$key == "period"} {menu_audio 0} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended ubuntu-hardy-i386 2008-04-25 07.46.03
by pd＠ubuntu-dapper-i386.idmi.poly.edu 25 Apr '08

25 Apr '08

/home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:321: error: ‘t_partconv’ has no member named ‘sumbufs’ /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:321: error: ‘t_partconv’ has no member named ‘nsumbufs’ /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:322: error: ‘t_partconv’ has no member named ‘sumbufs’ /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:322: error: ‘t_partconv’ has no member named ‘sumbufs’ /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:326: error: ‘t_partconv’ has no member named ‘curcall’ /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:327: error: ‘t_partconv’ has no member named ‘curpart’ /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c: In function ‘partconv_new’: /home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.c:343: warning: unused parameter ‘s’ make[2]: *** [/home/pd/auto-build/pd-extended/externals/bsaylor/partconv~.o] Error 1 make[2]: Leaving directory `/home/pd/auto-build/pd-extended/externals' make[1]: *** [externals_install] Error 2 make[1]: Leaving directory `/home/pd/auto-build/pd-extended/packages' make: *** [install] Error 2 ls: cannot access /home/pd/auto-build/pd-extended/packages/linux_make/./Pd*.deb: No such file or directory upload specs linux_make . deb Uploading ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync: connection unexpectedly closed (4 bytes received so far) [receiver] rsync error: error in rsync protocol data stream (code 12) at io.c(454) [receiver=2.6.9]

1 0

SF.net SVN: pure-data: [9723] trunk/packages/patches/add_string_support. patch
by zmoelnig＠users.sourceforge.net 25 Apr '08

25 Apr '08

Revision: 9723 http://pure-data.svn.sourceforge.net/pure-data/?rev=9723&view=rev Author: zmoelnig Date: 2008-04-25 04:25:23 -0700 (Fri, 25 Apr 2008) Log Message: ----------- removed executable flag Property Changed: ---------------- trunk/packages/patches/add_string_support.patch Property changes on: trunk/packages/patches/add_string_support.patch ___________________________________________________________________ Name: svn:executable - * 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: [9722] branches/pd-extended/v0-40/pd/src/u_main.tk
by eighthave＠users.sourceforge.net 25 Apr '08

25 Apr '08

Revision: 9722 http://pure-data.svn.sourceforge.net/pure-data/?rev=9722&view=rev Author: eighthave Date: 2008-04-24 16:52:36 -0700 (Thu, 24 Apr 2008) Log Message: ----------- If you are currently viewing a help patch, the "Pdpedia" menu item on the help menu take you to the pdpedia page of the object from that help patch. Currently, it sends you to the English page, but language detection could be added. 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-23 03:55:00 UTC (rev 9721) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-24 23:52:36 UTC (rev 9722) @@ -539,6 +539,17 @@ } } +proc menu_openpdpedia {} { + set top_window [lindex [wm stackorder .] end] + set window_title [wm title $top_window] + set helpfile [regsub {(.*)-help.*} $window_title {\1}] + if {[string compare $helpfile $window_title]} { + menu_openhtml "http://wiki.puredata.info/en/$helpfile" + } else { + menu_openhtml "http://wiki.puredata.info/" + } +} + proc menu_doc_open {subdir basename} { global pd_guidir @@ -701,7 +712,7 @@ $mbar.help add command -label {puredata.info} \ -command {menu_openhtml http://puredata.info} $mbar.help add command -label {Pdpedia} \ - -command {menu_openhtml http://pdpedia.org} + -command {menu_openpdpedia} $mbar.help add command -label {FAQ} \ -command {menu_openhtml http://puredata.info/docs/faq} $mbar.help add separator @@ -2328,9 +2339,9 @@ proc popup_action {name action} { global popup_xpix popup_ypix - set cmd [concat $name done-popup $action $popup_xpix $popup_ypix \;] - # puts stderr $cmd - pd $cmd + set cmd [concat $name done-popup $action $popup_xpix $popup_ypix \;] + # puts stderr $cmd + pd $cmd } proc pdtk_canvas_popup {name xpix ypix canprop canopen} { 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