REBOL [
	Title: "REBOL/Services Basic Test Panel"
	Author: "Carl Sassenrath"
	Version: 1.0.0
]

url: http://www.rebol.net/cgi-bin/services.r

out: layout [
	style h3 vtext bold
	style btn btn 100
	style note vtext silver bold
	style check-line check-line bold font [color: white shadow: 1x1]
	vh2 gold "REBOL/Services Basic Test Panel"
	indent 50
	check-line "Enable debugging mode" [ctx-services/debug-enable: value]
	across
	btn "Date" [send-cmd [date]]
	note "Date on server"
	return
	btn "System" [send-cmd [system]]
	note "Server's REBOL version"
	return
	btn "Info" [send-cmd pick [[info all][info]] found? get-face chk]
	chk: check-line "All info" 
	return
	btn "Close" [send-cmd [end] wait 1 quit]
	note "End session. Quit."
	return
	res: info 280x160 wrap font-color white effect [merge luma -50]
]

send-cmd: func [cmd] [
	set-face res reform ["Sending:" mold cmd]
	send-service/action rs-port cmd [
		either result/1 = 'done [
			set-face res mold/only select result 'ok
		][
			alert reform ["ERROR:" result]
		]
	]
]

out/image: draw out/size [
	pen none 
	fill-pen radial -342x-133 0 251 82 6 9 72.0.90.175 40.100.130.135 255.255.255.140 160.180.160.141 0.0.128.144 40.100.130.142 72.72.16.133 0.0.0.147 160.82.45.172 0.0.128.174 box 0x0 400x400 
	fill-pen cubic 1077x18 0 171 113 5 2 0.48.0.192 255.255.0.144 142.128.110.164 0.48.0.192 139.69.19.161 0.0.128.175 0.0.255.164 222.184.135.147 255.255.0.170 100.136.116.147 0.0.128.190 139.69.19.163 255.0.255.184 250.240.230.130 0.255.255.128 box 0x0 400x400 
	fill-pen diagonal 1060x889 0 254 319 7 9 0.0.255.143 40.100.130.128 128.0.0.132 250.240.230.148 222.184.135.154 0.255.0.156 179.179.126.156 box 0x0 400x400
]

view/new out

set-face res "Loading /Services client software..."  ; Used until it is built-into REBOL
do http://www.rebol.net/rebservices/client.r

set-face res "Opening service..."
rs-port: open-service url

set-face res "Ready. Select a command!"
do-events