Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7339
Modified Files: Tag: devel_0_39 desire.tk Log Message: accents in -lang are troublesome; removing. fixed $ox in Canvas move.
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.190 retrieving revision 1.1.2.191 diff -C2 -d -r1.1.2.190 -r1.1.2.191 *** desire.tk 25 Apr 2006 00:26:08 -0000 1.1.2.190 --- desire.tk 25 Apr 2006 13:57:27 -0000 1.1.2.191 *************** *** 304,314 ****
switch -regexp -- $cmdline(lang) { ! en|english|C {source locale/english.tcl} ! fr|fran[cç]ais {source locale/francais.tcl} ! de|deutsch {source locale/deutsch.tcl} ! ca|catal[aà] {source locale/catala.tcl} ! es|espa[nñ]ol {source locale/espanol.tcl} ! pt|portugu[eê]s {source locale/portugues.tcl} ! nb|norsk|bokm[aå]l {source locale/bokmal.tcl} default {error huh??? unknown lang (locale)} } --- 304,314 ----
switch -regexp -- $cmdline(lang) { ! en|english|C {source locale/english.tcl} ! fr|francais {source locale/francais.tcl} ! de|deutsch {source locale/deutsch.tcl} ! ca|catala {source locale/catala.tcl} ! es|espanol {source locale/espanol.tcl} ! pt|portugues {source locale/portugues.tcl} ! nb|norsk|bokmal {source locale/bokmal.tcl} default {error huh??? unknown lang (locale)} } *************** *** 1607,1610 **** --- 1607,1611 ---- switch $@action { move { + mset {ox oy} $oldpos foreach obj $@selection {$obj move [expr $x-$ox] [expr $y-$oy]} return