Script Library: vid-date.r

Script Library: 1238 scripts

vid-date.r

REBOL [
    file: %vid-date.r
    date: 18-Feb-2004
    title: "Date Selector"
    author: "Ammon Johnson"
    email: %ammon--johnson--gmail--com
    purpose: "A simple date selector VID style"
    library: [
        level: 'intermediate
        platform: 'all
        type: ['tool 'demo]
        domain: ['gui 'ui 'user-interface 'vid]
        tested-under: 'winxp
        support: {email me with questions}
        license: none
        comment: {Free to use as-is, acknowledgement is appreciated.
                  Please inform me of any enhancements you make.
                  Provided with NO WARRANTY.}
    ]
]

stylize/master [
    date: face with [
        type: 'date
        get-date: has [date] [
            if date: request-date [pane/1/text: date show pane/1]
        ]
        size: 100x20
        words: [
            default [new/text: first next args next args]
        ]
        resize: func [new] [
            pane/1/size: new - 20x0
            pane/2/offset: as-pair pane/1/size/x 0
        ]
        init: [
            pane: reduce [
                make-face/spec 'field [text edge: make edge [size 1x1]]
                make-face/spec 'arrow [data: 'down action: [get-date] edge: make edge [size: 1x1]]
            ]
            resize size
            pane/1/text: text
        ]
        ;flags: [field tabbed]
    ]
]

comment {;Uncomment this for an example
view center-face layout [
    date default now/date
    field
]
}

Notes

email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
(ammon:johnson:gmail:com)