# Common array settings for 

array set codes {
  chinese Z
  czech C
  deutsch D
  finnish L
  francais F
  greek G
  hungary H
  italian I
  nederlan N
  norsk O
  polish P
  portbr B
  port U
  russian R
  serbian Y
  spanish S
  swedish W
  turkish T
}

# Also change tcl/language.tcl

array set encodings {
  chinese utf-8
  czech iso8859-2
  deutsch utf-8
  finnish iso8859-1
  francais iso8859-1
  greek utf-8
  hungary iso8859-2
  italian utf-8
  nederlan iso8859-1
  norsk utf-8
  polish utf-8
  portbr iso8859-1
  port iso8859-1
  russian utf-8
  serbian cp1250
  spanish iso8859-1
  swedish iso8859-1
  turkish utf-8
}

set languages [array names encodings]

set languageList {}

foreach i $languages {
  lappend languageList $i.tcl
}

