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