pd/src desire.tk,1.1.2.495,1.1.2.496 - Pd-cvs

13 Oct 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
  }