How to adapt request-date?
[1/3] from: jasonic:nomadics at: 10-Oct-2001 13:11
Just discovered this very sweet Rebol/View feature:
>> adate: request-date
== 17-Oct-2001
>> adate
== 17-Oct-2001
I would like to extend it... to allow range of a dates, times, dtes adn times etc.. but
following this great interface.
>> source request-date
request-date: func ["Requests a date." /offset xy][
if none? base [init]
either offset [inform/offset date-lay xy] [inform date-lay]
base
]
but
>> source date-lay
date-lay: undefined
Where to go from here?
thanks
- Jason
[2/3] from: ammoncooke::yahoo at: 10-Oct-2001 16:39
date-lay: layout [
size cell-size * 7
origin 0x0 space 0
across
arrow left cell-size [
either base/month = 1 [base/year: base/year - 1 base/month: 12]
[
base/month: base/month - 1
]
mo-box/text: md base show mo-box
calc-month base/month
]
mo-box: box cell-size * 5x1 md base font [size: 12]
arrow right cell-size [base/month: base/month + 1 calc-month
base/month
mo-box/text: md base show mo-box]
return
offs: at
]
Enjoy!!
Ammon
PS. That was found in less than 5 seconds using a tool built by someone on
this list which is planned to be in the initial beta release of RIDE (Rebol
Internet Development Environment)
[3/3] from: mh983:yah:oo at: 10-Oct-2001 16:32
not exactly sure how far this will get you, but try this :
probe system/words/req-funcs/req-date
mike