[PD-cvs] pd/src u_object.tk,1.1.2.43,1.1.2.44
Mathieu Bouchard
matju at users.sourceforge.net
Fri Aug 13 20:24:42 CEST 2004
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17629
Modified Files:
Tag: impd_0_37
u_object.tk
Log Message:
.
Index: u_object.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/u_object.tk,v
retrieving revision 1.1.2.43
retrieving revision 1.1.2.44
diff -C2 -d -r1.1.2.43 -r1.1.2.44
*** u_object.tk 12 May 2004 10:00:27 -0000 1.1.2.43
--- u_object.tk 13 Aug 2004 18:24:40 -0000 1.1.2.44
***************
*** 22,26 ****
proc parse_color {c} {
- #puts "parse_color: $c"
regsub {;$} $c {} c
if {$c<0} {
--- 22,25 ----
***************
*** 68,71 ****
--- 67,71 ----
set fields(hdl) $fields(hradio)
set fields(vdl) $fields(hradio)
+ #set fields(msg)
set classinfo(obj) {Object object}
***************
*** 94,98 ****
set d [string trimright $d "\n"]
set d [string trimright $d ";"]
! set class [lindex $d 4]
if {![info exists fields($class)]} {set class obj}
#puts "${class} $x = $d"
--- 94,100 ----
set d [string trimright $d "\n"]
set d [string trimright $d ";"]
! set i 1
! set class [lindex $d $i]
! switch -- $class { obj { set i 4; set class [lindex $d $i] }}
if {![info exists fields($class)]} {set class obj}
#puts "${class} $x = $d"
***************
*** 399,402 ****
--- 401,405 ----
if {[canvas_isselected $canvas $self]} {set frcol $look(objectframe4)} {set frcol $look(objectframe3)}
$canvas itemconfigure ${self}BASE -outline $frcol
+ puts "/numbox_draw $self $canvas"
}
***************
*** 405,409 ****
set f $_($self:val)
set is_exp 0
- puts "numbox_ftoa $_($self:buf)"
if {[string length $_($self:buf)]>0} {return $_($self:buf)}
set buf [format %g $f]
--- 408,411 ----
More information about the Pd-cvs
mailing list