[PD-cvs] pd/src desire.tk,1.1.2.600.2.153,1.1.2.600.2.154
Mathieu Bouchard
matju at users.sourceforge.net
Fri Jan 5 01:59:34 CET 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27296
Modified Files:
Tag: desiredata
desire.tk
Log Message:
fixed bug with loading locale when run as "desire" due to another locale/*.tcl file existing relative to current path
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.153
retrieving revision 1.1.2.600.2.154
diff -C2 -d -r1.1.2.600.2.153 -r1.1.2.600.2.154
*** desire.tk 3 Jan 2007 14:51:51 -0000 1.1.2.600.2.153
--- desire.tk 5 Jan 2007 00:59:31 -0000 1.1.2.600.2.154
***************
*** 45,49 ****
if {$tk} {package require bgerror}
catch {package require Tclx}
! if {[catch {source profile_dd.tcl}]} {error_dump}
if {[file exists debug.tcl]} {source debug.tcl}
--- 45,49 ----
if {$tk} {package require bgerror}
catch {package require Tclx}
! #if {[catch {source profile_dd.tcl}]} {error_dump}
if {[file exists debug.tcl]} {source debug.tcl}
***************
*** 608,612 ****
proc localedir {x} {file join [file dirname [file dirname $::argh0]] lib/pd/bin/$x}
! if {[file exists $langfile]} {
#source -encoding utf-8 $langfile
source locale/index.tcl
--- 608,612 ----
proc localedir {x} {file join [file dirname [file dirname $::argh0]] lib/pd/bin/$x}
! if {[regexp {desire\.tk$} $argh0]} {
#source -encoding utf-8 $langfile
source locale/index.tcl
More information about the Pd-cvs
mailing list