#lang racket
(define connection%
(class object%
(super-new)
(init-field input-source
output-source)
(define/public (get-input-source)
input-source)
(define/public (get-output-source)
output-source)
(define/public (get-output)
(send output-source get-output))
(define/public (refresh! new-items)
(send input-source refresh! new-items)
(send output-source refresh! new-items))))