VID code

Never been to DZone Snippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

« Newer Snippets

Older Snippets »

Showing 1-4 of 4 total RSS

reset-faces function

reset-faces: func [
    faces [block!] "Block of face objects, or words that refer to faces."
][
    foreach face faces [
        reset-face either object? face [face] [get face]
    ]
]

to REBOL VID face reset-faces by gregg.irwin on Jan 10, 2006

clear-faces function

clear-faces: func [
    faces [block!] "Block of face objects, or words that refer to faces."
][
    foreach face faces [
        clear-face either object? face [face] [get face]
    ]
]

to REBOL VID face clear-faces by gregg.irwin on Jan 10, 2006

bring-to-front and send-to-back functions

bring-to-front: func [face] [
    append remove find face/parent-face/pane face face
    show face
]

send-to-back: func [face] [
    insert head remove find face/parent-face/pane face face
    show face/parent-face
]

to REBOL VID face bring-to-front send-to-back by gregg.irwin on Jan 10, 2006

click-face function

click-face: func [
    "Simulate a mouse click" 
    face
][
    face/feel/engage face 'down none
]

to REBOL VID face click-face by gregg.irwin on Jan 10, 2006