[PD-cvs] pd/src desire.tk,1.1.2.600.2.26,1.1.2.600.2.27
Mathieu Bouchard
matju at users.sourceforge.net
Wed Dec 6 20:42:20 CET 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3230
Modified Files:
Tag: desiredata
desire.tk
Log Message:
minor speedup in Observable. also, client/server socket is only logged if set debug 1
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.26
retrieving revision 1.1.2.600.2.27
diff -C2 -d -r1.1.2.600.2.26 -r1.1.2.600.2.27
*** desire.tk 6 Dec 2006 08:12:23 -0000 1.1.2.600.2.26
--- desire.tk 6 Dec 2006 19:42:17 -0000 1.1.2.600.2.27
***************
*** 31,34 ****
--- 31,36 ----
# this command rebuilds the package index: echo pkg_mkIndex . | tclsh
+ set debug 0
+
if {[catch {winfo children .}]} {set tk 0} {set tk 1}
***************
*** 169,177 ****
if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]}
}
! def Observable changed {args} {
! foreach x $@subscribers {eval [concat [list $x notice $self] $args]}
! }
! def Observable child_changed {origin args} {
! foreach x $@subscribers {eval [concat [list $x notice $origin] $args]}
}
def Observable subscribers {} {return $@subscribers}
--- 171,181 ----
if {$i>=0} {set @subscribers [lreplace $@subscribers $i $i]}
}
!
! if {$tcl_version>=8.5} {
! def Observable changed {args} {foreach x $@subscribers {$x notice $self {expand}$args]}}
! def Observable child_changed {origin args} {foreach x $@subscribers {$x notice $origin {expand}$args]}}
! } else {
! def Observable changed {args} {foreach x $@subscribers {eval [concat [list $x notice $self] $args]}}
! def Observable child_changed {origin args} {foreach x $@subscribers {eval [concat [list $x notice $origin] $args]}}
}
def Observable subscribers {} {return $@subscribers}
***************
*** 251,255 ****
}
puts $sock "$message;"
! puts "<- $message;"
}
--- 255,259 ----
}
puts $sock "$message;"
! if {$::debug} {puts "<- $message;"}
}
***************
*** 754,758 ****
}
if {[fblocked $sock]} {break}
! if {[string first pdtk_post $cmd]!=0} {puts "-> $cmd"}
append sock_lobby "\n$cmd"
if {[catch {eval $sock_lobby}]} {
--- 758,762 ----
}
if {[fblocked $sock]} {break}
! if {$::debug} {if {[string first pdtk_post $cmd]!=0} {puts "-> $cmd"}}
append sock_lobby "\n$cmd"
if {[catch {eval $sock_lobby}]} {
***************
*** 1091,1102 ****
}
- def View look_old {k} {
- global look
- if {[info exists look($@_class:$k)]} {return $look($@_class:$k)}
- foreach super [$@_class ancestors] {
- if {[info exists look($super:$k)]} {return $look($super:$k)}
- }
- }
-
def View init {} {
super
--- 1095,1098 ----
***************
*** 1112,1118 ****
set canvas [$self get_canvas]
if {$canvas == "none"} {return}
- #set c [[$self get_canvas] widget]
set c [$canvas widget]
- #set zoom [$@canvas zoom]
set zoom [$canvas zoom]
set coords [lmap * $coords $zoom]
--- 1108,1112 ----
***************
*** 1122,1126 ****
set args [lreplace $args [expr $find + 1] [expr $find + 1] $new_width]
}
-
set find [lsearch $args "-font"]
if {$find >= 0} {
--- 1116,1119 ----
***************
*** 1129,1133 ****
set args [lreplace $args [expr $find + 1] [expr $find + 1] [lreplace $font 1 1 $new_size]]
}
-
set tags {}
foreach s $suffixes {lappend tags "$self$s"}
--- 1122,1125 ----
***************
*** 2014,2018 ****
if {$@edit} {
set t [$@canvas widget].${self}text
! $self item text window [list [expr $x1+2] [expr $y1+2]] \
-window $t -anchor nw -tags "${self}text $self text"
} {
--- 2006,2010 ----
if {$@edit} {
set t [$@canvas widget].${self}text
! $self item text window [list [expr {$x1+2}] [expr {$y1+2}]] \
-window $t -anchor nw -tags "${self}text $self text"
} {
***************
*** 2023,2028 ****
}
$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! -font [$self look font] -text $text \
! -fill [$self look fg] -anchor nw
}
$self update_size
--- 2015,2020 ----
}
$self item TEXT text [l+ {2 2} [list $x1 $y1]] \
! -font [View_look $self font] -text $text \
! -fill [View_look $self fg] -anchor nw
}
$self update_size
More information about the Pd-cvs
mailing list