[PD-cvs] pd/src g_editor.c, 1.18, 1.19 g_text.c, 1.14, 1.15 m_binbuf.c, 1.12, 1.13 m_pd.h, 1.14, 1.15 notes.txt, 1.31, 1.32 s_audio.c, 1.11, 1.12 s_audio_pablio.c, 1.7, 1.8 s_main.c, 1.27, 1.28 s_midi.c, 1.9, 1.10 u_main.tk, 1.23, 1.24
Miller Puckette
millerpuckette at users.sourceforge.net
Wed Oct 4 21:35:08 CEST 2006
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);
More information about the Pd-cvs
mailing list