[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