Teoría - TK2

=begin
Este es un ejemplo de una ventana con varios utensilios
CUATRO Frames o marcos y en cada cual irá un utensilio
en total se verán dos etiquetas y dos botones
todo con las mínimas líneas de código posible
y con el menor código posible
=end

require 'tk'

A = 'Aquí iría el título'
B = 'Una etiqueta descriptiva de la función del programa'
Salir = 'Salir'

TkRoot.new { title "Mi Primera ventana!" }

f1 = TkFrame.new {
   background "red"
   padx 10
   pady 10
   pack('side' => 'top')
}
 TkLabel.new(f1) do
    text A
    pack
 end

f2 = TkFrame.new {
   background "blue"
   padx 10
   pady 10
   pack('side' => 'top')
}
 TkLabel.new(f2) do
  text B
   pack
 end

f3 = TkFrame.new {
   background "orange"
   padx 10
   pady 10
   pack('side' => 'left')
}
 TkButton.new(f3) {
    text '> Púlsame <'
    command {print "Has presionado el botón<!!\n"}
    pack
 }

f4 = TkFrame.new {
   background "green"
   padx 10
   pady 10
   pack('side' => 'right')
}
 TkButton.new(f4) {
 text Salir
 command 'exit'
 pack
 }
TkLabel.new(f4) do
    text "\nPúlsa aquí para salir\n"
    pack('side' => 'right')
 end
Tk.mainloop