[ALLY] Update to messenger.r
[1/1] from: phil::bevan::tesco::net at: 5-Sep-2000 1:17
This is a multi-part message in MIME format.
------=_NextPart_000_00CE_01C016D7.083EFFA0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Hi Carl / Allies,
attached is an updated version of messenger .r for 0.10.29.3.1
(changed for updated stylize syntax)
Cheers Phil
------=_NextPart_000_00CE_01C016D7.083EFFA0
Content-Type: text/x-rebol;
name="Messenger.r"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="Messenger.r"
REBOL [
Title: "messenger"
Date: 16-Jun-2000
File: %messenger.r
Purpose: "Display a Reminder at a specified time"
Author: "P Bevan"
; 24-Jul-2000 check for Valid tiime and inform user of invalid time
; 04-Sep-2000 use new stylize syntax
]
pic: %bay.jpg
scroll-left: function [str] [t-str]
[
t-char: first str
t-str: remove str
t-str: join t-str t-char
return t-str
]
; center-txt: txt center font-size 16
l-test: stylize
[
ltext: text font-size 60 right 255.255.0
]
f-disp-msg: function [t-mess] []
[
t-mess: join "...." [t-mess "...."]
view/new layout
[
styles l-test
backdrop pic effect [gradcol 1x1 0.0.80 100.0.0 fit]
time: ltext t-mess
with
[
rate: 2
feel: make feel
[
engage: func [face action event i]
[
face/text: scroll-left face/text
show face
]
]
]
]
]
f-wait: function [i-time t-mess] [u-time t-time tm-time]
[
t-time: join "Waiting until " i-time
u-time: to-time i-time
view/new layout
[
backdrop pic effect [gradcol 1x1 0.0.80 100.0.0 fit]
c-time: text "Time : 00:00:00"
with
[
rate: 1
feel: make feel
[
engage: func [face action event i]
[
if u-time < now/time
[
unview/all
f-disp-msg t-mess
]
; show current time
tm-time: to-string now/time
either (length? tm-time) < 6
[c-time/text: join "Time : " [tm-time ":00"]]
[c-time/text: join "Time : " tm-time]
show face
]
]
]
text t-time
]
]
t-time: to-string now/time
view layout
[
backdrop pic effect [gradcol 1x1 0.0.80 100.0.0 fit]
t-mess: field ""
t-time: field t-time 60x24
button "OK" 60x24
[
either (to-time t-time/text) = none
[
system/view/vid/vid-feel/focus none
inform/offset layout [label "Invalid time entered"] 100x100
]
[
system/view/vid/vid-feel/focus none
unview/all
f-wait t-time/text t-mess/text
]
]
]
------=_NextPart_000_00CE_01C016D7.083EFFA0--