#Traductor usando motor google
#Lenguajes permitidos: Español, ingles, aleman, y holandes
#coded by pRotos
#protos.nu@gmail.com
require 'rubygems'
require 'rtranslate'
require 'tk'

root=TkRoot.new() {title "Traductor Interlingüísitco"}

TkLabel.new(root) {
	text "\n\nc0ded by pRotos\nprotos.nu@gmail.com"
	pack("side"=>"bottom")
	}

TkLabel.new(root) {
	text "Opciones:\n\nEspañol-Ingles(ei)\nEspañol-Francés(ef)\nEspañol-Holandés(eh)\nEspañol-Aleman(ea)\nIngles-Español(ie)\nFrancés-Español(fe)\nHolandés-Español(he)\nAlemán-Español(ae)"
	pack("side"=>"top")
}

op=TkVariable.new()
trad=TkVariable.new()

TkLabel.new(root) {
	text "Opcion:"
	pack("side"=>"top")
	}
	
TkEntry.new(root) {
	textvariable(op)
	pack("side"=>"top")
	}
	

TkLabel.new(root) {
	text "A traducir:"
	pack("side"=>"top")
	}
	
TkEntry.new(root) {
	textvariable(trad)
	pack("side"=>"top")
	}

TkLabel.new(root) {
	text "Traducción:"
	pack("side"=>"top")
	}
lbl = TkText.new(root) { width 50; height 25 }.pack("side"=>"bottom")

TkButton.new(root) {
	text "Traduce!"
	command proc { 
	if op.value == "ei" || op.value == "ef" ||  op.value == "eh" || op.value == "ea" || op.value == "ie" || op.value == "fe" || op.value == "he" || op.value == "ae"
		case op.value
			when "ei"
			t=Translate.t(trad.value, Language::SPANISH, Language::ENGLISH)
			when "ef"
			t1=Translate.t(trad.value, Language::SPANISH, Language::ENGLISH)
			t=Translate.t(t1, Language::ENGLISH, Language::FRENCH)
			when "eh"
			t1=Translate.t(trad.value, Language::SPANISH, Language::ENGLISH)
			t=Translate.t(t1, Language::ENGLISH, Language::DUTCH)
			when "ea"
			t1=Translate.t(trad.value, Language::SPANISH, Language::ENGLISH)
			t=Translate.t(t1, Language::ENGLISH, Language::GERMAN)
			when "ie"
			t=Translate.t(trad.value, Language::ENGLISH, Language::SPANISH)
			when "fe"
			t1=Translate.t(trad.value, Language::FRENCH, Language::ENGLISH)
			t=Translate.t(t1, Language::ENGLISH, Language::SPANISH)
			when "he"
			t1=Translate.t(trad.value, Language::DUTCH, Language::ENGLISH)
			t=Translate.t(t1, Language::ENGLISH, Language::SPANISH)
			when "ae"
			t1=Translate.t(trad.value, Language::GERMAN, Language::ENGLISH)
			t=Translate.t(t1, Language::ENGLISH, Language::SPANISH)
		end
		lbl.insert('end', t)
		lbl.insert('end', "\n")
	else
		lbl.insert('end', "Opcion no valida")
			
	end
	}
	pack("side"=>"top")
	}
	
	
TkButton.new(root) {
	text " Clear "
	command proc { lbl.clear }
	pack("side"=>"bottom")
	}
	
Tk.mainloop()