[PD-cvs] pd/src desire.tk,1.1.2.600.2.5,1.1.2.600.2.6

Mathieu Bouchard matju at users.sourceforge.net
Sun Dec 3 01:25:02 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21102

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
removed old debug messages


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.5
retrieving revision 1.1.2.600.2.6
diff -C2 -d -r1.1.2.600.2.5 -r1.1.2.600.2.6
*** desire.tk	3 Dec 2006 00:11:24 -0000	1.1.2.600.2.5
--- desire.tk	3 Dec 2006 00:24:58 -0000	1.1.2.600.2.6
***************
*** 660,664 ****
      pack .controls.switches -side right
      frame .debug
!     pack [label .debug.1 -anchor w -text ""]
      pack [entry .debug.3 -textvariable ::serial] -side right
      pack [label .debug.2 -text "serial: "] -side right
--- 660,664 ----
      pack .controls.switches -side right
      frame .debug
!     pack [label .debug.1 -anchor w -text ""] -side left
      pack [entry .debug.3 -textvariable ::serial] -side right
      pack [label .debug.2 -text "serial: "] -side right
***************
*** 966,970 ****
  
  #-----------------------------------------------------------------------------------#
! proc* read_ddrc {{filename ""}} {
  	global cmdline look key accels
  	if {$filename == ""} {
--- 966,970 ----
  
  #-----------------------------------------------------------------------------------#
! proc read_ddrc {{filename ""}} {
  	global cmdline look key accels
  	if {$filename == ""} {
***************
*** 1234,1237 ****
--- 1234,1238 ----
  	}
  }
+ 
  #-----------------------------------------------------------------------------------#
  
***************
*** 1447,1451 ****
  	set @canvasys [lindex $mess 5]
  	set args [lrange $mess 6 end]
- 	puts " canvas args::: $args"
  	switch [llength $args] {
  	  1 {
--- 1448,1451 ----
***************
*** 1510,1514 ****
      default {error "huh? mess=$mess"}
    }
-   puts "      $self mapped = $@mapped"
  }
  
--- 1510,1513 ----
***************
*** 4019,4022 ****
--- 4018,4023 ----
  }
  
+ def Box popup_help {} {pd pd help $@pdclass}
+ 
  #-----------------------------------------------------------------------------------#
  class_new Wire {View}
***************
*** 6455,6459 ****
  }
  
- tracedef Dialog font_update
  def Dialog font_update {f} {
  	global font
--- 6456,6459 ----





More information about the Pd-cvs mailing list