aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-08-23 03:32:30 +0000
committerN.N. <matju@users.sourceforge.net>2009-08-23 03:32:30 +0000
commitb4b541eec65fb3f315678d7f3e97b71e5d2b850a (patch)
tree1915be4d269cb5e823693c1ec7e890926f6bde80 /desiredata/src
parent282671282b20fa17ab9dbbaba9d1cf2246b5029d (diff)
nothing
svn path=/trunk/; revision=12034
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk20
1 files changed, 6 insertions, 14 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index c0277f4c..6cd4254f 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -3446,12 +3446,11 @@ def FindModel search_recursive {} {
$self result= [lindex $@results 0]
set @results [lreplace $@results 0 0]
incr @last_canvas
- return
} else {
incr @last_canvas
$self search_recursive
- return
}
+ return
}
set old_canvases $@next_canvases
set @next_canvases {}
@@ -7748,17 +7747,14 @@ def ServerPrefsDialogue apply {} {
$self write
}
def ServerPrefsDialogue init_reverse_hash {} {
- global pdrc_options pdrc_options_h pd_apilist2
- foreach {type names} $pdrc_options {
+ foreach {type names} $::pdrc_options {
set name [lindex $names 0]
if {[info exists @$name]} {
if {$name != "audio_api_choice"} {set @$name ""}
- } else {
- set @$name ""
- }
- foreach alias $names {set pdrc_options_h($alias) [list $type $name]}
+ } else {set @$name ""}
+ foreach alias $names {set ::pdrc_options_h($alias) [list $type $name]}
if {$name == "audio_api_choice"} {
- foreach alias [lrange $pd_apilist2 1 end] {set pdrc_options_h($alias) [list $type $name]}
+ foreach alias [lrange $::pd_apilist2 1 end] {set ::pdrc_options_h($alias) [list $type $name]}
}
}
}
@@ -7780,11 +7776,7 @@ def ServerPrefsDialogue audio_properties {indevlist indevs inchans outdevlist ou
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.1]} {
- $self init_content
- } else {
- $self update_content
- }
+ if {![winfo exists .$self.1.1]} {$self init_content} else {$self update_content}
}
def ServerPrefsDialogue audio_properties=? {} {
set indev0 [lsearch $@audioindev $@audioindev0]