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