; This file was generated with MrEd Designer 3.0 (lambda (parent-8580) (let* ((code-8582 parent-8580) (code-8584 (new prop:atom% (value 'project-8567))) (code-8583 (new prop:field-id% (value code-8584) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-8586 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-8567.med"))) (code-8585 (new prop:field-id% (value code-8586) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-8588 (new prop:atom% (value '#f))) (code-8587 (new prop:field-id% (value code-8588) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-8590 (new prop:atom% (value '#t))) (code-8589 (new prop:field-id% (value code-8590) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-8592 (new prop:atom% (value (list '"framework")))) (code-8591 (new prop:field-id% (value code-8592) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-8581 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-8582) (properties (list (cons 'id code-8583) (cons 'file code-8585) (cons 'code-file code-8587) (cons 'changed code-8589) (cons 'code-requires code-8591))))) (code-8595 (new prop:atom% (value 'frame-8576))) (code-8594 (new prop:field-id% (value code-8595) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-8597 (new prop:atom% (value '"Frame"))) (code-8596 (new prop:field-id% (value code-8597) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-8599 (new prop:atom% (value '#f))) (code-8598 (new prop:field-id% (value code-8599) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8601 (new prop:atom% (value '#f))) (code-8600 (new prop:field-id% (value code-8601) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8603 (new prop:atom% (value '528))) (code-8602 (new prop:field-id% (value code-8603) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8605 (new prop:atom% (value '201))) (code-8604 (new prop:field-id% (value code-8605) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8608 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'mdi-parent 'mdi-child 'toolbar-button 'float 'metal)))) (code-8607 (new prop:popup% (value code-8608))) (code-8606 (new prop:field-id% (value code-8607) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8610 (new prop:atom% (value '#t))) (code-8609 (new prop:field-id% (value code-8610) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8612 (new prop:atom% (value '0))) (code-8611 (new prop:field-id% (value code-8612) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8614 (new prop:atom% (value '0))) (code-8613 (new prop:field-id% (value code-8614) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8617 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-8618 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-8616 (new prop:group% (value (list code-8617 code-8618)))) (code-8615 (new prop:field-id% (value code-8616) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8620 (new prop:atom% (value '70))) (code-8619 (new prop:field-id% (value code-8620) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8622 (new prop:atom% (value '30))) (code-8621 (new prop:field-id% (value code-8622) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8624 (new prop:atom% (value '#t))) (code-8623 (new prop:field-id% (value code-8624) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8626 (new prop:atom% (value '#t))) (code-8625 (new prop:field-id% (value code-8626) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8593 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-8581) (properties (list (cons 'id code-8594) (cons 'label code-8596) (cons 'width code-8598) (cons 'height code-8600) (cons 'x code-8602) (cons 'y code-8604) (cons 'style code-8606) (cons 'enabled code-8609) (cons 'border code-8611) (cons 'spacing code-8613) (cons 'alignment code-8615) (cons 'min-width code-8619) (cons 'min-height code-8621) (cons 'stretchable-width code-8623) (cons 'stretchable-height code-8625)))))) (list code-8581 code-8593)))