"project-4654" (list (cons 'name "project-4654") (cons 'parent-class #f) (cons 'code (lambda (parent-4707) (let* ((code-4709 parent-4707) (code-4711 (new prop:atom% (value 'project-4654))) (code-4710 (new prop:field-id% (value code-4711) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4713 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-4654.med"))) (code-4712 (new prop:field-id% (value code-4713) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4715 (new prop:atom% (value '#f))) (code-4714 (new prop:field-id% (value code-4715) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4717 (new prop:atom% (value '#t))) (code-4716 (new prop:field-id% (value code-4717) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4719 (new prop:atom% (value (list '"framework")))) (code-4718 (new prop:field-id% (value code-4719) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4708 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-4709) (properties (list (cons 'id code-4710) (cons 'file code-4712) (cons 'code-file code-4714) (cons 'changed code-4716) (cons 'code-requires code-4718))))) (code-4722 (new prop:atom% (value 'frame-4662))) (code-4721 (new prop:field-id% (value code-4722) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4724 (new prop:atom% (value '"Frame"))) (code-4723 (new prop:field-id% (value code-4724) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4726 (new prop:atom% (value '412))) (code-4725 (new prop:field-id% (value code-4726) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4728 (new prop:atom% (value '285))) (code-4727 (new prop:field-id% (value code-4728) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4730 (new prop:atom% (value '382))) (code-4729 (new prop:field-id% (value code-4730) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4732 (new prop:atom% (value '334))) (code-4731 (new prop:field-id% (value code-4732) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4735 (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-4734 (new prop:popup% (value code-4735))) (code-4733 (new prop:field-id% (value code-4734) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4737 (new prop:atom% (value '#t))) (code-4736 (new prop:field-id% (value code-4737) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4739 (new prop:atom% (value '0))) (code-4738 (new prop:field-id% (value code-4739) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4741 (new prop:atom% (value '0))) (code-4740 (new prop:field-id% (value code-4741) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4744 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4745 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4743 (new prop:group% (value (list code-4744 code-4745)))) (code-4742 (new prop:field-id% (value code-4743) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4747 (new prop:atom% (value '70))) (code-4746 (new prop:field-id% (value code-4747) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4749 (new prop:atom% (value '30))) (code-4748 (new prop:field-id% (value code-4749) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4751 (new prop:atom% (value '#t))) (code-4750 (new prop:field-id% (value code-4751) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4753 (new prop:atom% (value '#t))) (code-4752 (new prop:field-id% (value code-4753) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4720 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-4708) (properties (list (cons 'id code-4721) (cons 'label code-4723) (cons 'width code-4725) (cons 'height code-4727) (cons 'x code-4729) (cons 'y code-4731) (cons 'style code-4733) (cons 'enabled code-4736) (cons 'border code-4738) (cons 'spacing code-4740) (cons 'alignment code-4742) (cons 'min-width code-4746) (cons 'min-height code-4748) (cons 'stretchable-width code-4750) (cons 'stretchable-height code-4752))))) (code-4756 (new prop:atom% (value 'slider-4691))) (code-4755 (new prop:field-id% (value code-4756) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4758 (new prop:atom% (value '"Slider"))) (code-4757 (new prop:field-id% (value code-4758) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4760 (new prop:atom% (value '0))) (code-4759 (new prop:field-id% (value code-4760) (field-id 'min-value) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4762 (new prop:atom% (value '100))) (code-4761 (new prop:field-id% (value code-4762) (field-id 'max-value) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4764 (new prop:atom% (value '0))) (code-4763 (new prop:field-id% (value code-4764) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4766 (new prop:code% (value (λ (slider control-event) (void))) (value-code '(λ (slider control-event) (void))))) (code-4765 (new prop:field-id% (value code-4766) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4770 (new prop:one-of% (value 'horizontal) (choices (list 'horizontal 'vertical)))) (code-4771 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4772 (new prop:some-of% (value (list)) (choices (list 'deleted 'plain)))) (code-4769 (new prop:group% (value (list code-4770 code-4771 code-4772)))) (code-4773 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-4768 (new prop:proc% (value code-4769) (prop-code code-4773))) (code-4767 (new prop:field-id% (value code-4768) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4776 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-4777 (new prop:code% (value list->font) (value-code 'list->font))) (code-4775 (new prop:font% (value code-4776) (prop-code code-4777))) (code-4774 (new prop:field-id% (value code-4775) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4779 (new prop:atom% (value '#t))) (code-4778 (new prop:field-id% (value code-4779) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4781 (new prop:atom% (value '2))) (code-4780 (new prop:field-id% (value code-4781) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4783 (new prop:atom% (value '2))) (code-4782 (new prop:field-id% (value code-4783) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4785 (new prop:atom% (value '0))) (code-4784 (new prop:field-id% (value code-4785) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4787 (new prop:atom% (value '0))) (code-4786 (new prop:field-id% (value code-4787) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4789 (new prop:atom% (value '#f))) (code-4788 (new prop:field-id% (value code-4789) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4791 (new prop:atom% (value '#f))) (code-4790 (new prop:field-id% (value code-4791) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4754 (new mred-id% (plugin (get-widget-plugin 'slider)) (mred-parent code-4720) (properties (list (cons 'id code-4755) (cons 'label code-4757) (cons 'min-value code-4759) (cons 'max-value code-4761) (cons 'init-value code-4763) (cons 'callback code-4765) (cons 'style code-4767) (cons 'font code-4774) (cons 'enabled code-4778) (cons 'vert-margin code-4780) (cons 'horiz-margin code-4782) (cons 'min-width code-4784) (cons 'min-height code-4786) (cons 'stretchable-width code-4788) (cons 'stretchable-height code-4790))))) (code-4794 (new prop:atom% (value 'gauge-4695))) (code-4793 (new prop:field-id% (value code-4794) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4796 (new prop:atom% (value '"Gauge"))) (code-4795 (new prop:field-id% (value code-4796) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4798 (new prop:atom% (value '100))) (code-4797 (new prop:field-id% (value code-4798) (field-id 'range) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4802 (new prop:one-of% (value 'horizontal) (choices (list 'horizontal 'vertical)))) (code-4803 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4804 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-4801 (new prop:group% (value (list code-4802 code-4803 code-4804)))) (code-4805 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-4800 (new prop:proc% (value code-4801) (prop-code code-4805))) (code-4799 (new prop:field-id% (value code-4800) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4808 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-4809 (new prop:code% (value list->font) (value-code 'list->font))) (code-4807 (new prop:font% (value code-4808) (prop-code code-4809))) (code-4806 (new prop:field-id% (value code-4807) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4811 (new prop:atom% (value '#t))) (code-4810 (new prop:field-id% (value code-4811) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4813 (new prop:atom% (value '2))) (code-4812 (new prop:field-id% (value code-4813) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4815 (new prop:atom% (value '2))) (code-4814 (new prop:field-id% (value code-4815) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4817 (new prop:atom% (value '0))) (code-4816 (new prop:field-id% (value code-4817) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4819 (new prop:atom% (value '0))) (code-4818 (new prop:field-id% (value code-4819) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4821 (new prop:atom% (value '#f))) (code-4820 (new prop:field-id% (value code-4821) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4823 (new prop:atom% (value '#f))) (code-4822 (new prop:field-id% (value code-4823) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4792 (new mred-id% (plugin (get-widget-plugin 'gauge)) (mred-parent code-4720) (properties (list (cons 'id code-4793) (cons 'label code-4795) (cons 'range code-4797) (cons 'style code-4799) (cons 'font code-4806) (cons 'enabled code-4810) (cons 'vert-margin code-4812) (cons 'horiz-margin code-4814) (cons 'min-width code-4816) (cons 'min-height code-4818) (cons 'stretchable-width code-4820) (cons 'stretchable-height code-4822))))) (code-4826 (new prop:atom% (value 'check-box-4699))) (code-4825 (new prop:field-id% (value code-4826) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4830 (new prop:atom% (value '"Ckeck Box"))) (code-4831 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4832 (new prop:file% (value '#f))) (code-4829 (new prop:group% (value (list code-4830 code-4831 code-4832)))) (code-4833 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4828 (new prop:proc% (value code-4829) (prop-code code-4833))) (code-4827 (new prop:field-id% (value code-4828) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4835 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4834 (new prop:field-id% (value code-4835) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4837 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-4836 (new prop:field-id% (value code-4837) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4839 (new prop:atom% (value '#t))) (code-4838 (new prop:field-id% (value code-4839) (field-id 'value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4842 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-4843 (new prop:code% (value list->font) (value-code 'list->font))) (code-4841 (new prop:font% (value code-4842) (prop-code code-4843))) (code-4840 (new prop:field-id% (value code-4841) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4845 (new prop:atom% (value '#t))) (code-4844 (new prop:field-id% (value code-4845) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4847 (new prop:atom% (value '2))) (code-4846 (new prop:field-id% (value code-4847) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4849 (new prop:atom% (value '2))) (code-4848 (new prop:field-id% (value code-4849) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4851 (new prop:atom% (value '0))) (code-4850 (new prop:field-id% (value code-4851) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4853 (new prop:atom% (value '0))) (code-4852 (new prop:field-id% (value code-4853) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4855 (new prop:atom% (value '#f))) (code-4854 (new prop:field-id% (value code-4855) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4857 (new prop:atom% (value '#f))) (code-4856 (new prop:field-id% (value code-4857) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4824 (new mred-id% (plugin (get-widget-plugin 'check-box)) (mred-parent code-4720) (properties (list (cons 'id code-4825) (cons 'label code-4827) (cons 'callback code-4834) (cons 'style code-4836) (cons 'value code-4838) (cons 'font code-4840) (cons 'enabled code-4844) (cons 'vert-margin code-4846) (cons 'horiz-margin code-4848) (cons 'min-width code-4850) (cons 'min-height code-4852) (cons 'stretchable-width code-4854) (cons 'stretchable-height code-4856))))) (code-4860 (new prop:atom% (value 'radio-box-4703))) (code-4859 (new prop:field-id% (value code-4860) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4862 (new prop:atom% (value '"Radio Box"))) (code-4861 (new prop:field-id% (value code-4862) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4864 (new prop:atom% (value (list '"&First" '"&Second")))) (code-4863 (new prop:field-id% (value code-4864) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4866 (new prop:code% (value (lambda (radio-box control-event) (void))) (value-code '(lambda (radio-box control-event) (void))))) (code-4865 (new prop:field-id% (value code-4866) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4870 (new prop:one-of% (value 'vertical) (choices (list 'vertical 'horizontal)))) (code-4871 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4872 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-4869 (new prop:group% (value (list code-4870 code-4871 code-4872)))) (code-4873 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-4868 (new prop:proc% (value code-4869) (prop-code code-4873))) (code-4867 (new prop:field-id% (value code-4868) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4876 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-4877 (new prop:code% (value list->font) (value-code 'list->font))) (code-4875 (new prop:font% (value code-4876) (prop-code code-4877))) (code-4874 (new prop:field-id% (value code-4875) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4879 (new prop:atom% (value '0))) (code-4878 (new prop:field-id% (value code-4879) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4881 (new prop:atom% (value '#t))) (code-4880 (new prop:field-id% (value code-4881) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4883 (new prop:atom% (value '2))) (code-4882 (new prop:field-id% (value code-4883) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4885 (new prop:atom% (value '2))) (code-4884 (new prop:field-id% (value code-4885) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4887 (new prop:atom% (value '0))) (code-4886 (new prop:field-id% (value code-4887) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4889 (new prop:atom% (value '0))) (code-4888 (new prop:field-id% (value code-4889) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4891 (new prop:atom% (value '#f))) (code-4890 (new prop:field-id% (value code-4891) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4893 (new prop:atom% (value '#f))) (code-4892 (new prop:field-id% (value code-4893) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4858 (new mred-id% (plugin (get-widget-plugin 'radio-box)) (mred-parent code-4720) (properties (list (cons 'id code-4859) (cons 'label code-4861) (cons 'choices code-4863) (cons 'callback code-4865) (cons 'style code-4867) (cons 'font code-4874) (cons 'selection code-4878) (cons 'enabled code-4880) (cons 'vert-margin code-4882) (cons 'horiz-margin code-4884) (cons 'min-width code-4886) (cons 'min-height code-4888) (cons 'stretchable-width code-4890) (cons 'stretchable-height code-4892)))))) (list code-4708 code-4720 code-4754 code-4792 code-4824 code-4858)))))