[REBOL] How to assign an event to a text-list face?
From: javier::aviles::eds::com at: 11-Jun-2001 10:17
Hello Rebolers,
I have the next layout:
lla_llave: get-keylines db-llamada record-llamada
pnl_llam: layout [
origin 0x0
style lab label 70 right
h2 "CONTROL DE LLAMADAS"
across
lab "Ingeniero:" ing_pnl_llam: text 70
return
tl_llam: text-list 100x200 data lla_llave rate 1 feel [engage: func [face
act evt]
[ print "Hello"
lla_llave: get-keylines db-llamada
record-llamada]]
[
if exists? db-llamada
[
load-data record-llamada dbllamada db-llamada
rcd-llam: find-data tl_llam/picked dbllamada
fch_pnl_llam/text: rcd-llam/fecha
hra_pnl_llam/text: rcd-llam/hora
usu_pnl_llam/text: rcd-llam/sesion
pro_pnl_llam/text: rcd-llam/problema
est_pnl_llam/text: rcd-llam/status
show [fch_pnl_llam hra_pnl_llam usu_pnl_llam pro_pnl_llam
est_pnl_llam]
]
]
at 110x55
lab "Fecha:" fch_pnl_llam: text 80
at 110x75
lab "Hora:" hra_pnl_llam: text 80
at 110x95
lab "Usuario:" usu_pnl_llam: text 80
at 110x115
lab "Problema:" pro_pnl_llam: text 250x80
at 110x195
lab "Estatus:" est_pnl_llam: text 80
return
across
button 70 "Nuevo"
button 70 "Baja"
button 70 "Cambio"
button 70 "Consulta"
]
On the text-list tl_llam facet I want an event that be triggered each 30
seconds, on this event I want to update the information contained on
text-list.... What I should do?
thanks for your help guys!!!
Javier H. Avilés Avila.
> EDS NMxSC
* [javier--aviles--eds--com]
TEL. 49-61-00 Ext. 56361