[PD-cvs] pd/src desire.tk,1.1.2.600.2.332,1.1.2.600.2.333

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix canvas_pos problem


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.332
retrieving revision 1.1.2.600.2.333
diff -C2 -d -r1.1.2.600.2.332 -r1.1.2.600.2.333
*** desire.tk	9 Aug 2007 08:02:50 -0000	1.1.2.600.2.332
--- desire.tk	9 Aug 2007 08:05:53 -0000	1.1.2.600.2.333
***************
*** 8503,8507 ****
  }
  def Canvas deconstruct_to {stream args} {
! 	set r [concat [list #N canvas] $canvas_pos $canvas_size]
  	if {$@subpatch || $@abs} {lappend r $@name $@mapped} else {lappend r $@fontsize}
  	$stream << "[philtre $r];\n"
--- 8503,8507 ----
  }
  def Canvas deconstruct_to {stream args} {
! 	set r [concat [list #N canvas] $@canvas_pos $@canvas_size]
  	if {$@subpatch || $@abs} {lappend r $@name $@mapped} else {lappend r $@fontsize}
  	$stream << "[philtre $r];\n"