Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7500
Modified Files: Tag: devel_0_39 desire.tk Log Message: fix luniq and the missing "key Canvas" section in ddrc
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.423 retrieving revision 1.1.2.424 diff -C2 -d -r1.1.2.423 -r1.1.2.424 *** desire.tk 29 Aug 2006 21:03:57 -0000 1.1.2.423 --- desire.tk 30 Aug 2006 00:26:15 -0000 1.1.2.424 *************** *** 110,115 **** # removes duplicates from a list, but it must be already sorted. proc luniq {a} { ! set r {} ! set last "" set i 0 foreach x $a { --- 110,115 ---- # removes duplicates from a list, but it must be already sorted. proc luniq {a} { ! set last [lindex $a 0] ! set r [list $last] set i 0 foreach x $a { *************** *** 5233,5237 **** ############ .pdrc editor #Turns #rgb into 3 elem list of decimal vals. ! proc rgb2dec c { set c [string tolower $c] if {[regexp -nocase {^#([0-9a-f])([0-9a-f])([0-9a-f])$} $c x r g b]} { --- 5233,5237 ---- ############ .pdrc editor #Turns #rgb into 3 elem list of decimal vals. ! proc rgb2dec {c} { set c [string tolower $c] if {[regexp -nocase {^#([0-9a-f])([0-9a-f])([0-9a-f])$} $c x r g b]} { *************** *** 5722,5726 **** foreach class $class_list { puts $fd " $class {" ! foreach name [array names $category -glob $class:*] { mset {class var} [split $name ":"] # the eval here annoys me a bit because of possible special chars -- matju --- 5722,5726 ---- foreach class $class_list { puts $fd " $class {" ! foreach name [lsort [array names $category -glob $class:*]] { mset {class var} [split $name ":"] # the eval here annoys me a bit because of possible special chars -- matju