[PD-cvs] pd/src desire.tk,1.1.2.241,1.1.2.242

chunlee chunlee at users.sourceforge.net
Tue Jun 13 19:52:26 CEST 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 {}]
  	    }





More information about the Pd-cvs mailing list