[PD-cvs] pd/src desire.tk,1.1.2.600.2.43,1.1.2.600.2.44

chunlee chunlee at users.sourceforge.net
Fri Dec 8 16:10:18 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9558

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
iempropertiesdialog apply works again


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.43
retrieving revision 1.1.2.600.2.44
diff -C2 -d -r1.1.2.600.2.43 -r1.1.2.600.2.44
*** desire.tk	8 Dec 2006 09:35:30 -0000	1.1.2.600.2.43
--- desire.tk	8 Dec 2006 15:10:14 -0000	1.1.2.600.2.44
***************
*** 4581,4591 ****
  		}]]
  		$self add .$self $d
! 		set textvar ${prop}2
  		if {$prop == "steady" || $prop == "is_log" || $prop == "isa" || $prop == "fstyle"} {
! 			set @$textvar [say [lindex [lindex $d end] $@$prop]]
  		}
  	}
  }
  
  class_new CanvasPropertiesDialog {PropertiesDialog}
  
--- 4581,4602 ----
  		}]]
  		$self add .$self $d
! 		set textvar ${prop}2; # used as textvariable
! 		set textops ${prop}list; # store the options for later
  		if {$prop == "steady" || $prop == "is_log" || $prop == "isa" || $prop == "fstyle"} {
! 			set @$textops [lindex $d end]
! 			set @$textvar [say [lindex $@$textops $@$prop]]
  		}
  	}
  }
  
+ def IEMPropertiesDialog dropmenu_open {f name part} {super $f}
+ def IEMPropertiesDialog dropmenu_set {frame var part val} {
+ 	set tmp ${var}list
+ 	set textvar ${var}2
+ 	set @$textvar [say [lindex $@$tmp $val]]
+ 	set @$var $val
+ 	$self do_auto_apply
+ }
+ 
  class_new CanvasPropertiesDialog {PropertiesDialog}
  
***************
*** 6122,6126 ****
  	foreach part $choices {
  		$f.menu add command -label [say $part] \
! 		    -command [list $self dropmenu_set $f $name $part $i 1]
  		incr i
  	}
--- 6133,6137 ----
  	foreach part $choices {
  		$f.menu add command -label [say $part] \
! 		    -command [list $self dropmenu_set $f $name $part $i]
  		incr i
  	}
***************
*** 6259,6263 ****
  	foreach part $@$trim_name {
  		$f.menu add command -label $part \
! 		    -command [list $self dropmenu_set $f $name $part $i 0]
  		incr i
  	}
--- 6270,6274 ----
  	foreach part $@$trim_name {
  		$f.menu add command -label $part \
! 		    -command [list $self dropmenu_set $f $name $part $i]
  		incr i
  	}
***************
*** 6573,6579 ****
  }
  
! def Dialog dropmenu_set {frame var part val say} {
! 	if {$say} {set text [say $part]} else {set text $part}
! 	#$frame.butt configure -text $text
  	set @$var $val
  }
--- 6584,6589 ----
  }
  
! def Dialog dropmenu_set {frame var part val} {
! 	#if {$say} {set text [say $part]} else {set text $part}
  	set @$var $val
  }
***************
*** 6709,6713 ****
  	set audio_props [$self audio_properties=?]
  	#pd pd audio-dialog $audio_props
! 	netsend [list "pd" "sudio-dialog" $audio_props]
  }
  
--- 6719,6723 ----
  	set audio_props [$self audio_properties=?]
  	#pd pd audio-dialog $audio_props
! 	netsend [list "pd" "audio-dialog" $audio_props]
  }
  
***************
*** 6900,6904 ****
  }
  
! def ServerPrefsDialog dropmenu_set {frame var part val say} {
  	global pd_apilist pd_apilist2 _
  	set trim_part [string trimleft $part "-"]
--- 6910,6914 ----
  }
  
! def ServerPrefsDialog dropmenu_set {frame var part val} {
  	global pd_apilist pd_apilist2 _
  	set trim_part [string trimleft $part "-"]
***************
*** 6907,6912 ****
  		foreach api $pd_apilist {
  			if {$trim_part == [string tolower [lindex $api 0]]} {
! 				pd pd audio-setapi [lindex $api 1]
! 				after 1 pd pd audio-properties 
  			}
  		}
--- 6917,6922 ----
  		foreach api $pd_apilist {
  			if {$trim_part == [string tolower [lindex $api 0]]} {
! 				netsend [list pd audio-setapi [lindex $api 1]]
! 				after 1 [netsend [list pd audio-properties]]
  			}
  		}
***************
*** 6914,6918 ****
  		set _($self:${trim_var}0) $part
  	      } 
! 	 super $frame $var $part $val $say
  }
  #used by choice and devlist
--- 6924,6928 ----
  		set _($self:${trim_var}0) $part
  	      } 
! 	 super $frame $var $part $val
  }
  #used by choice and devlist
***************
*** 6925,6929 ****
  		$m delete 0 end
  		foreach part $@$trim_name {
! 			$m add command -label $part -command [list $self dropmenu_set $f $name $part $i 0]
  			incr i
  		}
--- 6935,6939 ----
  		$m delete 0 end
  		foreach part $@$trim_name {
! 			$m add command -label $part -command [list $self dropmenu_set $f $name $part $i]
  			incr i
  		}
***************
*** 6932,6937 ****
  }
  
- def IEMPropertiesDialog dropmenu_open {f name part} {super $f}
- 
  #################### ClientPrefsDialog
  set ddrc_options {
--- 6942,6945 ----





More information about the Pd-cvs mailing list