; This file was generated with MrEd Designer 3.0 (lambda (parent-12702) (let* ((code-12704 parent-12702) (code-12706 (new prop:atom% (value 'project-12666))) (code-12705 (new prop:field-id% (value code-12706) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-12708 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-12666.med"))) (code-12707 (new prop:field-id% (value code-12708) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-12710 (new prop:atom% (value '#f))) (code-12709 (new prop:field-id% (value code-12710) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-12712 (new prop:atom% (value '#t))) (code-12711 (new prop:field-id% (value code-12712) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-12714 (new prop:atom% (value (list '"framework")))) (code-12713 (new prop:field-id% (value code-12714) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-12703 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-12704) (properties (list (cons 'id code-12705) (cons 'file code-12707) (cons 'code-file code-12709) (cons 'changed code-12711) (cons 'code-requires code-12713))))) (code-12717 (new prop:atom% (value 'frame-12675))) (code-12716 (new prop:field-id% (value code-12717) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-12719 (new prop:atom% (value '"Frame"))) (code-12718 (new prop:field-id% (value code-12719) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-12721 (new prop:atom% (value '#f))) (code-12720 (new prop:field-id% (value code-12721) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12723 (new prop:atom% (value '#f))) (code-12722 (new prop:field-id% (value code-12723) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12725 (new prop:atom% (value '362))) (code-12724 (new prop:field-id% (value code-12725) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12727 (new prop:atom% (value '316))) (code-12726 (new prop:field-id% (value code-12727) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12730 (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-12729 (new prop:popup% (value code-12730))) (code-12728 (new prop:field-id% (value code-12729) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12732 (new prop:atom% (value '#t))) (code-12731 (new prop:field-id% (value code-12732) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12734 (new prop:atom% (value '0))) (code-12733 (new prop:field-id% (value code-12734) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12736 (new prop:atom% (value '0))) (code-12735 (new prop:field-id% (value code-12736) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12739 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-12740 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-12738 (new prop:group% (value (list code-12739 code-12740)))) (code-12737 (new prop:field-id% (value code-12738) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12742 (new prop:atom% (value '70))) (code-12741 (new prop:field-id% (value code-12742) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12744 (new prop:atom% (value '30))) (code-12743 (new prop:field-id% (value code-12744) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12746 (new prop:atom% (value '#t))) (code-12745 (new prop:field-id% (value code-12746) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12748 (new prop:atom% (value '#t))) (code-12747 (new prop:field-id% (value code-12748) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-12715 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-12703) (properties (list (cons 'id code-12716) (cons 'label code-12718) (cons 'width code-12720) (cons 'height code-12722) (cons 'x code-12724) (cons 'y code-12726) (cons 'style code-12728) (cons 'enabled code-12731) (cons 'border code-12733) (cons 'spacing code-12735) (cons 'alignment code-12737) (cons 'min-width code-12741) (cons 'min-height code-12743) (cons 'stretchable-width code-12745) (cons 'stretchable-height code-12747)))))) (list code-12703 code-12715)))