Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[ALLY] Update to messenger.r

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--