Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17103/pd/src
Modified Files: g_editor.c g_text.c m_binbuf.c m_pd.h notes.txt s_audio.c s_audio_pablio.c s_main.c s_midi.c u_main.tk Log Message: release 0.40-0
Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** m_pd.h 19 Sep 2006 22:30:33 -0000 1.14 --- m_pd.h 4 Oct 2006 19:35:06 -0000 1.15 *************** *** 12,16 **** #define PD_MINOR_VERSION 40 #define PD_BUGFIX_VERSION 0 ! #define PD_TEST_VERSION "test08"
/* old name for "MSW" flag -- we have to take it for the sake of many old --- 12,16 ---- #define PD_MINOR_VERSION 40 #define PD_BUGFIX_VERSION 0 ! #define PD_TEST_VERSION ""
/* old name for "MSW" flag -- we have to take it for the sake of many old
Index: g_text.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_text.c,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** g_text.c 8 Sep 2006 23:45:30 -0000 1.14 --- g_text.c 4 Oct 2006 19:35:06 -0000 1.15 *************** *** 360,364 **** { t_atom a; ! SETDOLLSYM(&a, s); binbuf_add(x->m_text.te_binbuf, 1, &a); glist_retext(x->m_glist, &x->m_text); --- 360,368 ---- { t_atom a; ! char buf[MAXPDSTRING]; ! buf[0] = '$'; ! strncpy(buf+1, s->s_name, MAXPDSTRING-2); ! buf[MAXPDSTRING-1] = 0; ! SETDOLLSYM(&a, gensym(buf)); binbuf_add(x->m_text.te_binbuf, 1, &a); glist_retext(x->m_glist, &x->m_text);
Index: s_main.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_main.c,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** s_main.c 19 Sep 2006 22:30:33 -0000 1.27 --- s_main.c 4 Oct 2006 19:35:06 -0000 1.28 *************** *** 62,65 **** --- 62,66 ---- static int sys_main_srate; static int sys_main_advance; + static int sys_listplease;
int sys_externalschedlib; *************** *** 801,805 **** else if (!strcmp(*argv, "-listdev")) { ! sys_listdevs(); argc--; argv++; } --- 802,806 ---- else if (!strcmp(*argv, "-listdev")) { ! sys_listplease = 1; argc--; argv++; } *************** *** 921,924 **** --- 922,927 ---- for (i = 0; i < sys_nmidiout; i++) sys_midioutdevlist[i]--; + if (sys_listplease) + sys_listdevs();
/* get the current audio parameters. These are set
Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.23 retrieving revision 1.24 diff -C2 -d -r1.23 -r1.24 *** u_main.tk 8 Sep 2006 23:45:31 -0000 1.23 --- u_main.tk 4 Oct 2006 19:35:06 -0000 1.24 *************** *** 433,445 ****
proc doc_make_listbox {base dir count} { - global pd_guidir - if {![file isdirectory $dir]} { - regsub -- $pd_guidir [file dirname $dir] "" subdir - set file [file tail $dir] - if { [catch {menu_doc_open $subdir $file} fid] } { - puts stderr "Could not open $pd_guidir/$subdir/$file\n" - } - return; - } # check for [file readable]? if { [info tclversion] >= 8.5 } { --- 433,436 ---- *************** *** 462,473 **** $current_listbox insert end "[file tail $item][expr {[file isdirectory $item] ? {/} : {}}]" } ! bind $current_listbox <Button-1> [list doc_navigate $dir [incr count] %W %x %y] }
proc doc_navigate {dir count width x y} { ! if {[set subdir [$width get [$width index "@$x,$y"]]] eq {}} { return } ! doc_make_listbox [winfo parent $width] [file join $dir $subdir] $count }
--- 453,486 ---- $current_listbox insert end "[file tail $item][expr {[file isdirectory $item] ? {/} : {}}]" } ! bind $current_listbox <Button-1> [list doc_navigate $dir $count %W %x %y] ! bind $current_listbox <Double-Button-1> [list doc_double_button $dir $count %W %x %y] }
proc doc_navigate {dir count width x y} { ! if {[set newdir [$width get [$width index "@$x,$y"]]] eq {}} { return } ! set dir_to_open [file join $dir $newdir] ! if {[file isdirectory $dir_to_open]} { ! doc_make_listbox [winfo parent $width] $dir_to_open [incr count] ! } ! } ! ! proc doc_double_button {dir count width x y} { ! global pd_guidir ! if {[set newdir [$width get [$width index "@$x,$y"]]] eq {}} { ! return ! } ! set dir_to_open [file join $dir $newdir] ! if {[file isdirectory $dir_to_open]} { ! doc_navigate $dir $count $width $x $y ! } else { ! regsub -- $pd_guidir [file dirname $dir_to_open] "" subdir ! set file [file tail $dir_to_open] ! if { [catch {menu_doc_open $subdir $file} fid] } { ! puts stderr "Could not open $pd_guidir/$subdir/$file\n" ! } ! return; ! } }
*************** *** 3414,3418 ****
proc pdtk_savepanel {target localdir} { ! set filename [tk_getSaveFile -initialdir $localdir] if {$filename != ""} { pd [concat $target callback [pdtk_enquote $filename] ;] --- 3427,3435 ----
proc pdtk_savepanel {target localdir} { ! if {$localdir == ""} { ! set filename [tk_getSaveFile] ! } else { ! set filename [tk_getSaveFile -initialdir $localdir] ! } if {$filename != ""} { pd [concat $target callback [pdtk_enquote $filename] ;]
Index: m_binbuf.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_binbuf.c,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** m_binbuf.c 24 Aug 2006 15:23:51 -0000 1.12 --- m_binbuf.c 4 Oct 2006 19:35:06 -0000 1.13 *************** *** 360,364 **** else if (!strcmp(str, ",")) SETCOMMA(ap); else if ((str2 = strchr(str, '$')) && str2[1] >= '0' ! & str2[1] <= '9') { int dollsym = 0; --- 360,364 ---- else if (!strcmp(str, ",")) SETCOMMA(ap); else if ((str2 = strchr(str, '$')) && str2[1] >= '0' ! && str2[1] <= '9') { int dollsym = 0;
Index: s_midi.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_midi.c,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** s_midi.c 19 Sep 2006 22:30:33 -0000 1.9 --- s_midi.c 4 Oct 2006 19:35:06 -0000 1.10 *************** *** 577,581 **** else { ! post("input devices:"); for (i = 0; i < nindevs; i++) post("%d. %s", i+1, indevlist + i * DEVDESCSIZE); --- 577,581 ---- else { ! post("MIDI input devices:"); for (i = 0; i < nindevs; i++) post("%d. %s", i+1, indevlist + i * DEVDESCSIZE); *************** *** 585,589 **** else { ! post("output devices:"); for (i = 0; i < noutdevs; i++) post("%d. %s", i+DEVONSET, outdevlist + i * DEVDESCSIZE); --- 585,589 ---- else { ! post("MIDI output devices:"); for (i = 0; i < noutdevs; i++) post("%d. %s", i+DEVONSET, outdevlist + i * DEVDESCSIZE);
Index: s_audio_pablio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio_pablio.c,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** s_audio_pablio.c 3 Jun 2006 19:13:07 -0000 1.7 --- s_audio_pablio.c 4 Oct 2006 19:35:06 -0000 1.8 *************** *** 223,230 **** PaError err; PABLIO_Stream *aStream; - long minNumBuffers; long numFrames; #ifdef PA19 PaStreamParameters instreamparams, outstreamparams; /* MSP */ #endif
--- 223,231 ---- PaError err; PABLIO_Stream *aStream; long numFrames; #ifdef PA19 PaStreamParameters instreamparams, outstreamparams; /* MSP */ + #else + long minNumBuffers; #endif
Index: notes.txt =================================================================== RCS file: /cvsroot/pure-data/pd/src/notes.txt,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** notes.txt 19 Sep 2006 22:30:33 -0000 1.31 --- notes.txt 4 Oct 2006 19:35:06 -0000 1.32 *************** *** 1,4 **** --- 1,8 ---- ---------------- dolist -------------------- check bug reports on sourceforge + double-click fix on mac? + http://sourceforge.net/tracker/index.php? + func=detail&aid=1564617&group_id=55736&atid=478072 + PC device counting problem (first device invoked by -audiodev 0)
Index: g_editor.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/g_editor.c,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** g_editor.c 8 Sep 2006 23:45:30 -0000 1.18 --- g_editor.c 4 Oct 2006 19:35:06 -0000 1.19 *************** *** 1028,1037 **** #define RIGHTCLICK 8
- /* on one-button-mouse machines, you can use double click to - mean right click (which gets the popup menu.) Do this for Mac. */ - #ifdef __APPLE__ - #define SIMULATERIGHTCLICK - #endif - static double canvas_upclicktime; static int canvas_upx, canvas_upy; --- 1028,1031 ---- *************** *** 1068,1076 **** if (doit && !runmode && xpos == canvas_upx && ypos == canvas_upy && sys_getrealtime() - canvas_upclicktime < DCLICKINTERVAL) - #ifdef SIMULATERIGHTCLICK - rightclick = 1; - #else doublemod = 1; - #endif x->gl_editor->e_lastmoved = 0; if (doit) --- 1062,1066 ----
Index: s_audio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio.c,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** s_audio.c 19 Sep 2006 22:30:33 -0000 1.11 --- s_audio.c 4 Oct 2006 19:35:06 -0000 1.12 *************** *** 608,616 **** }
- #ifdef MSW - #define DEVONSET 0 /* microsoft device list starts at 0 (the "mapper"). */ - #else /* (see also MSW ifdef in sys_parsedevlist(), s_main.c) */ - #define DEVONSET 1 /* To agree with command line flags, normally start at 1 */ - #endif
static void sys_listaudiodevs(void ) --- 608,611 ---- *************** *** 626,632 **** else { ! post("input devices:"); for (i = 0; i < nindevs; i++) ! post("%d. %s", i + DEVONSET, indevlist + i * DEVDESCSIZE); } if (!noutdevs) --- 621,632 ---- else { ! /* To agree with command line flags, normally start at 1 */ ! /* But microsoft "MMIO" device list starts at 0 (the "mapper"). */ ! /* (see also sys_mmio variable in s_main.c) */ ! ! post("audio input devices:"); for (i = 0; i < nindevs; i++) ! post("%d. %s", i + (sys_audioapi != API_MMIO), ! indevlist + i * DEVDESCSIZE); } if (!noutdevs) *************** *** 634,640 **** else { ! post("output devices:"); for (i = 0; i < noutdevs; i++) ! post("%d. %s", i + DEVONSET, outdevlist + i * DEVDESCSIZE); } post("API number %d\n", sys_audioapi); --- 634,641 ---- else { ! post("audio output devices:"); for (i = 0; i < noutdevs; i++) ! post("%d. %s", i + (sys_audioapi != API_MMIO), ! outdevlist + i * DEVDESCSIZE); } post("API number %d\n", sys_audioapi);