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 ----