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)
----- Original Message -----
From: "Jason Cunliffe" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 10, 2001 10:11 AM
Subject: [REBOL] How to adapt request-date?
>
> 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
>
>
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
