REBOL [ Title: "RebGUI image Example" File: %rebgui-image.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: http://www.dobeash.com Usage: "do http://rebol.org/cgi-bin/cgiwrap/rebol/download-a-script?script-name=rebgui-image.r" Purpose: "RebGUI tutorial; display an image, with tip and close action" 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 2.7.5.4.2 on "Debian GNU/Linux 4.0" by "btiffin"] support: [ http://www.dobeash.com/rebgui.html "Altme REBOL3 World !RebGUI forum" svn://svn.geekisp.com/rebgui http://www.opensource.org/licenses/mit-license.html ] license: 'MIT see-also: "rebgui-table.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 http://www.dobeash.com/RebGUI/rebgui.r] ; Display a REBOL logo display "RebGUI image Example" [ image logo.gif tip "Click to close" [unview] ] do-events