[PD-cvs] pd/src desire.tk,1.1.2.471,1.1.2.472

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
removing old ddrc code


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.471
retrieving revision 1.1.2.472
diff -C2 -d -r1.1.2.471 -r1.1.2.472
*** desire.tk	16 Sep 2006 00:00:01 -0000	1.1.2.471
--- desire.tk	16 Sep 2006 00:18:43 -0000	1.1.2.472
***************
*** 955,977 ****
  }
  
- proc read_ddrc_old {} {
- 	global cmdline look key
- 	set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"]
- 	set contents [read $fd]
- 	close $fd
- 
- 	foreach category_pair $contents {
- 		set category [lindex $category_pair 0]
- 		foreach class_pair [lindex $category_pair 1] {
- 			set class [lindex $class_pair 0]
- 			foreach var_pair [lindex $class_pair 1] {
- 				set var [lindex $var_pair 0]
- 				set val [lindex $var_pair 1]
- 				set ${category}($class:$var) $val
- 			}
- 		}
- 	}
- 	set_fontstring
- }
  if {[file exists "defaults.ddrc"]} {
  	read_ddrc "defaults.ddrc"
--- 955,958 ----
***************
*** 5962,6015 ****
  }
  
- #this writes the ddrc
- def ClientPrefsDialog write_old {} {
- 	global ddrc_options cmdline look accels key
- 	$self get_val
- 	set fd [open $cmdline(ddrcfilename) w]
- 	#set fd [open ~/.ddrc2 w]
- 	set LOOK [list color crosshair bar font]
- 	set categories [list $LOOK key]; set categories2 [list look key]; set cat_count 0
- 	set classes [list Thing Canvas View Comment Wire FutureWire SelRect Client]
- 	set conf {}
- 	foreach category $categories {
- 		set class_list {}
- 		set tmp {}
- 		foreach sub $category {
- 			set x [lsearch -start 0 $ddrc_options $sub]
- 			while {$x>=0} {
- 				lappend tmp [lindex $ddrc_options [expr $x+1]] 
- 				lappend tmp [lindex $ddrc_options [expr $x+2]]
- 				set x [lsearch -start [expr $x+1] $ddrc_options $sub]
- 			}
- 		}
- 		foreach class $classes {
- 			set tmp2 {}
- 			set x [lsearch -start 0 $tmp $class]
- 			while {$x>=0} {
- 				foreach y [lindex $tmp [expr $x+1]] {
- 					if {$sub != "key"} {set str "look($class:$y)"
- 					} else {set str "key($class:$y)"}
- 					if {[info exists $str]} {
- 						lappend tmp2 [list $y [set [set str]]]
- 					} else {puts "not exists::: $str"}
- 				}
- 				set x [lsearch -start [expr $x+1] $tmp $class]
- 			}
- 			if {[llength $tmp2]} {
- 				set class_pair [list $class $tmp2]
- 				lappend class_list $class_pair
- 			}
- 		}
- 		set cat_pair [list [lindex $categories2 $cat_count] $class_list]
- 		lappend conf $cat_pair
- 		incr cat_count
- 	}
- 	#set conf [list $conf]
- 	puts $conf
- 	puts $fd $conf
- 	close $fd
- 	set_fontstring
- }
- 
  #this retrives the values set in the editor
  def ClientPrefsDialog get_val {} {
--- 5943,5946 ----