diff options
author | Miller Puckette <millerpuckette@users.sourceforge.net> | 2006-08-15 16:09:57 +0000 |
---|---|---|
committer | Miller Puckette <millerpuckette@users.sourceforge.net> | 2006-08-15 16:09:57 +0000 |
commit | 702ebcc975ddbe560107633676689213f5795f98 (patch) | |
tree | 392b30c593e49178a37346c34c7d64a21505f755 /pd/src/u_main.tk | |
parent | 5a4b87e33f6e6cab50db2b47f2b6b054730919a5 (diff) |
Bug fix in audio blocking
svn path=/trunk/; revision=5609
Diffstat (limited to 'pd/src/u_main.tk')
-rw-r--r-- | pd/src/u_main.tk | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk index 3ee5505c..2dacec81 100644 --- a/pd/src/u_main.tk +++ b/pd/src/u_main.tk @@ -35,8 +35,8 @@ if {$pd_nt == 1} { global pd_guidir global pd_tearoff set pd_gui2 [string range $argv0 0 [expr [string last \\ $argv0 ] - 1]] - regsub -all \\\\ $pd_gui2 / pd_guidir - set pd_guidir [string range $pd_guidir 0 [expr [string last / $pd_guidir] - 1]] + regsub -all \\\\ $pd_gui2 / pd_gui3 + set pd_guidir $pd_gui3/.. load $pd_guidir/bin/pdtcl.dll set pd_tearoff 1 } @@ -371,7 +371,8 @@ proc menu_opentext {filename} { while {![eof $f]} { set bigstring [read $f 1000] regsub -all PD_BASEDIR $bigstring $pd_guidir bigstring2 - $name.text insert end $bigstring2 + regsub -all PD_VERSION $bigstring2 $pd_myversion bigstring3 + $name.text insert end $bigstring3 } close $f set doc_number [expr $doc_number + 1] @@ -3243,9 +3244,10 @@ proc pdtk_pd_ctrlkey {name key shift} { # seven "useful" font sizes. # tb: user defined typefaces -proc pdtk_pd_startup {apilist midiapilist fontname} { -# puts stderr [concat $apilist $midiapilist $fontname] - global pd_apilist pd_midiapilist +proc pdtk_pd_startup {version apilist midiapilist fontname} { +# puts stderr [concat $version $apilist $fontname] + global pd_myversion pd_apilist pd_midiapilist + set pd_myversion $version set pd_apilist $apilist set pd_midiapilist $midiapilist global pd_fontlist |