[PD-cvs] pd/src desire.tk,1.1.2.600.2.189,1.1.2.600.2.190

Mathieu Bouchard matju at users.sourceforge.net
Thu Jun 28 04:15:54 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
remove unnecessary globals


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.189
retrieving revision 1.1.2.600.2.190
diff -C2 -d -r1.1.2.600.2.189 -r1.1.2.600.2.190
*** desire.tk	11 Jun 2007 03:31:08 -0000	1.1.2.600.2.189
--- desire.tk	28 Jun 2007 02:15:50 -0000	1.1.2.600.2.190
***************
*** 7474,7478 ****
  
  def ServerPrefsDialog audio_properties {indevlist indevs inchans outdevlist outdevs outchans sr dspblock advance multi} {
- 	global pd_apilist2
  	set @audioindev $indevlist
  	set @audiooutdev $outdevlist
--- 7474,7477 ----
***************
*** 7491,7495 ****
  	mset [list @inchannels0 @inchannels1 @inchannels2 @inchannels3] $@inchannels
  	mset [list @outchannels0 @outchannels1 @outchannels2 @outchannels3] $@outchannels
! 	set @audio_api_choice2 [say [lindex $pd_apilist2 $@audio_api_choice]]
  	if {![winfo exists .$self.1.main.1]} {
  		$self init_content
--- 7490,7494 ----
  	mset [list @inchannels0 @inchannels1 @inchannels2 @inchannels3] $@inchannels
  	mset [list @outchannels0 @outchannels1 @outchannels2 @outchannels3] $@outchannels
! 	set @audio_api_choice2 [say [lindex $::pd_apilist2 $@audio_api_choice]]
  	if {![winfo exists .$self.1.main.1]} {
  		$self init_content
***************
*** 7510,7514 ****
  
  def ServerPrefsDialog read_one {type name contents i} {
- 	global pdrc_options_h pd_apilist2
  	switch -- $type {
  		folders   {incr i; lappend @$name [lindex $contents $i]}
--- 7509,7512 ----
***************
*** 7518,7522 ****
  			if {$name == "audio_api_choice"} {
  				if {$@$name == ""} {
! 				set @$name [lsearch $pd_apilist2 [lindex $contents $i]]
  				}
  			} else {
--- 7516,7520 ----
  			if {$name == "audio_api_choice"} {
  				if {$@$name == ""} {
! 				set @$name [lsearch $::pd_apilist2 [lindex $contents $i]]
  				}
  			} else {
***************
*** 7562,7566 ****
  
  def ServerPrefsDialog write {} {
! 	global pdrc_options pdrc_options_h cmdline pd_apilist2
  	set fd [open $cmdline(rcfilename) w]
  	#set fd stdout; puts "WOULD SAVE:"
--- 7560,7564 ----
  
  def ServerPrefsDialog write {} {
! 	global pdrc_options pdrc_options_h cmdline
  	set fd [open $cmdline(rcfilename) w]
  	#set fd stdout; puts "WOULD SAVE:"
***************
*** 7578,7582 ****
  					if {$vv != "default"} {puts $fd $vv}
  				} else {
! 					set vv [lindex $pd_apilist2 $v]
  					if {$vv != "default"} {puts $fd $vv}
  				}
--- 7576,7580 ----
  					if {$vv != "default"} {puts $fd $vv}
  				} else {
! 					set vv [lindex $::pd_apilist2 $v]
  					if {$vv != "default"} {puts $fd $vv}
  				}
***************
*** 7593,7597 ****
  
  def ServerPrefsDialog init_content {} {
! 	global pdrc_options pd_apilist2
  	set f .$self.1
  	set section 0
--- 7591,7595 ----
  
  def ServerPrefsDialog init_content {} {
! 	global pdrc_options
  	set f .$self.1
  	set section 0
***************
*** 7607,7611 ****
  			choice  {
  				if {$name == "audio_api_choice"} {
! 					set ops $pd_apilist2
  				} else {
  					set ops [lrange $names 1 end]
--- 7605,7609 ----
  			choice  {
  				if {$name == "audio_api_choice"} {
! 					set ops $::pd_apilist2
  				} else {
  					set ops [lrange $names 1 end]
***************
*** 7651,7659 ****
  
  def ServerPrefsDialog dropmenu_set {frame var part val} {
- 	global pd_apilist pd_apilist2 _
  	set trim_part [string trimleft $part "-"]
  	set trim_var [string trimleft $var "-"]
  	if {$var == "audio_api_choice"} {
! 		foreach api $pd_apilist {
  			if {$trim_part == [string tolower [lindex $api 0]]} {
  				netsend [list pd audio-setapi [lindex $api 1]]
--- 7649,7656 ----
  
  def ServerPrefsDialog dropmenu_set {frame var part val} {
  	set trim_part [string trimleft $part "-"]
  	set trim_var [string trimleft $var "-"]
  	if {$var == "audio_api_choice"} {
! 		foreach api $::pd_apilist {
  			if {$trim_part == [string tolower [lindex $api 0]]} {
  				netsend [list pd audio-setapi [lindex $api 1]]
***************
*** 7662,7666 ****
  		}
  	} else {
! 		set _($self:${trim_var}0) $part
  	}
  	super $frame $var $part $val
--- 7659,7663 ----
  		}
  	} else {
! 		set ::_($self:${trim_var}0) $part
  	}
  	super $frame $var $part $val
***************
*** 7668,7672 ****
  #used by choice and devlist
  def ServerPrefsDialog dropmenu_open {f name} {
- 	global pd_apilist pd_apilist2 _
  	set trim_name [string trimleft $name "-"]
  	if {$trim_name != "audio_api_choice"} {
--- 7665,7668 ----





More information about the Pd-cvs mailing list