pd/src desire.tk,1.1.2.423,1.1.2.424 - Pd-cvs

30 Aug 2006


      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