[PD-cvs] pd/src desire.tk,1.1.2.600.2.41,1.1.2.600.2.42

[chunlee]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
steady, is_log, isa and fstyle works agian with IEMPropertiesDialog


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.41
retrieving revision 1.1.2.600.2.42
diff -C2 -d -r1.1.2.600.2.41 -r1.1.2.600.2.42
*** desire.tk	7 Dec 2006 23:40:24 -0000	1.1.2.600.2.41
--- desire.tk	8 Dec 2006 02:41:36 -0000	1.1.2.600.2.42
***************
*** 4521,4525 ****
  	set tosend {}
  	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
! 	eval [concat [list pd .$self reload] $props]
  }
  
--- 4521,4525 ----
  	set tosend {}
  	foreach v $args {switch -- $v {{} {set v "empty"}}; lappend props $v}
! 	eval [concat [list netsend [concat [list .$self reload] $props]]]
  }
  
***************
*** 4581,4584 ****
--- 4581,4588 ----
  		}]]
  		$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]]
+ 		}
  	}
  }
***************
*** 6128,6132 ****
  	pack $f.label $f.butt -side left
  	bind $f.butt <1> [list $self dropmenu_open $f $name $part]
- 
  }
  
--- 6132,6135 ----
***************
*** 6913,6917 ****
  	 super $frame $var $part $val $say
  }
! 
  def ServerPrefsDialog dropmenu_open {f name part} {
  	global pd_apilist pd_apilist2 _
--- 6916,6920 ----
  	 super $frame $var $part $val $say
  }
! #used by choice and devlist
  def ServerPrefsDialog dropmenu_open {f name part} {
  	global pd_apilist pd_apilist2 _
***************
*** 6929,6932 ****
--- 6932,6937 ----
  }
  
+ def IEMPropertiesDialog dropmenu_open {f name part} {super $f}
+ 
  #################### ClientPrefsDialog
  set ddrc_options {