[PD-cvs] pd/src desire.tk,1.1.2.423,1.1.2.424

[Mathieu Bouchard]

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