[PD-cvs] pd/src desire.tk, 1.1.2.600.2.129, 1.1.2.600.2.130 TODO, 1.1.2.28.2.18, 1.1.2.28.2.19

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19060

Modified Files:
      Tag: desiredata
	desire.tk TODO 
Log Message:
TextBox braces fix


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.129
retrieving revision 1.1.2.600.2.130
diff -C2 -d -r1.1.2.600.2.129 -r1.1.2.600.2.130
*** desire.tk	20 Dec 2006 17:46:31 -0000	1.1.2.600.2.129
--- desire.tk	21 Dec 2006 13:10:43 -0000	1.1.2.600.2.130
***************
*** 2069,2076 ****
  	set @x1 [lindex $mess 2]
  	set @y1 [lindex $mess 3]
! 	set textstr [join [lrange $mess 4 end]]
! 	# this hack is to remove the "\" in the text
! 	regsub -all {\\} $textstr "" text
! 	set @text $text
  	set @longline 0
  	# @textoffset is for offseting the text item/widget, ie, ObjectBox vs NumBox
--- 2069,2073 ----
  	set @x1 [lindex $mess 2]
  	set @y1 [lindex $mess 3]
! 	set @text [$self remove_braces [join [lrange $mess 4 end]]]
  	set @longline 0
  	# @textoffset is for offseting the text item/widget, ie, ObjectBox vs NumBox
***************
*** 3938,3941 ****
--- 3935,3944 ----
  }
  
+ def Box remove_braces {str} {
+ 	# this hack is to remove the "\" in the text
+ 	regsub -all {\\} $str "" text
+ 	return $text
+ }
+ 
  def Box reinit {mess} {
      global classinfo fields
***************
*** 3947,3951 ****
  	    foreach f $fields($@pdclass) {set _($self:$f) [lindex $mess $i]; incr i}
      } else {
! 	set @text [lrange $mess 4 end]
      }
      $self outside_of_the_box
--- 3950,3954 ----
  	    foreach f $fields($@pdclass) {set _($self:$f) [lindex $mess $i]; incr i}
      } else {
! 	    set @text [$self remove_braces [join [lrange $mess 4 end]]]
      }
      $self outside_of_the_box

Index: TODO
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v
retrieving revision 1.1.2.28.2.18
retrieving revision 1.1.2.28.2.19
diff -C2 -d -r1.1.2.28.2.18 -r1.1.2.28.2.19
*** TODO	20 Dec 2006 17:46:33 -0000	1.1.2.28.2.18
--- TODO	21 Dec 2006 13:10:45 -0000	1.1.2.28.2.19
***************
*** 6,10 ****
      <- .x8068058 reload 2 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 256;
      -> change x8068058 x8067c50 {#X obj 335 166 nbx 8 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 256;}
! [ ] fix {\;} {\$1} in TextBox, loads fine, but there is bug in redraw
  [ ] fix gop
      [ ] gop content drawn on wrong canvas
--- 6,10 ----
      <- .x8068058 reload 2 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 256;
      -> change x8068058 x8067c50 {#X obj 335 166 nbx 8 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 256;}
! [x] fix {\;} {\$1} in TextBox, loads fine, but there is bug in redraw
  [ ] fix gop
      [ ] gop content drawn on wrong canvas