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