[PD-cvs] pd/src desire.tk,1.1.2.468,1.1.2.469
Mathieu Bouchard
matju at users.sourceforge.net
Thu Sep 14 09:24:41 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3376
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
renamed error message "cannot find channel"
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.468
retrieving revision 1.1.2.469
diff -C2 -d -r1.1.2.468 -r1.1.2.469
*** desire.tk 13 Sep 2006 22:46:44 -0000 1.1.2.468
--- desire.tk 14 Sep 2006 07:24:38 -0000 1.1.2.469
***************
*** 559,562 ****
--- 559,570 ----
}
+ # miller uses this nowadays (matju fished it in pd-cvs for 0.40). we don't use it for now.
+ # remember to fix all quoting problems, which in the end may or may not involve the following proc.
+ proc pdtk_unspace {x} {
+ set y [string map {" " "_" ";" "" "," "" "{" "" "}" "" "\\" ""} $x]
+ if {$y == ""} {set y "empty"}
+ concat $y
+ }
+
proc pdtk_pd_meters {indb outdb inclip outclip} {
foreach {z clip db} [list in $inclip $indb out $outclip $outdb] {
***************
*** 638,643 ****
set cmd [gets $sock]
if {[eof $sock]} {
! tk_messageBox -message "server gone boom" -type ok
set sock {}
}
if {[fblocked $sock]} {break}
--- 646,653 ----
set cmd [gets $sock]
if {[eof $sock]} {
! global errorCode
! tk_messageBox -message "connection ended by server. (crash?)" -type ok
set sock {}
+ return
}
if {[fblocked $sock]} {break}
***************
*** 975,978 ****
--- 985,989 ----
proc pd {args} {
global sock
+ if {$sock == ""} {error "connection to server needed for doing this"}
set s [join $args " "]
puts $sock "$s;"
***************
*** 1308,1314 ****
2 {
set @subpatch 1
! set @name [lindex $args 0 ]
set @mapped [lindex $args 1]
- #set @mapped $@mapped
set @fontsize "what?"
}
--- 1319,1324 ----
2 {
set @subpatch 1
! set @name [lindex $args 0]
set @mapped [lindex $args 1]
set @fontsize "what?"
}
***************
*** 3746,3754 ****
$self add .$self {
{x1 entry -width 7} \
! {x2 entry -width 7} \
! {xpix entry -width 7} \
! {y2 entry -width 7} \
! {y1 entry -width 7} \
! {ypix entry -width 7}
}
#.$self.xrangef.x2 select from 0
--- 3756,3764 ----
$self add .$self {
{x1 entry -width 7} \
! {x2 entry -width 7} \
! {xpix entry -width 7} \
! {y2 entry -width 7} \
! {y1 entry -width 7} \
! {ypix entry -width 7}
}
#.$self.xrangef.x2 select from 0
More information about the Pd-cvs
mailing list