[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