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 ----