; This file was generated with MrEd Designer 3.0 (lambda (parent-21180) (let* ((code-21182 parent-21180) (code-21184 (new prop:atom% (value 'project-21167))) (code-21183 (new prop:field-id% (value code-21184) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-21186 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-21167.med"))) (code-21185 (new prop:field-id% (value code-21186) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-21188 (new prop:atom% (value '#f))) (code-21187 (new prop:field-id% (value code-21188) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-21190 (new prop:atom% (value '#t))) (code-21189 (new prop:field-id% (value code-21190) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-21192 (new prop:atom% (value (list '"framework")))) (code-21191 (new prop:field-id% (value code-21192) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-21181 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-21182) (properties (list (cons 'id code-21183) (cons 'file code-21185) (cons 'code-file code-21187) (cons 'changed code-21189) (cons 'code-requires code-21191))))) (code-21195 (new prop:atom% (value 'frame-21176))) (code-21194 (new prop:field-id% (value code-21195) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-21197 (new prop:atom% (value '"Frame"))) (code-21196 (new prop:field-id% (value code-21197) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-21199 (new prop:atom% (value '#f))) (code-21198 (new prop:field-id% (value code-21199) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21201 (new prop:atom% (value '#f))) (code-21200 (new prop:field-id% (value code-21201) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21203 (new prop:atom% (value '350))) (code-21202 (new prop:field-id% (value code-21203) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21205 (new prop:atom% (value '348))) (code-21204 (new prop:field-id% (value code-21205) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21208 (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-21207 (new prop:popup% (value code-21208))) (code-21206 (new prop:field-id% (value code-21207) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21210 (new prop:atom% (value '#t))) (code-21209 (new prop:field-id% (value code-21210) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21212 (new prop:atom% (value '0))) (code-21211 (new prop:field-id% (value code-21212) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21214 (new prop:atom% (value '0))) (code-21213 (new prop:field-id% (value code-21214) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21217 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-21218 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-21216 (new prop:group% (value (list code-21217 code-21218)))) (code-21215 (new prop:field-id% (value code-21216) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21220 (new prop:atom% (value '70))) (code-21219 (new prop:field-id% (value code-21220) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21222 (new prop:atom% (value '30))) (code-21221 (new prop:field-id% (value code-21222) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21224 (new prop:atom% (value '#t))) (code-21223 (new prop:field-id% (value code-21224) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21226 (new prop:atom% (value '#t))) (code-21225 (new prop:field-id% (value code-21226) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-21193 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-21181) (properties (list (cons 'id code-21194) (cons 'label code-21196) (cons 'width code-21198) (cons 'height code-21200) (cons 'x code-21202) (cons 'y code-21204) (cons 'style code-21206) (cons 'enabled code-21209) (cons 'border code-21211) (cons 'spacing code-21213) (cons 'alignment code-21215) (cons 'min-width code-21219) (cons 'min-height code-21221) (cons 'stretchable-width code-21223) (cons 'stretchable-height code-21225)))))) (list code-21181 code-21193)))