[REBOL] Re: Make_user_manual.r ?
From: brett:codeconscious at: 23-Jan-2002 10:45
Here's a quick idea. Just to play with. Test-app01.r is your example.
Regards,
Brett.
Rebol []
; Needs to be fleshed out with all styles
; Useful for other situations.
set-data: func["Set the data of a VID element."
face value
/action "performs the associated action"
][
switch face/style [
choice [
face/text: value
face/data: find face/texts face/text
if action [do-face face none]
show face
]
]
]
ctx-view-player: context [
play-app: func[app][
do bind load/all app 'self
]
do-events: does [
; Get L1 to the state we want
set-data/action l1-choice1 "Blue"
; Now save the image
save/png %l1.png to-image L1
; Get L2 to the state we want
set-data/action l2-choice1 "maroon"
; Now save the image
save/png %l2.png to-image L2
unview/all
]
]
ctx-view-player/play-app %test-app01.r