iArnold

Red [
title: "Red CGI test input from POST and/or GET using input from ansi.red"
]

#include %../../../fossil/C-library/ansi.red

standard-input: input
env-vars: get-env "REQUEST_METHOD"

print "Content-Type: text/html^/"  ;-- Required Page Header

iArnold

Red [ 
	Title: "Added title"
	filename: %guitest.red
	author:   "Arnold van Hofwegen"
	Icon: default
	date:     "30-Mar-2016"
	Needs: 'View
]

system/view/debug?: no

iArnold

Red [
	filename: %guitest.red
	author:   "Arnold van Hofwegen"
	date:     "07-Mrt-2016"
	Needs: 'View
]

system/view/debug?: no
live?: system/view/auto-sync?: no

iArnold

Red [ "Reduces and joins a block of values." 
]

rejoin: func [
    block [block!] "Values to reduce and join"
][
    if empty? block: reduce block [return block] 
    append either series? first block [copy first block] [
        form first block
    ] next block

iArnold

join: func [
    "Concatenates values." 
    value "Base value" 
    rest "Value or block of values"
][
    value: either series? :value [copy value] [form :value] 
    repend value :rest
]

iArnold

alert: function [
    "Displays an alert message"
    msg [string!]  "Message to display"
][
    view/flags [
        t: text msg center return
        b: button "ok" [unview]
        do [b/offset/x: t/offset/x + (t/size/x - b/size/x / 2)]
    ][modal popup]
]

iArnold

Red [ 
	Title:		"Download new Red master zip program"
	filename:	%red-master-dl.red
	author:		"Arnold van Hofwegen"
	date:		"11-May-2016"
	Needs:		'View
]

github-page: copy ""

iArnold

Red [
	Author: ["Martin Ceronio" "Nenad Rakocevic" "Arnold van Hofwegen"]
	Needs: 'View
]

system/view/auto-sync?: no

break-loop: false
i: make image! 50x50

iArnold

Red [
	Title:   "Sparks demo"
	Author:  "Qingtian Xie"
	File: 	 %sparks.red
	Tabs:	 4
	Needs:	 View
]

system/view/auto-sync?: no

iArnold

Red [
	Title:	"Planet orbits a star"
	file:	%one-planet.red
	Author:	"Arnold van Hofwegen"
	needs:	view
]

cycle: make block! 361
repeat i 360 [append cycle i]
append cycle 1