"menu file" (list (cons 'name "menu file") (cons 'parent-class (list menu% popup-menu% menu-bar%)) (cons 'code (lambda (parent-226731) (let* ((code-226733 parent-226731) (code-226735 (new prop:atom% (value 'menu-file))) (code-226734 (new prop:field-id% (value code-226735) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-226737 (new prop:atom% (value '"&File"))) (code-226736 (new prop:field-id% (value code-226737) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-226739 (new prop:atom% (value '"File"))) (code-226738 (new prop:field-id% (value code-226739) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226741 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-226740 (new prop:field-id% (value code-226741) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226732 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-226733) (properties (list (cons 'id code-226734) (cons 'label code-226736) (cons 'help-string code-226738) (cons 'demand-callback code-226740))))) (code-226744 (new prop:atom% (value 'menu-item-open))) (code-226743 (new prop:field-id% (value code-226744) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-226746 (new prop:atom% (value '"&Open..."))) (code-226745 (new prop:field-id% (value code-226746) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-226748 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-226747 (new prop:field-id% (value code-226748) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226750 (shortcut-values '#\O)) (code-226749 (new prop:field-id% (value code-226750) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226752 (new prop:atom% (value '"Open"))) (code-226751 (new prop:field-id% (value code-226752) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226754 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-226753 (new prop:field-id% (value code-226754) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226756 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-226755 (new prop:field-id% (value code-226756) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226742 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-226732) (properties (list (cons 'id code-226743) (cons 'label code-226745) (cons 'callback code-226747) (cons 'shortcut code-226749) (cons 'help-string code-226751) (cons 'demand-callback code-226753) (cons 'shortcut-prefix code-226755))))) (code-226759 (new prop:atom% (value 'menu-item-save))) (code-226758 (new prop:field-id% (value code-226759) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-226761 (new prop:atom% (value '"&Save"))) (code-226760 (new prop:field-id% (value code-226761) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-226763 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-226762 (new prop:field-id% (value code-226763) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226765 (shortcut-values '#\S)) (code-226764 (new prop:field-id% (value code-226765) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226767 (new prop:atom% (value '"Save"))) (code-226766 (new prop:field-id% (value code-226767) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226769 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-226768 (new prop:field-id% (value code-226769) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226771 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-226770 (new prop:field-id% (value code-226771) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226757 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-226732) (properties (list (cons 'id code-226758) (cons 'label code-226760) (cons 'callback code-226762) (cons 'shortcut code-226764) (cons 'help-string code-226766) (cons 'demand-callback code-226768) (cons 'shortcut-prefix code-226770))))) (code-226774 (new prop:atom% (value 'menu-item-save-as))) (code-226773 (new prop:field-id% (value code-226774) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-226776 (new prop:atom% (value '"&Save as..."))) (code-226775 (new prop:field-id% (value code-226776) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-226778 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-226777 (new prop:field-id% (value code-226778) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226780 (shortcut-values '#f)) (code-226779 (new prop:field-id% (value code-226780) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226782 (new prop:atom% (value '"Save as"))) (code-226781 (new prop:field-id% (value code-226782) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226784 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-226783 (new prop:field-id% (value code-226784) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226786 (new prop:some-of% (value (list 'ctl 'shift)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-226785 (new prop:field-id% (value code-226786) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226772 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-226732) (properties (list (cons 'id code-226773) (cons 'label code-226775) (cons 'callback code-226777) (cons 'shortcut code-226779) (cons 'help-string code-226781) (cons 'demand-callback code-226783) (cons 'shortcut-prefix code-226785))))) (code-226789 (new prop:atom% (value 'separator-menu-item-99622))) (code-226788 (new prop:field-id% (value code-226789) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-226787 (new mred-id% (plugin (get-widget-plugin 'separator-menu-item)) (mred-parent code-226732) (properties (list (cons 'id code-226788))))) (code-226792 (new prop:atom% (value 'menu-item-exit))) (code-226791 (new prop:field-id% (value code-226792) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-226794 (new prop:atom% (value '"E&xit"))) (code-226793 (new prop:field-id% (value code-226794) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-226796 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-226795 (new prop:field-id% (value code-226796) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226798 (shortcut-values '#\Q)) (code-226797 (new prop:field-id% (value code-226798) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226800 (new prop:atom% (value '"Exit Application"))) (code-226799 (new prop:field-id% (value code-226800) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226802 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-226801 (new prop:field-id% (value code-226802) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226804 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-226803 (new prop:field-id% (value code-226804) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-226790 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-226732) (properties (list (cons 'id code-226791) (cons 'label code-226793) (cons 'callback code-226795) (cons 'shortcut code-226797) (cons 'help-string code-226799) (cons 'demand-callback code-226801) (cons 'shortcut-prefix code-226803)))))) (list code-226732 code-226742 code-226757 code-226772 code-226787 code-226790)))))