#ejemplo.tcl
package require Itcl

#Se crea la clase Persona
itcl::class Persona {
	private variable apellidos
	private variable nombres
	private variable edad 18
	public variable nacimiento 1984
	constructor {vapellidos vnombres} {
		set apellidos $vapellidos
		set nombres $vnombres
		puts "¡Bienvenido, $nombres $apellidos!"
	}
	method setEdad {vedad} {
		set edad $vedad
	}
	method getEdad {} {
		return "$edad"
	}
	method saludo {lugar} {
		puts "¡Buen día, $nombres!"
		if {$lugar != ""} {
			puts "Nosotros estamos en $lugar"
		}
	}
	method esMayor {} {
		expr {$edad>=18}
	}
	method nombrecompleto {} {
		return "$nombres $apellidos"
	}
}

#Se crea una instancia de la clase Persona
Persona unainstancia Hernández José

#Se fija la edad como 16 (encapsulamiento de edad)
unainstancia setEdad 16 

#Se fija el nacimiento modificando la variable publica nacimiento (sin encapsular)
unainstancia configure -nacimiento [expr 2009 - [unainstancia getEdad]] 

#Evalua el resultado del métoco esMayor
if {[unainstancia esMayor]} {
	puts "[unainstancia nombrecompleto] es mayor."
} else {
	puts "[unainstancia nombrecompleto] es menor, ya que tiene [unainstancia getEdad] años."
}

#Se obtiene el valor de la variable publica nacimiento
puts "[unainstancia nombrecompleto] nació en el año [unainstancia cget -nacimiento]."

#Se invoca al método saludo
unainstancia saludo "la Costa Azul"

# Se destruye la instancia de la clase Persona
itcl::delete object unainstancia
# Se destruye la clase Persona, esta clase ya no estará disponible en adelante
itcl::delete class Persona