Script Library: 1238 scripts


REBOL [ Title: "RebGUI table Example" File: %rebgui-table.r Author: "Brian Tiffin" Date: 04-Jun-2007 Version: 1.0.0 Rights: "Copyright (c) 2007 Brian Tiffin" Credits: "Ashley Truter; RebGUI designer...the 'u' in Truter is properly ü" Home: Usage: "do" Purpose: "RebGUI tutorial; display a table" Comment: "RebGUI does not need VID...but here, it is loaded with VID by using REBOL/View" History: [04-Jun-2007 1.0.0 "btiffin" "First cut"] Library: [ level: 'intermediate platform: 'all type: 'how-to domain: 'GUI tested-under: [view on "Debian GNU/Linux 4.0" by "btiffin"] support: [ svn:// "Altme REBOL3 World !RebGUI forum" ] license: 'MIT see-also: "rebgui-image.r" ] ] ; Check to see if RebGUI is already loaded; if not go to the cache (or net) and get it. unless value? 'ctx-rebgui [do-thru] ; Build a data table, two columns; color name and color tuple! table-data: copy [] foreach color ctx-rebgui/locale*/colors [ append table-data color append table-data get color ] ; Display a RebGUI table display "RebGUI table Example" [ table options ["Color" left .4 "RGB" right .6] data table-data on-click [ set-color abox second face/selected set-color bbox subtract 255.255.255 second face/selected ] return abox: box 24x10 bbox: box 24x10 ] do-events
halt ;; to terminate script if DO'ne from webpage