; This file was generated with MrEd Designer 3.0 (lambda (parent-88765) (let* ((code-88767 parent-88765) (code-88769 (new prop:atom% (value 'project-87935))) (code-88768 (new prop:field-id% (value code-88769) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-88771 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-87935.med"))) (code-88770 (new prop:field-id% (value code-88771) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-88773 (new prop:atom% (value '#f))) (code-88772 (new prop:field-id% (value code-88773) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-88775 (new prop:atom% (value '#t))) (code-88774 (new prop:field-id% (value code-88775) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-88777 (new prop:atom% (value (list '"framework")))) (code-88776 (new prop:field-id% (value code-88777) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-88766 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-88767) (properties (list (cons 'id code-88768) (cons 'file code-88770) (cons 'code-file code-88772) (cons 'changed code-88774) (cons 'code-requires code-88776))))) (code-88780 (new prop:atom% (value 'frame-87943))) (code-88779 (new prop:field-id% (value code-88780) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-88782 (new prop:atom% (value '"Frame"))) (code-88781 (new prop:field-id% (value code-88782) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-88784 (new prop:atom% (value '412))) (code-88783 (new prop:field-id% (value code-88784) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88786 (new prop:atom% (value '264))) (code-88785 (new prop:field-id% (value code-88786) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88788 (new prop:atom% (value '352))) (code-88787 (new prop:field-id% (value code-88788) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88790 (new prop:atom% (value '371))) (code-88789 (new prop:field-id% (value code-88790) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88793 (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-88792 (new prop:popup% (value code-88793))) (code-88791 (new prop:field-id% (value code-88792) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88795 (new prop:atom% (value '#t))) (code-88794 (new prop:field-id% (value code-88795) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88797 (new prop:atom% (value '0))) (code-88796 (new prop:field-id% (value code-88797) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88799 (new prop:atom% (value '0))) (code-88798 (new prop:field-id% (value code-88799) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88802 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-88803 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-88801 (new prop:group% (value (list code-88802 code-88803)))) (code-88800 (new prop:field-id% (value code-88801) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88805 (new prop:atom% (value '70))) (code-88804 (new prop:field-id% (value code-88805) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88807 (new prop:atom% (value '30))) (code-88806 (new prop:field-id% (value code-88807) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88809 (new prop:atom% (value '#t))) (code-88808 (new prop:field-id% (value code-88809) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88811 (new prop:atom% (value '#t))) (code-88810 (new prop:field-id% (value code-88811) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88778 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-88766) (properties (list (cons 'id code-88779) (cons 'label code-88781) (cons 'width code-88783) (cons 'height code-88785) (cons 'x code-88787) (cons 'y code-88789) (cons 'style code-88791) (cons 'enabled code-88794) (cons 'border code-88796) (cons 'spacing code-88798) (cons 'alignment code-88800) (cons 'min-width code-88804) (cons 'min-height code-88806) (cons 'stretchable-width code-88808) (cons 'stretchable-height code-88810))))) (code-88814 (new prop:atom% (value 'menu-bar-87972))) (code-88813 (new prop:field-id% (value code-88814) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-88816 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-88815 (new prop:field-id% (value code-88816) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88812 (new mred-id% (plugin (get-widget-plugin 'menu-bar)) (mred-parent code-88778) (properties (list (cons 'id code-88813) (cons 'demand-callback code-88815))))) (code-88819 (new prop:atom% (value 'menu-87979))) (code-88818 (new prop:field-id% (value code-88819) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-88821 (new prop:atom% (value '"&Menu"))) (code-88820 (new prop:field-id% (value code-88821) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-88823 (new prop:atom% (value '"Menu"))) (code-88822 (new prop:field-id% (value code-88823) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88825 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-88824 (new prop:field-id% (value code-88825) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88817 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-88812) (properties (list (cons 'id code-88818) (cons 'label code-88820) (cons 'help-string code-88822) (cons 'demand-callback code-88824))))) (code-88828 (new prop:atom% (value 'menu-item-87990))) (code-88827 (new prop:field-id% (value code-88828) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-88830 (new prop:atom% (value '"&Item"))) (code-88829 (new prop:field-id% (value code-88830) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-88832 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-88831 (new prop:field-id% (value code-88832) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88834 (new prop:one-of% (value '#\F) (choices (list '#f '#\A '#\B '#\C '#\D '#\E '#\F '#\G '#\H '#\I '#\J '#\K '#\L '#\M '#\N '#\O '#\P '#\Q '#\R '#\S '#\T '#\U '#\V '#\W '#\X '#\Y '#\Z '#\0 '#\1 '#\2 '#\3 '#\4 '#\5 '#\6 '#\7 '#\8 '#\9 'start 'cancel 'clear 'shift 'control 'menu 'pause 'capital 'prior 'next 'end 'home 'left 'up 'right 'down 'escape 'select 'print 'execute 'snapshot 'insert 'help 'numpad0 'numpad1 'numpad2 'numpad3 'numpad4 'numpad5 'numpad6 'numpad7 'numpad8 'numpad9 'numpad-enter 'multiply 'add 'separator 'subtract 'decimal 'divide 'f1 'f2 'f3 'f4 'f5 'f6 'f7 'f8 'f9 'f10 'f11 'f12 'f13 'f14 'f15 'f16 'f17 'f18 'f19 'f20 'f21 'f22 'f23 'f24 'numlock 'scroll)))) (code-88833 (new prop:field-id% (value code-88834) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88836 (new prop:atom% (value '"Item"))) (code-88835 (new prop:field-id% (value code-88836) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88838 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-88837 (new prop:field-id% (value code-88838) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88840 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-88839 (new prop:field-id% (value code-88840) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-88826 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-88817) (properties (list (cons 'id code-88827) (cons 'label code-88829) (cons 'callback code-88831) (cons 'shortcut code-88833) (cons 'help-string code-88835) (cons 'demand-callback code-88837) (cons 'shortcut-prefix code-88839)))))) (list code-88766 code-88778 code-88812 code-88817 code-88826)))