widgets/project/preview.ss
#lang scheme

(provide project%)
(define project%
  (class object%;frame%
    (init-field [parent #f]
                [code-requires '()]
                [code-file #f]
                ; we should inherit a mred-id instead of this:
                [file #f]
                [changed #f]
                )
    (super-new)
    
    ))