Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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