[PD-cvs] pd/src desire.tk,1.1.2.401,1.1.2.402
chunlee
chunlee at users.sourceforge.net
Thu Aug 24 05:39:49 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4975
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
remove some code
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.401
retrieving revision 1.1.2.402
diff -C2 -d -r1.1.2.401 -r1.1.2.402
*** desire.tk 24 Aug 2006 03:38:43 -0000 1.1.2.401
--- desire.tk 24 Aug 2006 03:39:47 -0000 1.1.2.402
***************
*** 5801,5861 ****
}
- def* ClientPrefsDialog write3 {} {
- global ddrc_options ddrc_options_h cmdline look accels key crosshair
- #set fd [open $cmdline(ddrcfilename) w]
- set check_key {}
- set color {}
-
- foreach {type class name} $ddrc_options {
- switch $type {
- color {
- set str [string tolower $class$name]
- set str2 ${str}path
- puts " str2 ::: $str2"
- set new_color [$@$str2 cget -background]
- set l [list $name $new_color]
- lappend color [list $class $l]
- puts "$color"
- #set look($name) $new_color
- #set var ${name}path
- #set new_color [$@$var cget -background]
- #set look($name) $new_color
- #puts $fd "$type $name $new_color"
- }
- key {
- foreach item $name {
- set var ${item}path
- set new_key [$@$var get]
- set old_key $key($item)
- if {$key($item) != $new_key} {
- if {[dict exists $accels $old_key]} {
- set cmd [dict get $accels $old_key]
- set accels [dict remove $accels $old_key]
- dict set accels $new_key $cmd
- #puts "$new_key ::: $cmd"
- }
- }
- if {[dict exists $check_key $new_key] && $new_key != ""} {
- error "$new_key already assigned"
- #dict set check_key $new_key key($item)
- } else {dict set check_key $new_key key($item)}
- set key($item) $new_key
- puts $fd "$type $item $new_key"
- }
-
- }
- crosshair {
- set crosshair($name) $_($self:$name)
- #puts $fd "$type $name $crosshair($name)"
- }
- bar {
- set bar($name) $_($self:$name)
- #puts $fd "$type $name $bar($name)"
- }
- }
- }
- close $fd
- }
-
def* ClientPrefsDialog write2 {} {
global ddrc_options ddrc_options_h cmdline look accels key crosshair
--- 5801,5804 ----
More information about the Pd-cvs
mailing list