pd/src desire.tk,1.1.2.401,1.1.2.402 - Pd-cvs

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