aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
authorN.N. <matju@users.sourceforge.net>2009-09-06 17:53:46 +0000
committerN.N. <matju@users.sourceforge.net>2009-09-06 17:53:46 +0000
commitb104ae2983338f18e2d35cfbdfddd7c21095216b (patch)
tree06797f708d7ab449ec03501ad34ae2f1f5e22b41 /desiredata/src
parent8281a9243bd4343add28c1140762beea587e258a (diff)
fixed bug SF#2853052
svn path=/trunk/; revision=12248
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/desire.tk6
1 files changed, 4 insertions, 2 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk
index 6cd4254f..c4dac9d7 100644
--- a/desiredata/src/desire.tk
+++ b/desiredata/src/desire.tk
@@ -739,6 +739,7 @@ set encoding ""
if {$language == "C"} {set language en}
proc localedir {x} {file join [file dirname [file dirname $::argh0]] lib/pd/bin/$x}
if {[regexp {desire\.tk$} $argh0]} {source locale/index.tcl} {source [localedir locale/index.tcl]}
+puts "locale/index.tcl vs [localedir locale/index.tcl]"
set langentry [figure_out_language $language]
set encoding [lindex $langentry 0]
set langfile locale/[lindex $langentry 1].tcl
@@ -897,7 +898,8 @@ def Client init_controls {} {
set version "svn#$revision ($date)"
} {set version "(unknown svn version)"}
set ::pd_version_client $version
- post "DesireData client version $version"
+ post "DesireData client version %s" $version
+ post "Running from %s" [info script]
post "Using Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel
}
@@ -1123,7 +1125,7 @@ def Client open_file_really {filename} {
set ::pd_opendir $folder
set basename [string range $filename [expr $i+1] end]
if {[string last .pd $filename] >= 0} {
- netsend [list pd open [enquote $basename] [enquote $folder]]
+ netsend [list pd open $basename $folder]
}
}