[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