Advertisement
Guest User

Untitled

a guest
Apr 21st, 2015
360
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.00 KB | None | 0 0
  1. #change line 293
  2.        set input [string map "{%w2%} {${incith::weather::seperator}[ibold "Condições:"] [translate $html(conditions)]}" $input]
  3.  
  4. #create the translate proc
  5.        proc translate {condition} {
  6.         proc translate {condition} {
  7.         array set conditions {
  8.             "Overcast"                  "Carregado"
  9.             "Mostly Cloudy"             "Encoberto"
  10.             "Partly Cloudy"             "Parcialmente nublado"
  11.             "Cloudy"                    "Nublado"
  12.             "Scattered Clouds"          "Algumas nuvens"
  13.             "Clear"                     "Limpo"
  14.             "Heavy Thunderstorm Rain"   "Forte tempestade"
  15.             "Light Thunderstorm Rain"   "Tempestade moderada"
  16.             "Thunderstorm"              "Temporal"
  17.             "Thunderstorm Rain"         "Temporal"
  18.             "Blizzard"                  "Nevasca"
  19.             "Rain"                      "Chuva"
  20.             "Hevay Rain"                "Chuva forte"
  21.             "Haze"                      "Neblina"
  22.             "Havey Haze"                "Forte neblina"
  23.         }
  24.         set translatedCond $conditions($condition)
  25.         if {[string length $translatedCond] == 0} {
  26.             set translatedCond $condition
  27.         }
  28.         return $translatedCond
  29.     }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement