How to assign an event to a text-list face?
[1/2] 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
[2/2] from: agem:crosswinds at: 11-Jun-2001 17:24
>>>>>>>>>>>>>>>>>> Ursprüngliche Nachricht <<<<<<<<<<<<<<<<<<
Am 11.06.01, 16:17:33, schrieb "Aviles, Javier" <[javier--aviles--eds--com]>
zum Thema [REBOL] How to assign an event to a text-list face?:
> Hello Rebolers,
snip
> 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?
REBOL [
Title: "Digital Clock"
Version: 1.2.0
Date: 2-Apr-2001
Author: "Carl Sassenrath"
Purpose: {A simple digital clock.}
]
view layout [
origin 0
banner "00:00:00" rate 00:00:03
effect [gradient 0x1 0.0.150 0.0.50]
feel [engage: func [face act evt] [
face/text: now/time show face]]
]
(desktop/demos, but trick for delays > 1 sec added :)
> thanks for your help guys!!!
> Javier H. Avilés Avila.
-Volker