[PD-cvs] pd/src desire.tk,1.1.2.190,1.1.2.191

[Mathieu Bouchard]

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