pd/src desire.tk,1.1.2.600.2.272,1.1.2.600.2.273 - Pd-cvs

3 Aug 2007


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19463
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
fix index stuff; add dansk in language selector
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.272
retrieving revision 1.1.2.600.2.273
diff -C2 -d -r1.1.2.600.2.272 -r1.1.2.600.2.273
*** desire.tk	3 Aug 2007 15:49:02 -0000	1.1.2.600.2.272
--- desire.tk	3 Aug 2007 16:03:18 -0000	1.1.2.600.2.273
***************
*** 659,663 ****
  #set cmdline(server) "$cmdline(server)"
  set encoding ""
! set langoptions {english francais deutsch catala espanol portugues italiano bokmal euskara polski}
  #lappend langoptions {chinese}
  #lappend langoptions {esperanto}
--- 659,663 ----
  #set cmdline(server) "$cmdline(server)"
  set encoding ""
! set langoptions {english francais deutsch catala espanol portugues italiano bokmal euskara polski dansk}
  #lappend langoptions {chinese}
  #lappend langoptions {esperanto}
***************
*** 675,678 ****
--- 675,679 ----
    ^(eo|esperanto)$    {set encoding utf-8; list esperanto}
    ^(pl|polski)$       {set encoding utf-8; list polski}
+   ^(dk|dansk)$        {list dansk}
    default {error "huh??? unknown language (locale)"}
  }].tcl
***************
*** 5172,5177 ****
  #A 0 0;
! def Canvas index= {i} {set @index $i}
! def Canvas index {} {return $@index}
proc change {self canvas index e {ninlets 0} {noutlets 0} {valid 1}} {
--- 5173,5178 ----
  #A 0 0;
! def View index= {i} {set @index $i}
! def View index {} {return $@index}
proc change {self canvas index e {ninlets 0} {noutlets 0} {valid 1}} {