[PD-cvs] pd/src desire.tk,1.1.2.26,1.1.2.27

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
removing some duplicate code and extraneous newlines.
also reindented some procs.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.26
retrieving revision 1.1.2.27
diff -C2 -d -r1.1.2.26 -r1.1.2.27
*** desire.tk	5 Sep 2005 10:05:21 -0000	1.1.2.26
--- desire.tk	5 Sep 2005 21:59:15 -0000	1.1.2.27
***************
*** 1286,1303 ****
  	set canvas_id [canvastosym $canvas]
  
! 	if {[info exists _($self:cx)]} {
! 		return [list $_($self:cx) $_($self:cy)]
  	} {
! 		#set _($self:cx) [$canvas canvasx 30]
! 		#set _($self:cy) [$canvas canvasy 30]
  		
  		#don't delete these two lines
! 		set _($self:cx) $_($canvas_id:current_x)
[...2092 lines suppressed...]
! 	set i [.browser.cl.1 curselection]
! 	set class [.browser.cl.1 get $i]
! 	.browser.cl.3 delete 0.0 end
! 	.browser.cl.3 insert end "class $class\n"
  	foreach {k v} $class_info($class) {
! 		.browser.cl.3 insert end "$k=\"$v\"\n"
  	}
  }
--- 3743,3753 ----
  proc class_info_callback {class} {
  	global class_info
! 	set f .browser.cl
! 	set i [$f.1 curselection]
! 	set class [$f.1 get $i]
! 	$f.3 delete 0.0 end
! 	$f.3 insert end "class $class\n"
  	foreach {k v} $class_info($class) {
! 		$f.3 insert end "$k=\"$v\"\n"
  	}
  }