#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) ))