pd/src desire.tk,1.1.2.241,1.1.2.242 - Pd-cvs

13 Jun 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8834
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
fixed the ddrc editor
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.241
retrieving revision 1.1.2.242
diff -C2 -d -r1.1.2.241 -r1.1.2.242
*** desire.tk	13 Jun 2006 17:13:24 -0000	1.1.2.241
--- desire.tk	13 Jun 2006 17:52:24 -0000	1.1.2.242
***************
*** 4259,4265 ****
    	foreach item $name {
    		set item_lower [string tolower $item]
! 			#eval "entry $f.$item_lower -textvariable key($item) -width 15"
    		eval "entry $f.$item_lower -width 15"
! 			$f.$item_lower insert 0 $key($item)
    		pack $f.$item_lower -side left
    		#bind $f.$item <Return> ""
--- 4259,4265 ----
    	foreach item $name {
    		set item_lower [string tolower $item]
! 			#eval "entry $f.$item_lower -textvariable $_($self:$item) -width 15"
    		eval "entry $f.$item_lower -width 15"
! 			$f.$item_lower insert 0 $_($self:$item)
    		pack $f.$item_lower -side left
    		#bind $f.$item <Return> ""
***************
*** 4768,4772 ****
def ClientPrefsDialog init {} {
! 	global ddrc_options
    $self read
    super
--- 4768,4772 ----
def ClientPrefsDialog init {} {
! 	global ddrc_options look key
    $self read
    super
***************
*** 4794,4806 ****
        alias {}
        radio {
! 		properties_dialog $which_self $which_section ClientPrefsDialog_ok \
    		[list [lindex $name 0] "$desc" choice {}]
        }
        color {
- 	    	#puts "${name}path"
    	set var ${name}path
    	#this stores the path to the widget on the gui editor. 
        	set @$var $which_section.$name.color
! 		properties_dialog $which_self $which_section ClientPrefsDialog_ok \
    		[list [lindex $name 0] [say $name] color {}]
        }
--- 4794,4806 ----
        alias {}
        radio {
! 		properties_dialog $self $which_section ClientPrefsDialog_ok \
    		[list [lindex $name 0] "$desc" choice {}]
        }
        color {
    	set var ${name}path
    	#this stores the path to the widget on the gui editor. 
        	set @$var $which_section.$name.color
! 		set @$name $look($name)
! 		properties_dialog $self $which_section ClientPrefsDialog_ok \
    		[list [lindex $name 0] [say $name] color {}]
        }
***************
*** 4808,4818 ****
        	foreach item $name {
    	set var ${item}path
    	set @$var $which_section.[string tolower [lindex $name 0]].[string tolower $item]
    	}
! 	    	properties_dialog $which_self $which_section ClientPrefsDialog_ok \
    		[list $name $name $type {}]    
        }
        default {
! 		properties_dialog $which_self $which_section ClientPrefsDialog_ok \
    		[list $name [say $name] $type {}]
        }
--- 4808,4819 ----
        	foreach item $name {
    	set var ${item}path
+ 		set @$item $key($item)
    	set @$var $which_section.[string tolower [lindex $name 0]].[string tolower $item]
    	}
! 	    	properties_dialog $self $which_section ClientPrefsDialog_ok \
    		[list $name $name $type {}]    
        }
        default {
! 		properties_dialog $self $which_section ClientPrefsDialog_ok \
    		[list $name [say $name] $type {}]
        }