REBOL [ file: %button.r date: 18-Feb-2004 title: "VID Button Set" author: "Ammon Johnson" email: ammon.johnson@gmail.com purpose: "A simple VID Button set. Includes Ok, Cancel, Toggle and Choice" 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 [ button: button middle center with [ size: 120x25 font: make font [color: 220.220.220 colors: [220.220.220 240.240.240]] effect: [colorize 125.0.150 extend] edge: none image: do decompress #{ 789CA5944B6EDC300C86F73CC514BD806CEBB99444E912451659044150645FA0 C8DDCB87672C61EA4C8BF05BD8FAA57F486928BF3FFF7CB9BCBD3FBFBE7CBBFC 48BFD6EDF2FD37982F0418CFAC85B14D40664D8CCE4E0E51740D1427840151EC C218276824A64AB4C0803E46AA674C143432533A53ED018C039DD60CA34D7FEE 1E1807BA74B71506ED67803E265B65F01F00CDB0DB9069DB63D40563B6968574 82CCEACAEBFFACD9FA63469BBAA06F8FB9DF5A8F0CE8E38C299BBCF77200E360 E4FEFC3B0AC34E60DA964C4F3679EF2701E360B235E6CC3699F518D4B548EC45 9E4562C074416D2BA3D7E3CCB53789B8AE4D229721237366CB9E3156D89B4473 7AC66E4219905BADF1B72FC917E23FCCF0C1DFBCDECBEABC8D36BA54648BE8C0 3A121CE16D403AAEB8D808DBB21962B129DADE5DA1C12D1D2DEDCD95A906DB5A 3DBE7822BA05D16F53B5CE62F676AACB3992DC28390F2485490A98C1C7498AB4 284D27E01249793A16477FA52F439D2455926EF7FB90702EBE5E8D47F18533CE C5531161DA8F37547C8E66BD295BA0668286610D9ECE1783753597D6B8DF4D4A 7C9DD392B1FAEB2508A81D88D4D61D3E9EFE0043447DE6BE060000 } font: make font [colors: [200.200.200 240.240.240] shadow: none] insert tail init [color: none] ] ok-button: button effect reduce ['extend 'colorize green] #"^M" font [colors: [0.0.0 80.80.80]] esc-button: ok-button effect reduce ['extend 'colorize red] #"^[" toggle: toggle center with [ image: get in (get-style 'button) 'image font: make font [color: 255.255.255 colors: [0.0.0 100.100.100] shadow: false] effect: [extend] edge: none append init [color: none] ] choice: choice with [ image: get in (get-style 'button) 'image effect: reduce ['colorize maroon 'extend] edge: none append init [color: none] ] ] ;comment {;Uncomment for example view layout [ button "Button" 150 ok-button "Ok Button" 150 esc-button "Cancel Button" 150 toggle "Toggle Up" "Toggle Down" choice "One" "Two" "Three" ] ;}