[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