;;					Hola.clp
;;El presente código intenta mostrar la implementación de jess con java a traves de GUI
;;

(import java.awt.*)

(import java.awt.event.*)
(import java.awt.event.WindowEvent)

 ;; Creamos panel
(defglobal ?*panel* = (new Frame "Button "))

(defglobal ?*buton* = (new Button "Hola"))

 ;; Agregamos el evento listener el boton
(?*buton* addActionListener (implement ActionListener using (lambda (?name ?evt)
    (printout t "Hola Mundo" crlf))))

;; Agregamos el boton al panel y los mostramos por la GUI
(?*panel* add ?*buton*)

(?*panel* pack)

(set ?*panel* visible TRUE)

;;Vamos a agregar un evento de cerrado para la GUI
(?*panel* addWindowListener (implement WindowListener using (lambda (?name ?event)
		(if (= (?event getID) 
			(WindowEvent.WINDOW_CLOSING)) then
			(exit)))))
