(define-structure button-demo 
  (export make-button
	  test-button)
  (open scheme threads
	rendezvous rendezvous-channels
	rendezvous-async-channels 
	toy-geometry toy-display-system
	toy-window-system)
  (files button))

(define-structure frame-demo
    (export frame?
	    frame-border
	    make-frame
	    frame=?
	    frame-highlight!
	    test-frame-with-button)
  (open scheme define-record-types threads
	rendezvous rendezvous-channels
	rendezvous-async-channels 
	toy-geometry toy-display-system
	toy-window-system
	button-demo)
  (files frame))

(define-structure texture-demo
    (export texture-demo)
  (open scheme threads srfi-1
	rendezvous rendezvous-channels
	rendezvous-async-channels 
	toy-geometry toy-display-system
	toy-window-system
	toy-button)
  (files textures))
