[PD-cvs] pd/src desire.tk,1.1.2.495,1.1.2.496

Mathieu Bouchard matju at users.sourceforge.net
Fri Oct 13 17:11:05 CEST 2006


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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
optimised draw_wires again...


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.495
retrieving revision 1.1.2.496
diff -C2 -d -r1.1.2.495 -r1.1.2.496
*** desire.tk	12 Oct 2006 15:53:01 -0000	1.1.2.495
--- desire.tk	13 Oct 2006 15:11:01 -0000	1.1.2.496
***************
*** 34,37 ****
--- 34,39 ----
  set auto_path [concat . \
  	[list [file join [file dirname [file dirname $argh0]] lib/pd/bin]] \
+ 	/usr/lib/tcllib1.7 \
+ 	/usr/lib/tclx8.4 \
  	$auto_path]
  
***************
*** 39,43 ****
  package require bgerror
  
! #if {[catch {source profdd.tcl}]} {error_dump}
  if {[file exists debug.tcl]} {
  	source debug.tcl
--- 41,47 ----
  package require bgerror
  
! #catch {package require Tclx}
! #if {[catch {source profile_dd.tcl}]} {error_dump}
! 
  if {[file exists debug.tcl]} {
  	source debug.tcl
***************
*** 3353,3357 ****
  def Wire  inlet {} {return $@port2}
  
! def View draw_wires {} {foreach wire $_($@canvas:wires) {$wire draw}}
  def Wire move {dx dy} {$self changed}
  
--- 3357,3361 ----
  def Wire  inlet {} {return $@port2}
  
! def View draw_wires {} {foreach wire $_($@canvas:wires) {$wire changed}}
  def Wire move {dx dy} {$self changed}
  
***************
*** 3700,3705 ****
  	frame $f.buttonsep2 -height 2 -borderwidth 1 -relief sunken
  	pack $f.auto_apply $f.buttonsep2 -side bottom -fill x
! 	bind $f <KeyPress> "$self do_auto_apply"
! 	bind $f <Button>   "$self do_auto_apply"
  	set @auto_apply 0
  }
--- 3704,3709 ----
  	frame $f.buttonsep2 -height 2 -borderwidth 1 -relief sunken
  	pack $f.auto_apply $f.buttonsep2 -side bottom -fill x
! 	bind $f <KeyPress> "after 1 $self do_auto_apply"
! 	bind $f <Button>   "after 1 $self do_auto_apply"
  	set @auto_apply 0
  }
***************
*** 5810,5813 ****
--- 5814,5818 ----
  	set col [format #%6.6x $color]
  	$frame.color configure -background $col -foreground [complement $col] -text $col
+ 	$self do_auto_apply
  }
  





More information about the Pd-cvs mailing list