pd/src desire.tk,1.1.2.600.2.5,1.1.2.600.2.6 - Pd-cvs

3 Dec 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 ----