8.14
1.3.2.8 TCP Viewer
Source code at tcp-viewer.rkt
The TCP viewer connects to a TCP server and opens a viewer window..
(define (do-actions) #t)
(define (run) (let ([connection (connect-remote "localhost" 8080)]) (viewer "robots - localhost:8080" connection do-actions)))
(run)