Responder a Eventos
Para responder a eventos como ratón o teclado, etc. se puede usar bind, la sintaxis del comando es asi:> (bind nombre-control "<nombre-evento>" (función))
Nota: En LTK los controles son llamados "widgets"
Los nombres de los eventos van encerrados siempre entre dobles comillas "" y los caracteres < y >. Por ejemplo, para cambiar de color una etiqueta cada vez que se entra con el puntero del ratón:
> (bind etiqueta "<Enter>" (lambda(x) (configure etiqueta :foreground "green")))
Si queremos que se produzca una acción, luego de haber presionado el botón izquierdo del ratón:
> (bind boton "<Button-1>" (lambda(x) (do-msg "te amo Maria")))
Que nos muestra un bonito mensaje, al presionar un botón
El siguiente ejemplo nos muestra algunos eventos comunes:
Para probarlo, copie el siguiente texto y guárdelo en un archivo "eventos.lisp" luego carguelo o ejecutelo con su lisp.
;;;----------------------------------------------------------------------------------------------------------------
(load "~/ltk-0.96/ltk.fas")
(use-package :ltk)
(with-ltk()
(let* ((entrada (make-instance 'entry :width 20))
(etiqueta (make-instance 'label :text "Gol de Messi"))
(marco (make-instance 'frame))
(boton (make-instance 'button :master marco :text "Aceptar")))
(bind etiqueta "<Enter>" (lambda(x) (configure etiqueta :foreground "green")))
(bind etiqueta "<Leave>" (lambda(x) (configure etiqueta :foreground "red")))
(bind boton "<Button-1>" (lambda(x) (do-msg "te amo Maria")))
(bind etiqueta "<Double-Button-1>" (lambda(x) (do-msg "Doble click del ratón")))
(bind boton "<Button-3>" (lambda(x) (do-msg "Botón derecho del ratón")))
(bind boton "<Button-2>" (lambda(x) (do-msg "Botón central del ratón")))
(bind entrada "<Key-a>" (lambda(x) (do-msg "Has presionado la tecla a")))
(bind entrada "<Key-t>" (lambda(x) (do-msg "Has presionado la tecla t")))
(bind entrada "<Control-Key-t>" (lambda(x) (do-msg "Has presionado Ctrl + t")))
(bind entrada "<Control-Alt-Key-m>" (lambda(x) (do-msg "Has presionado Ctrl + Alt + m")))
(bind entrada "<Escape>" (lambda(x) (do-msg "Has presionado la tecla Escape")))
(pack etiqueta)
(pack entrada)
(pack marco)
(pack boton)
(configure marco :borderwidth 3)
(configure marco :relief :raised)))
;;;----------------------------------------------------------------------------------------------------------------
La siguiente tabla muestra los eventos y sus modificadores:
Evento
|
Descripción
|
Modificadores
(los modificadores van separados
entre guiones "-"
)
|
| ButtonPres, Button, B | Se ha presionado uno de los botones del ratón. | "<Button-1>": Se presiona el botón
izquierdo del ratón
"<Button-2>" Se presiona el boto central del ratón "<Button-3>" Se presiona el botón derecho del ratón Double: Doble click con uno de los botones del ratón. Ejemplo: "<Double-Button-1>": Doble click con el botón izquierdo Triple: Triple click con uno de los botones del ratón. |
| Buttonrelease | Se ha dejado de presionar uno de los botones del ratón. | |
| Configure | El control ha cambiado de tamaño, posición, etc. | |
| Destroy | El control ha sido destruido | |
| Enter | El puntero del ratón ha entrado en el control | |
| Leave | El puntero del ratón ha abandonado el control | |
| FocusIn | El control ha tomado el foco. | |
| FocusOut | El control ha perdido el foco. | |
| KeyPress, Key, K | Se ha presionado una tecla. | Va acompañado de la tecla que se presiona,
por
ejemplo:
"<Key-a>" "<Key-b>" "<Key-m>" Los modificadores son: Control, Shift, Lock y Alt para las teclas: control, mayúsculas, bloqueo de mayúsculas y Alt, respectivamente. Ejemplos: "<Control-Key-t>" Se ha presionado Control + t. "<Shift-Key-b>" Se ha presionado Shift + b. "<Control-Alt-Key-m>" Se ha presionado Control + Alt + m. También existen unas teclas ya definidas, tales como: "<Return>", "<Escape>", "<BackSpace>", "<Tab>", "<Up>", "<Down>", "<Left>", "<Right>", etc. |
| KeyRelease | Se ha soltado la tecla presionada. | |
| Motion | El puntero del ratón se mueve sobre el control. | |
| Map | La ventana ha sido desplegada. | |
| Unmap | La ventana ha sido iconificada. |
En este sitio hay un tutorial muy bueno sobre LTK de una universidad española:
tutorial - capitulo 12
Saludos, comenten :-P
