search

Metaxal / MrEd-Designer

Easily design Racket GUI applications
GNU General Public License v2.0
59 stars 6 forks source link

cannot edit existing project, Hierarchy window frozen showing blank items #7

Closed DexterLagan closed 4 years ago

DexterLagan commented 5 years ago

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

Metaxal commented 5 years ago

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg .

DexterLagan commented 5 years ago

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau notifications@github.com wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread < https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863, or mute the thread https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg .

Metaxal commented 5 years ago

I think you forgot to attach the file ;)

On Mon, Nov 12, 2018 at 12:40 PM DexterLagan notifications@github.com wrote:

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau notifications@github.com wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863>, or mute the thread < https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg

.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437864790, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHAWWh_xBcR75CipTiP1ur9Oye4j6ks5uuWwlgaJpZM4YZiyg .

DexterLagan commented 5 years ago

Strange, it shows as attached in my sent items. Here it is again. I hope it wasn't stripped.

Dex

On 11/12/18, Laurent Orseau notifications@github.com wrote:

I think you forgot to attach the file ;)

On Mon, Nov 12, 2018 at 12:40 PM DexterLagan notifications@github.com wrote:

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau notifications@github.com wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863>, or mute the thread < https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg

.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437864790, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHAWWh_xBcR75CipTiP1ur9Oye4j6ks5uuWwlgaJpZM4YZiyg .

-- You are receiving this because you authored the thread. Reply to this email directly or view it on GitHub: https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437877826

"benchmark" (list (cons 'name "benchmark") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-4762) (let* ((code-4764 parent-4762) (code-4766 (new prop:atom% (value 'benchmark))) (code-4765 (new prop:field-id% (value code-4766) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4768 (new prop:code% (value project%) (value-code 'project%))) (code-4767 (new prop:field-id% (value code-4768) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4770 (new prop:atom% (value '"D:\Code\Projects (Racket)\benchmark\benchmark.med"))) (code-4769 (new prop:field-id% (value code-4770) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4772 (new prop:atom% (value '#f))) (code-4771 (new prop:field-id% (value code-4772) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4774 (new prop:atom% (value '#t))) (code-4773 (new prop:field-id% (value code-4774) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4776 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-4775 (new prop:field-id% (value code-4776) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4778 (new prop:atom% (value '#f))) (code-4777 (new prop:field-id% (value code-4778) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4763 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-4764) (properties (list (cons 'id code-4765) (cons 'code-gen-class code-4767) (cons 'file code-4769) (cons 'code-file code-4771) (cons 'changed code-4773) (cons 'code-requires code-4775) (cons 'runtime-paths? code-4777))))) (code-4781 (new prop:atom% (value 'main-window))) (code-4780 (new prop:field-id% (value code-4781) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4783 (new prop:code% (value frame%) (value-code 'frame%))) (code-4782 (new prop:field-id% (value code-4783) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4785 (new prop:atom% (value '"benchmark"))) (code-4784 (new prop:field-id% (value code-4785) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4789 (new prop:atom% (value '#t))) (code-4790 (new prop:atom% (value '500))) (code-4788 (new prop:hgroup% (value (list code-4789 code-4790)))) (code-4791 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4787 (new prop:proc% (value code-4788) (prop-code code-4791) (generate-quoted-code '#f))) (code-4786 (new prop:field-id% (value code-4787) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4795 (new prop:atom% (value '#t))) (code-4796 (new prop:atom% (value '400))) (code-4794 (new prop:hgroup% (value (list code-4795 code-4796)))) (code-4797 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4793 (new prop:proc% (value code-4794) (prop-code code-4797) (generate-quoted-code '#f))) (code-4792 (new prop:field-id% (value code-4793) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4801 (new prop:atom% (value '#f))) (code-4802 (new prop:atom% (value '0))) (code-4800 (new prop:hgroup% (value (list code-4801 code-4802)))) (code-4803 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4799 (new prop:proc% (value code-4800) (prop-code code-4803) (generate-quoted-code '#f))) (code-4798 (new prop:field-id% (value code-4799) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4807 (new prop:atom% (value '#f))) (code-4808 (new prop:atom% (value '0))) (code-4806 (new prop:hgroup% (value (list code-4807 code-4808)))) (code-4809 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4805 (new prop:proc% (value code-4806) (prop-code code-4809) (generate-quoted-code '#f))) (code-4804 (new prop:field-id% (value code-4805) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4812 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-4811 (new prop:popup% (value code-4812))) (code-4810 (new prop:field-id% (value code-4811) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4814 (new prop:atom% (value '#t))) (code-4813 (new prop:field-id% (value code-4814) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4816 (new prop:atom% (value '15))) (code-4815 (new prop:field-id% (value code-4816) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4818 (new prop:atom% (value '0))) (code-4817 (new prop:field-id% (value code-4818) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4821 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4822 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4820 (new prop:group% (value (list code-4821 code-4822)))) (code-4819 (new prop:field-id% (value code-4820) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4824 (new prop:atom% (value '70))) (code-4823 (new prop:field-id% (value code-4824) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4826 (new prop:atom% (value '30))) (code-4825 (new prop:field-id% (value code-4826) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4828 (new prop:atom% (value '#t))) (code-4827 (new prop:field-id% (value code-4828) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4830 (new prop:atom% (value '#t))) (code-4829 (new prop:field-id% (value code-4830) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4832 (new prop:atom% (value '#t))) (code-4831 (new prop:field-id% (value code-4832) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4779 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-4763) (properties (list (cons 'id code-4780) (cons 'code-gen-class code-4782) (cons 'label code-4784) (cons 'width code-4786) (cons 'height code-4792) (cons 'x code-4798) (cons 'y code-4804) (cons 'style code-4810) (cons 'enabled code-4813) (cons 'border code-4815) (cons 'spacing code-4817) (cons 'alignment code-4819) (cons 'min-width code-4823) (cons 'min-height code-4825) (cons 'stretchable-width code-4827) (cons 'stretchable-height code-4829) (cons 'show-at-init code-4831))))) (code-4835 (new prop:atom% (value 'editor-pane))) (code-4834 (new prop:field-id% (value code-4835) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4837 (new prop:code% (value pane%) (value-code 'pane%))) (code-4836 (new prop:field-id% (value code-4837) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4839 (new prop:atom% (value '0))) (code-4838 (new prop:field-id% (value code-4839) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4841 (new prop:atom% (value '0))) (code-4840 (new prop:field-id% (value code-4841) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4843 (new prop:atom% (value '0))) (code-4842 (new prop:field-id% (value code-4843) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4845 (new prop:atom% (value '0))) (code-4844 (new prop:field-id% (value code-4845) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4848 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4849 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4847 (new prop:group% (value (list code-4848 code-4849)))) (code-4846 (new prop:field-id% (value code-4847) (field-id 'alignment) (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 '#t))) (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 '#t))) (code-4856 (new prop:field-id% (value code-4857) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4833 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-4779) (properties (list (cons 'id code-4834) (cons 'code-gen-class code-4836) (cons 'vert-margin code-4838) (cons 'horiz-margin code-4840) (cons 'border code-4842) (cons 'spacing code-4844) (cons 'alignment code-4846) (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 'bench-list-box))) (code-4859 (new prop:field-id% (value code-4860) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4862 (new prop:code% (value list-box%) (value-code 'list-box%))) (code-4861 (new prop:field-id% (value code-4862) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4866 (new prop:atom% (value '#f))) (code-4867 (new prop:atom% (value '"List Box"))) (code-4865 (new prop:hgroup% (value (list code-4866 code-4867)))) (code-4868 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4864 (new prop:proc% (value code-4865) (prop-code code-4868) (generate-quoted-code '#f))) (code-4863 (new prop:field-id% (value code-4864) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4870 (new prop:atom% (value (list '"First")))) (code-4869 (new prop:field-id% (value code-4870) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4872 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-4871 (new prop:field-id% (value code-4872) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4876 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-4877 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4878 (new prop:some-of% (value (list)) (choices (list 'deleted 'variable-columns 'column-headers 'clickable-headers 'reorderable-headers)))) (code-4875 (new prop:group% (value (list code-4876 code-4877 code-4878)))) (code-4879 (new prop:code% (value (位 (l) (list (first l) (second l) (third l)))) (value-code '(位 (l) (list (first l) (second l) (third l)))))) (code-4874 (new prop:proc% (value code-4875) (prop-code code-4879) (generate-quoted-code '#t))) (code-4873 (new prop:field-id% (value code-4874) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4882 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4883 (new prop:code% (value list->font) (value-code 'list->font))) (code-4881 (new prop:font% (value code-4882) (prop-code code-4883) (generate-quoted-code '#t))) (code-4880 (new prop:field-id% (value code-4881) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4887 (new prop:atom% (value '#t))) (code-4888 (new prop:atom% (value '0))) (code-4886 (new prop:hgroup% (value (list code-4887 code-4888)))) (code-4889 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4885 (new prop:proc% (value code-4886) (prop-code code-4889) (generate-quoted-code '#f))) (code-4884 (new prop:field-id% (value code-4885) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4891 (new prop:atom% (value '#t))) (code-4890 (new prop:field-id% (value code-4891) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4893 (new prop:atom% (value '2))) (code-4892 (new prop:field-id% (value code-4893) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4895 (new prop:atom% (value '2))) (code-4894 (new prop:field-id% (value code-4895) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4897 (new prop:atom% (value '0))) (code-4896 (new prop:field-id% (value code-4897) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4899 (new prop:atom% (value '0))) (code-4898 (new prop:field-id% (value code-4899) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4901 (new prop:atom% (value '#t))) (code-4900 (new prop:field-id% (value code-4901) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4903 (new prop:atom% (value '#t))) (code-4902 (new prop:field-id% (value code-4903) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4905 (new prop:atom% (value (list '"Column")))) (code-4904 (new prop:field-id% (value code-4905) (field-id 'columns) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4907 (new prop:atom% (value '#f))) (code-4906 (new prop:field-id% (value code-4907) (field-id 'column-order) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4858 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-4833) (properties (list (cons 'id code-4859) (cons 'code-gen-class code-4861) (cons 'label code-4863) (cons 'choices code-4869) (cons 'callback code-4871) (cons 'style code-4873) (cons 'font code-4880) (cons 'selection code-4884) (cons 'enabled code-4890) (cons 'vert-margin code-4892) (cons 'horiz-margin code-4894) (cons 'min-width code-4896) (cons 'min-height code-4898) (cons 'stretchable-width code-4900) (cons 'stretchable-height code-4902) (cons 'columns code-4904) (cons 'column-order code-4906))))) (code-4910 (new prop:atom% (value 'bottom-buttons-pane))) (code-4909 (new prop:field-id% (value code-4910) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4912 (new prop:code% (value horizontal-pane%) (value-code 'horizontal-pane%))) (code-4911 (new prop:field-id% (value code-4912) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4914 (new prop:atom% (value '0))) (code-4913 (new prop:field-id% (value code-4914) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4916 (new prop:atom% (value '0))) (code-4915 (new prop:field-id% (value code-4916) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4918 (new prop:atom% (value '0))) (code-4917 (new prop:field-id% (value code-4918) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4920 (new prop:atom% (value '0))) (code-4919 (new prop:field-id% (value code-4920) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4923 (new prop:one-of% (value 'right) (choices (list 'left 'center 'right)))) (code-4924 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-4922 (new prop:group% (value (list code-4923 code-4924)))) (code-4921 (new prop:field-id% (value code-4922) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4926 (new prop:atom% (value '0))) (code-4925 (new prop:field-id% (value code-4926) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4928 (new prop:atom% (value '0))) (code-4927 (new prop:field-id% (value code-4928) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4930 (new prop:atom% (value '#t))) (code-4929 (new prop:field-id% (value code-4930) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4932 (new prop:atom% (value '#f))) (code-4931 (new prop:field-id% (value code-4932) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4908 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-4779) (properties (list (cons 'id code-4909) (cons 'code-gen-class code-4911) (cons 'vert-margin code-4913) (cons 'horiz-margin code-4915) (cons 'border code-4917) (cons 'spacing code-4919) (cons 'alignment code-4921) (cons 'min-width code-4925) (cons 'min-height code-4927) (cons 'stretchable-width code-4929) (cons 'stretchable-height code-4931))))) (code-4935 (new prop:atom% (value 'cancel-button))) (code-4934 (new prop:field-id% (value code-4935) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4937 (new prop:code% (value button%) (value-code 'button%))) (code-4936 (new prop:field-id% (value code-4937) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4941 (new prop:atom% (value '"Cancel"))) (code-4942 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4943 (new prop:file% (value '#f))) (code-4940 (new prop:group% (value (list code-4941 code-4942 code-4943)))) (code-4944 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4939 (new prop:proc% (value code-4940) (prop-code code-4944) (generate-quoted-code '#t))) (code-4938 (new prop:field-id% (value code-4939) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4946 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4945 (new prop:field-id% (value code-4946) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4948 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4947 (new prop:field-id% (value code-4948) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4951 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4952 (new prop:code% (value list->font) (value-code 'list->font))) (code-4950 (new prop:font% (value code-4951) (prop-code code-4952) (generate-quoted-code '#t))) (code-4949 (new prop:field-id% (value code-4950) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4954 (new prop:atom% (value '#t))) (code-4953 (new prop:field-id% (value code-4954) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4956 (new prop:atom% (value '2))) (code-4955 (new prop:field-id% (value code-4956) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4958 (new prop:atom% (value '2))) (code-4957 (new prop:field-id% (value code-4958) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4960 (new prop:atom% (value '0))) (code-4959 (new prop:field-id% (value code-4960) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4962 (new prop:atom% (value '0))) (code-4961 (new prop:field-id% (value code-4962) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4964 (new prop:atom% (value '#f))) (code-4963 (new prop:field-id% (value code-4964) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4966 (new prop:atom% (value '#f))) (code-4965 (new prop:field-id% (value code-4966) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4933 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4934) (cons 'code-gen-class code-4936) (cons 'label code-4938) (cons 'callback code-4945) (cons 'style code-4947) (cons 'font code-4949) (cons 'enabled code-4953) (cons 'vert-margin code-4955) (cons 'horiz-margin code-4957) (cons 'min-width code-4959) (cons 'min-height code-4961) (cons 'stretchable-width code-4963) (cons 'stretchable-height code-4965))))) (code-4969 (new prop:atom% (value 'ok-button))) (code-4968 (new prop:field-id% (value code-4969) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4971 (new prop:code% (value button%) (value-code 'button%))) (code-4970 (new prop:field-id% (value code-4971) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4975 (new prop:atom% (value '"OK"))) (code-4976 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4977 (new prop:file% (value '#f))) (code-4974 (new prop:group% (value (list code-4975 code-4976 code-4977)))) (code-4978 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4973 (new prop:proc% (value code-4974) (prop-code code-4978) (generate-quoted-code '#t))) (code-4972 (new prop:field-id% (value code-4973) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4980 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4979 (new prop:field-id% (value code-4980) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4982 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4981 (new prop:field-id% (value code-4982) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4985 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4986 (new prop:code% (value list->font) (value-code 'list->font))) (code-4984 (new prop:font% (value code-4985) (prop-code code-4986) (generate-quoted-code '#t))) (code-4983 (new prop:field-id% (value code-4984) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4988 (new prop:atom% (value '#t))) (code-4987 (new prop:field-id% (value code-4988) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4990 (new prop:atom% (value '2))) (code-4989 (new prop:field-id% (value code-4990) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4992 (new prop:atom% (value '2))) (code-4991 (new prop:field-id% (value code-4992) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4994 (new prop:atom% (value '0))) (code-4993 (new prop:field-id% (value code-4994) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4996 (new prop:atom% (value '0))) (code-4995 (new prop:field-id% (value code-4996) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4998 (new prop:atom% (value '#f))) (code-4997 (new prop:field-id% (value code-4998) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-5000 (new prop:atom% (value '#f))) (code-4999 (new prop:field-id% (value code-5000) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4967 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4968) (cons 'code-gen-class code-4970) (cons 'label code-4972) (cons 'callback code-4979) (cons 'style code-4981) (cons 'font code-4983) (cons 'enabled code-4987) (cons 'vert-margin code-4989) (cons 'horiz-margin code-4991) (cons 'min-width code-4993) (cons 'min-height code-4995) (cons 'stretchable-width code-4997) (cons 'stretchable-height code-4999)))))) (list code-4763 code-4779 code-4833 code-4858 code-4908 code-4933 code-4967)))))

Metaxal commented 5 years ago

I think I know what happened: MrEd Designer save the project file with some utf-8 characters in them (namely, λ) and your system (windows?) didn't like that.

I've changed the code to generate ascii files, so it should be fine now. It may take an hour (I think) before racket's package system knows there's a new version though.

Also, if you launch MED from the command line, you will see error messages in case it fails to work properly. On unix system, you can run "racket -l mred-designer". On windows, you'll probably have to find the full path for racket (I'm not sure), but the rest of the line is the same.

Let me know if that fixes the problem.

On Mon, Nov 12, 2018 at 1:35 PM DexterLagan notifications@github.com wrote:

Strange, it shows as attached in my sent items. Here it is again. I hope it wasn't stripped.

Dex

On 11/12/18, Laurent Orseau notifications@github.com wrote:

I think you forgot to attach the file ;)

On Mon, Nov 12, 2018 at 12:40 PM DexterLagan notifications@github.com wrote:

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau < notifications@github.com> wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863>,

or mute the thread <

https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg

.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437864790>, or mute the thread < https://github.com/notifications/unsubscribe-auth/ABlNHAWWh_xBcR75CipTiP1ur9Oye4j6ks5uuWwlgaJpZM4YZiyg

.

-- You are receiving this because you authored the thread. Reply to this email directly or view it on GitHub: https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437877826

"benchmark" (list (cons 'name "benchmark") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-4762) (let* ((code-4764 parent-4762) (code-4766 (new prop:atom% (value 'benchmark))) (code-4765 (new prop:field-id% (value code-4766) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4768 (new prop:code% (value project%) (value-code 'project%))) (code-4767 (new prop:field-id% (value code-4768) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4770 (new prop:atom% (value '"D:\Code\Projects (Racket)\benchmark\benchmark.med"))) (code-4769 (new prop:field-id% (value code-4770) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4772 (new prop:atom% (value '#f))) (code-4771 (new prop:field-id% (value code-4772) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4774 (new prop:atom% (value '#t))) (code-4773 (new prop:field-id% (value code-4774) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4776 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-4775 (new prop:field-id% (value code-4776) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4778 (new prop:atom% (value '#f))) (code-4777 (new prop:field-id% (value code-4778) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4763 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-4764) (properties (list (cons 'id code-4765) (cons 'code-gen-class code-4767) (cons 'file code-4769) (cons 'code-file code-4771) (cons 'changed code-4773) (cons 'code-requires code-4775) (cons 'runtime-paths? code-4777))))) (code-4781 (new prop:atom% (value 'main-window))) (code-4780 (new prop:field-id% (value code-4781) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4783 (new prop:code% (value frame%) (value-code 'frame%))) (code-4782 (new prop:field-id% (value code-4783) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4785 (new prop:atom% (value '"benchmark"))) (code-4784 (new prop:field-id% (value code-4785) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4789 (new prop:atom% (value '#t))) (code-4790 (new prop:atom% (value '500))) (code-4788 (new prop:hgroup% (value (list code-4789 code-4790)))) (code-4791 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4787 (new prop:proc% (value code-4788) (prop-code code-4791) (generate-quoted-code '#f))) (code-4786 (new prop:field-id% (value code-4787) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4795 (new prop:atom% (value '#t))) (code-4796 (new prop:atom% (value '400))) (code-4794 (new prop:hgroup% (value (list code-4795 code-4796)))) (code-4797 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4793 (new prop:proc% (value code-4794) (prop-code code-4797) (generate-quoted-code '#f))) (code-4792 (new prop:field-id% (value code-4793) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4801 (new prop:atom% (value '#f))) (code-4802 (new prop:atom% (value '0))) (code-4800 (new prop:hgroup% (value (list code-4801 code-4802)))) (code-4803 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4799 (new prop:proc% (value code-4800) (prop-code code-4803) (generate-quoted-code '#f))) (code-4798 (new prop:field-id% (value code-4799) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4807 (new prop:atom% (value '#f))) (code-4808 (new prop:atom% (value '0))) (code-4806 (new prop:hgroup% (value (list code-4807 code-4808)))) (code-4809 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4805 (new prop:proc% (value code-4806) (prop-code code-4809) (generate-quoted-code '#f))) (code-4804 (new prop:field-id% (value code-4805) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4812 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-4811 (new prop:popup% (value code-4812))) (code-4810 (new prop:field-id% (value code-4811) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4814 (new prop:atom% (value '#t))) (code-4813 (new prop:field-id% (value code-4814) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4816 (new prop:atom% (value '15))) (code-4815 (new prop:field-id% (value code-4816) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4818 (new prop:atom% (value '0))) (code-4817 (new prop:field-id% (value code-4818) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4821 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4822 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4820 (new prop:group% (value (list code-4821 code-4822)))) (code-4819 (new prop:field-id% (value code-4820) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4824 (new prop:atom% (value '70))) (code-4823 (new prop:field-id% (value code-4824) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4826 (new prop:atom% (value '30))) (code-4825 (new prop:field-id% (value code-4826) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4828 (new prop:atom% (value '#t))) (code-4827 (new prop:field-id% (value code-4828) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4830 (new prop:atom% (value '#t))) (code-4829 (new prop:field-id% (value code-4830) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4832 (new prop:atom% (value '#t))) (code-4831 (new prop:field-id% (value code-4832) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4779 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-4763) (properties (list (cons 'id code-4780) (cons 'code-gen-class code-4782) (cons 'label code-4784) (cons 'width code-4786) (cons 'height code-4792) (cons 'x code-4798) (cons 'y code-4804) (cons 'style code-4810) (cons 'enabled code-4813) (cons 'border code-4815) (cons 'spacing code-4817) (cons 'alignment code-4819) (cons 'min-width code-4823) (cons 'min-height code-4825) (cons 'stretchable-width code-4827) (cons 'stretchable-height code-4829) (cons 'show-at-init code-4831))))) (code-4835 (new prop:atom% (value 'editor-pane))) (code-4834 (new prop:field-id% (value code-4835) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4837 (new prop:code% (value pane%) (value-code 'pane%))) (code-4836 (new prop:field-id% (value code-4837) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4839 (new prop:atom% (value '0))) (code-4838 (new prop:field-id% (value code-4839) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4841 (new prop:atom% (value '0))) (code-4840 (new prop:field-id% (value code-4841) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4843 (new prop:atom% (value '0))) (code-4842 (new prop:field-id% (value code-4843) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4845 (new prop:atom% (value '0))) (code-4844 (new prop:field-id% (value code-4845) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4848 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4849 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4847 (new prop:group% (value (list code-4848 code-4849)))) (code-4846 (new prop:field-id% (value code-4847) (field-id 'alignment) (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 '#t))) (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 '#t))) (code-4856 (new prop:field-id% (value code-4857) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4833 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-4779) (properties (list (cons 'id code-4834) (cons 'code-gen-class code-4836) (cons 'vert-margin code-4838) (cons 'horiz-margin code-4840) (cons 'border code-4842) (cons 'spacing code-4844) (cons 'alignment code-4846) (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 'bench-list-box))) (code-4859 (new prop:field-id% (value code-4860) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4862 (new prop:code% (value list-box%) (value-code 'list-box%))) (code-4861 (new prop:field-id% (value code-4862) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4866 (new prop:atom% (value '#f))) (code-4867 (new prop:atom% (value '"List Box"))) (code-4865 (new prop:hgroup% (value (list code-4866 code-4867)))) (code-4868 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4864 (new prop:proc% (value code-4865) (prop-code code-4868) (generate-quoted-code '#f))) (code-4863 (new prop:field-id% (value code-4864) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4870 (new prop:atom% (value (list '"First")))) (code-4869 (new prop:field-id% (value code-4870) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4872 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-4871 (new prop:field-id% (value code-4872) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4876 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-4877 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4878 (new prop:some-of% (value (list)) (choices (list 'deleted 'variable-columns 'column-headers 'clickable-headers 'reorderable-headers)))) (code-4875 (new prop:group% (value (list code-4876 code-4877 code-4878)))) (code-4879 (new prop:code% (value (位 (l) (list (first l) (second l) (third l)))) (value-code '(位 (l) (list (first l) (second l) (third l)))))) (code-4874 (new prop:proc% (value code-4875) (prop-code code-4879) (generate-quoted-code '#t))) (code-4873 (new prop:field-id% (value code-4874) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4882 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4883 (new prop:code% (value list->font) (value-code 'list->font))) (code-4881 (new prop:font% (value code-4882) (prop-code code-4883) (generate-quoted-code '#t))) (code-4880 (new prop:field-id% (value code-4881) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4887 (new prop:atom% (value '#t))) (code-4888 (new prop:atom% (value '0))) (code-4886 (new prop:hgroup% (value (list code-4887 code-4888)))) (code-4889 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4885 (new prop:proc% (value code-4886) (prop-code code-4889) (generate-quoted-code '#f))) (code-4884 (new prop:field-id% (value code-4885) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4891 (new prop:atom% (value '#t))) (code-4890 (new prop:field-id% (value code-4891) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4893 (new prop:atom% (value '2))) (code-4892 (new prop:field-id% (value code-4893) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4895 (new prop:atom% (value '2))) (code-4894 (new prop:field-id% (value code-4895) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4897 (new prop:atom% (value '0))) (code-4896 (new prop:field-id% (value code-4897) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4899 (new prop:atom% (value '0))) (code-4898 (new prop:field-id% (value code-4899) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4901 (new prop:atom% (value '#t))) (code-4900 (new prop:field-id% (value code-4901) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4903 (new prop:atom% (value '#t))) (code-4902 (new prop:field-id% (value code-4903) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4905 (new prop:atom% (value (list '"Column")))) (code-4904 (new prop:field-id% (value code-4905) (field-id 'columns) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4907 (new prop:atom% (value '#f))) (code-4906 (new prop:field-id% (value code-4907) (field-id 'column-order) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4858 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-4833) (properties (list (cons 'id code-4859) (cons 'code-gen-class code-4861) (cons 'label code-4863) (cons 'choices code-4869) (cons 'callback code-4871) (cons 'style code-4873) (cons 'font code-4880) (cons 'selection code-4884) (cons 'enabled code-4890) (cons 'vert-margin code-4892) (cons 'horiz-margin code-4894) (cons 'min-width code-4896) (cons 'min-height code-4898) (cons 'stretchable-width code-4900) (cons 'stretchable-height code-4902) (cons 'columns code-4904) (cons 'column-order code-4906))))) (code-4910 (new prop:atom% (value 'bottom-buttons-pane))) (code-4909 (new prop:field-id% (value code-4910) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4912 (new prop:code% (value horizontal-pane%) (value-code 'horizontal-pane%))) (code-4911 (new prop:field-id% (value code-4912) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4914 (new prop:atom% (value '0))) (code-4913 (new prop:field-id% (value code-4914) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4916 (new prop:atom% (value '0))) (code-4915 (new prop:field-id% (value code-4916) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4918 (new prop:atom% (value '0))) (code-4917 (new prop:field-id% (value code-4918) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4920 (new prop:atom% (value '0))) (code-4919 (new prop:field-id% (value code-4920) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4923 (new prop:one-of% (value 'right) (choices (list 'left 'center 'right)))) (code-4924 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-4922 (new prop:group% (value (list code-4923 code-4924)))) (code-4921 (new prop:field-id% (value code-4922) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4926 (new prop:atom% (value '0))) (code-4925 (new prop:field-id% (value code-4926) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4928 (new prop:atom% (value '0))) (code-4927 (new prop:field-id% (value code-4928) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4930 (new prop:atom% (value '#t))) (code-4929 (new prop:field-id% (value code-4930) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4932 (new prop:atom% (value '#f))) (code-4931 (new prop:field-id% (value code-4932) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4908 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-4779) (properties (list (cons 'id code-4909) (cons 'code-gen-class code-4911) (cons 'vert-margin code-4913) (cons 'horiz-margin code-4915) (cons 'border code-4917) (cons 'spacing code-4919) (cons 'alignment code-4921) (cons 'min-width code-4925) (cons 'min-height code-4927) (cons 'stretchable-width code-4929) (cons 'stretchable-height code-4931))))) (code-4935 (new prop:atom% (value 'cancel-button))) (code-4934 (new prop:field-id% (value code-4935) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4937 (new prop:code% (value button%) (value-code 'button%))) (code-4936 (new prop:field-id% (value code-4937) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4941 (new prop:atom% (value '"Cancel"))) (code-4942 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4943 (new prop:file% (value '#f))) (code-4940 (new prop:group% (value (list code-4941 code-4942 code-4943)))) (code-4944 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4939 (new prop:proc% (value code-4940) (prop-code code-4944) (generate-quoted-code '#t))) (code-4938 (new prop:field-id% (value code-4939) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4946 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4945 (new prop:field-id% (value code-4946) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4948 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4947 (new prop:field-id% (value code-4948) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4951 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4952 (new prop:code% (value list->font) (value-code 'list->font))) (code-4950 (new prop:font% (value code-4951) (prop-code code-4952) (generate-quoted-code '#t))) (code-4949 (new prop:field-id% (value code-4950) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4954 (new prop:atom% (value '#t))) (code-4953 (new prop:field-id% (value code-4954) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4956 (new prop:atom% (value '2))) (code-4955 (new prop:field-id% (value code-4956) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4958 (new prop:atom% (value '2))) (code-4957 (new prop:field-id% (value code-4958) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4960 (new prop:atom% (value '0))) (code-4959 (new prop:field-id% (value code-4960) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4962 (new prop:atom% (value '0))) (code-4961 (new prop:field-id% (value code-4962) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4964 (new prop:atom% (value '#f))) (code-4963 (new prop:field-id% (value code-4964) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4966 (new prop:atom% (value '#f))) (code-4965 (new prop:field-id% (value code-4966) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4933 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4934) (cons 'code-gen-class code-4936) (cons 'label code-4938) (cons 'callback code-4945) (cons 'style code-4947) (cons 'font code-4949) (cons 'enabled code-4953) (cons 'vert-margin code-4955) (cons 'horiz-margin code-4957) (cons 'min-width code-4959) (cons 'min-height code-4961) (cons 'stretchable-width code-4963) (cons 'stretchable-height code-4965))))) (code-4969 (new prop:atom% (value 'ok-button))) (code-4968 (new prop:field-id% (value code-4969) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4971 (new prop:code% (value button%) (value-code 'button%))) (code-4970 (new prop:field-id% (value code-4971) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4975 (new prop:atom% (value '"OK"))) (code-4976 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4977 (new prop:file% (value '#f))) (code-4974 (new prop:group% (value (list code-4975 code-4976 code-4977)))) (code-4978 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4973 (new prop:proc% (value code-4974) (prop-code code-4978) (generate-quoted-code '#t))) (code-4972 (new prop:field-id% (value code-4973) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4980 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4979 (new prop:field-id% (value code-4980) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4982 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4981 (new prop:field-id% (value code-4982) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4985 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4986 (new prop:code% (value list->font) (value-code 'list->font))) (code-4984 (new prop:font% (value code-4985) (prop-code code-4986) (generate-quoted-code '#t))) (code-4983 (new prop:field-id% (value code-4984) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4988 (new prop:atom% (value '#t))) (code-4987 (new prop:field-id% (value code-4988) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4990 (new prop:atom% (value '2))) (code-4989 (new prop:field-id% (value code-4990) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4992 (new prop:atom% (value '2))) (code-4991 (new prop:field-id% (value code-4992) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4994 (new prop:atom% (value '0))) (code-4993 (new prop:field-id% (value code-4994) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4996 (new prop:atom% (value '0))) (code-4995 (new prop:field-id% (value code-4996) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4998 (new prop:atom% (value '#f))) (code-4997 (new prop:field-id% (value code-4998) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-5000 (new prop:atom% (value '#f))) (code-4999 (new prop:field-id% (value code-5000) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4967 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4968) (cons 'code-gen-class code-4970) (cons 'label code-4972) (cons 'callback code-4979) (cons 'style code-4981) (cons 'font code-4983) (cons 'enabled code-4987) (cons 'vert-margin code-4989) (cons 'horiz-margin code-4991) (cons 'min-width code-4993) (cons 'min-height code-4995) (cons 'stretchable-width code-4997) (cons 'stretchable-height code-4999)))))) (list code-4763 code-4779 code-4833 code-4858 code-4908 code-4933 code-4967)))))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437882000, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHC1V3gIrLxKgUfAKz4MZtmMoVcmmks5uuXkKgaJpZM4YZiyg .

DexterLagan commented 5 years ago

I see! Yes in using Windows 10 as I've had problems with DrRacket in Linux. Do you know of a good distro on which DrRacket works correctly for you?

I wouldn't mind using a different editor as long as there is the REPL, but apart from Emacs and a heavily customized Vim, I haven't seen a good alternative to DrRacket. Any suggestion?

Thanks a bunch!

Dex

On Nov 17, 2018, at 4:07 PM, Laurent Orseau notifications@github.com wrote:

I think I know what happened: MrEd Designer save the project file with some utf-8 characters in them (namely, λ) and your system (windows?) didn't like that.

I've changed the code to generate ascii files, so it should be fine now. It may take an hour (I think) before racket's package system knows there's a new version though.

Also, if you launch MED from the command line, you will see error messages in case it fails to work properly. On unix system, you can run "racket -l mred-designer". On windows, you'll probably have to find the full path for racket (I'm not sure), but the rest of the line is the same.

Let me know if that fixes the problem.

On Mon, Nov 12, 2018 at 1:35 PM DexterLagan notifications@github.com wrote:

Strange, it shows as attached in my sent items. Here it is again. I hope it wasn't stripped.

Dex

On 11/12/18, Laurent Orseau notifications@github.com wrote:

I think you forgot to attach the file ;)

On Mon, Nov 12, 2018 at 12:40 PM DexterLagan notifications@github.com wrote:

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau < notifications@github.com> wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863>,

or mute the thread <

https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg

.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437864790>, or mute the thread < https://github.com/notifications/unsubscribe-auth/ABlNHAWWh_xBcR75CipTiP1ur9Oye4j6ks5uuWwlgaJpZM4YZiyg

.

-- You are receiving this because you authored the thread. Reply to this email directly or view it on GitHub: https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437877826

"benchmark" (list (cons 'name "benchmark") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-4762) (let* ((code-4764 parent-4762) (code-4766 (new prop:atom% (value 'benchmark))) (code-4765 (new prop:field-id% (value code-4766) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4768 (new prop:code% (value project%) (value-code 'project%))) (code-4767 (new prop:field-id% (value code-4768) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4770 (new prop:atom% (value '"D:\Code\Projects (Racket)\benchmark\benchmark.med"))) (code-4769 (new prop:field-id% (value code-4770) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4772 (new prop:atom% (value '#f))) (code-4771 (new prop:field-id% (value code-4772) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4774 (new prop:atom% (value '#t))) (code-4773 (new prop:field-id% (value code-4774) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4776 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-4775 (new prop:field-id% (value code-4776) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4778 (new prop:atom% (value '#f))) (code-4777 (new prop:field-id% (value code-4778) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4763 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-4764) (properties (list (cons 'id code-4765) (cons 'code-gen-class code-4767) (cons 'file code-4769) (cons 'code-file code-4771) (cons 'changed code-4773) (cons 'code-requires code-4775) (cons 'runtime-paths? code-4777))))) (code-4781 (new prop:atom% (value 'main-window))) (code-4780 (new prop:field-id% (value code-4781) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4783 (new prop:code% (value frame%) (value-code 'frame%))) (code-4782 (new prop:field-id% (value code-4783) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4785 (new prop:atom% (value '"benchmark"))) (code-4784 (new prop:field-id% (value code-4785) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4789 (new prop:atom% (value '#t))) (code-4790 (new prop:atom% (value '500))) (code-4788 (new prop:hgroup% (value (list code-4789 code-4790)))) (code-4791 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4787 (new prop:proc% (value code-4788) (prop-code code-4791) (generate-quoted-code '#f))) (code-4786 (new prop:field-id% (value code-4787) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4795 (new prop:atom% (value '#t))) (code-4796 (new prop:atom% (value '400))) (code-4794 (new prop:hgroup% (value (list code-4795 code-4796)))) (code-4797 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4793 (new prop:proc% (value code-4794) (prop-code code-4797) (generate-quoted-code '#f))) (code-4792 (new prop:field-id% (value code-4793) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4801 (new prop:atom% (value '#f))) (code-4802 (new prop:atom% (value '0))) (code-4800 (new prop:hgroup% (value (list code-4801 code-4802)))) (code-4803 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4799 (new prop:proc% (value code-4800) (prop-code code-4803) (generate-quoted-code '#f))) (code-4798 (new prop:field-id% (value code-4799) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4807 (new prop:atom% (value '#f))) (code-4808 (new prop:atom% (value '0))) (code-4806 (new prop:hgroup% (value (list code-4807 code-4808)))) (code-4809 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4805 (new prop:proc% (value code-4806) (prop-code code-4809) (generate-quoted-code '#f))) (code-4804 (new prop:field-id% (value code-4805) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4812 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-4811 (new prop:popup% (value code-4812))) (code-4810 (new prop:field-id% (value code-4811) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4814 (new prop:atom% (value '#t))) (code-4813 (new prop:field-id% (value code-4814) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4816 (new prop:atom% (value '15))) (code-4815 (new prop:field-id% (value code-4816) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4818 (new prop:atom% (value '0))) (code-4817 (new prop:field-id% (value code-4818) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4821 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4822 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4820 (new prop:group% (value (list code-4821 code-4822)))) (code-4819 (new prop:field-id% (value code-4820) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4824 (new prop:atom% (value '70))) (code-4823 (new prop:field-id% (value code-4824) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4826 (new prop:atom% (value '30))) (code-4825 (new prop:field-id% (value code-4826) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4828 (new prop:atom% (value '#t))) (code-4827 (new prop:field-id% (value code-4828) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4830 (new prop:atom% (value '#t))) (code-4829 (new prop:field-id% (value code-4830) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4832 (new prop:atom% (value '#t))) (code-4831 (new prop:field-id% (value code-4832) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4779 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-4763) (properties (list (cons 'id code-4780) (cons 'code-gen-class code-4782) (cons 'label code-4784) (cons 'width code-4786) (cons 'height code-4792) (cons 'x code-4798) (cons 'y code-4804) (cons 'style code-4810) (cons 'enabled code-4813) (cons 'border code-4815) (cons 'spacing code-4817) (cons 'alignment code-4819) (cons 'min-width code-4823) (cons 'min-height code-4825) (cons 'stretchable-width code-4827) (cons 'stretchable-height code-4829) (cons 'show-at-init code-4831))))) (code-4835 (new prop:atom% (value 'editor-pane))) (code-4834 (new prop:field-id% (value code-4835) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4837 (new prop:code% (value pane%) (value-code 'pane%))) (code-4836 (new prop:field-id% (value code-4837) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4839 (new prop:atom% (value '0))) (code-4838 (new prop:field-id% (value code-4839) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4841 (new prop:atom% (value '0))) (code-4840 (new prop:field-id% (value code-4841) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4843 (new prop:atom% (value '0))) (code-4842 (new prop:field-id% (value code-4843) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4845 (new prop:atom% (value '0))) (code-4844 (new prop:field-id% (value code-4845) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4848 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4849 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4847 (new prop:group% (value (list code-4848 code-4849)))) (code-4846 (new prop:field-id% (value code-4847) (field-id 'alignment) (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 '#t))) (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 '#t))) (code-4856 (new prop:field-id% (value code-4857) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4833 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-4779) (properties (list (cons 'id code-4834) (cons 'code-gen-class code-4836) (cons 'vert-margin code-4838) (cons 'horiz-margin code-4840) (cons 'border code-4842) (cons 'spacing code-4844) (cons 'alignment code-4846) (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 'bench-list-box))) (code-4859 (new prop:field-id% (value code-4860) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4862 (new prop:code% (value list-box%) (value-code 'list-box%))) (code-4861 (new prop:field-id% (value code-4862) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4866 (new prop:atom% (value '#f))) (code-4867 (new prop:atom% (value '"List Box"))) (code-4865 (new prop:hgroup% (value (list code-4866 code-4867)))) (code-4868 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4864 (new prop:proc% (value code-4865) (prop-code code-4868) (generate-quoted-code '#f))) (code-4863 (new prop:field-id% (value code-4864) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4870 (new prop:atom% (value (list '"First")))) (code-4869 (new prop:field-id% (value code-4870) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4872 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-4871 (new prop:field-id% (value code-4872) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4876 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-4877 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4878 (new prop:some-of% (value (list)) (choices (list 'deleted 'variable-columns 'column-headers 'clickable-headers 'reorderable-headers)))) (code-4875 (new prop:group% (value (list code-4876 code-4877 code-4878)))) (code-4879 (new prop:code% (value (位 (l) (list (first l) (second l) (third l)))) (value-code '(位 (l) (list (first l) (second l) (third l)))))) (code-4874 (new prop:proc% (value code-4875) (prop-code code-4879) (generate-quoted-code '#t))) (code-4873 (new prop:field-id% (value code-4874) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4882 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4883 (new prop:code% (value list->font) (value-code 'list->font))) (code-4881 (new prop:font% (value code-4882) (prop-code code-4883) (generate-quoted-code '#t))) (code-4880 (new prop:field-id% (value code-4881) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4887 (new prop:atom% (value '#t))) (code-4888 (new prop:atom% (value '0))) (code-4886 (new prop:hgroup% (value (list code-4887 code-4888)))) (code-4889 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4885 (new prop:proc% (value code-4886) (prop-code code-4889) (generate-quoted-code '#f))) (code-4884 (new prop:field-id% (value code-4885) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4891 (new prop:atom% (value '#t))) (code-4890 (new prop:field-id% (value code-4891) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4893 (new prop:atom% (value '2))) (code-4892 (new prop:field-id% (value code-4893) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4895 (new prop:atom% (value '2))) (code-4894 (new prop:field-id% (value code-4895) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4897 (new prop:atom% (value '0))) (code-4896 (new prop:field-id% (value code-4897) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4899 (new prop:atom% (value '0))) (code-4898 (new prop:field-id% (value code-4899) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4901 (new prop:atom% (value '#t))) (code-4900 (new prop:field-id% (value code-4901) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4903 (new prop:atom% (value '#t))) (code-4902 (new prop:field-id% (value code-4903) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4905 (new prop:atom% (value (list '"Column")))) (code-4904 (new prop:field-id% (value code-4905) (field-id 'columns) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4907 (new prop:atom% (value '#f))) (code-4906 (new prop:field-id% (value code-4907) (field-id 'column-order) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4858 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-4833) (properties (list (cons 'id code-4859) (cons 'code-gen-class code-4861) (cons 'label code-4863) (cons 'choices code-4869) (cons 'callback code-4871) (cons 'style code-4873) (cons 'font code-4880) (cons 'selection code-4884) (cons 'enabled code-4890) (cons 'vert-margin code-4892) (cons 'horiz-margin code-4894) (cons 'min-width code-4896) (cons 'min-height code-4898) (cons 'stretchable-width code-4900) (cons 'stretchable-height code-4902) (cons 'columns code-4904) (cons 'column-order code-4906))))) (code-4910 (new prop:atom% (value 'bottom-buttons-pane))) (code-4909 (new prop:field-id% (value code-4910) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4912 (new prop:code% (value horizontal-pane%) (value-code 'horizontal-pane%))) (code-4911 (new prop:field-id% (value code-4912) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4914 (new prop:atom% (value '0))) (code-4913 (new prop:field-id% (value code-4914) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4916 (new prop:atom% (value '0))) (code-4915 (new prop:field-id% (value code-4916) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4918 (new prop:atom% (value '0))) (code-4917 (new prop:field-id% (value code-4918) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4920 (new prop:atom% (value '0))) (code-4919 (new prop:field-id% (value code-4920) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4923 (new prop:one-of% (value 'right) (choices (list 'left 'center 'right)))) (code-4924 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-4922 (new prop:group% (value (list code-4923 code-4924)))) (code-4921 (new prop:field-id% (value code-4922) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4926 (new prop:atom% (value '0))) (code-4925 (new prop:field-id% (value code-4926) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4928 (new prop:atom% (value '0))) (code-4927 (new prop:field-id% (value code-4928) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4930 (new prop:atom% (value '#t))) (code-4929 (new prop:field-id% (value code-4930) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4932 (new prop:atom% (value '#f))) (code-4931 (new prop:field-id% (value code-4932) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4908 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-4779) (properties (list (cons 'id code-4909) (cons 'code-gen-class code-4911) (cons 'vert-margin code-4913) (cons 'horiz-margin code-4915) (cons 'border code-4917) (cons 'spacing code-4919) (cons 'alignment code-4921) (cons 'min-width code-4925) (cons 'min-height code-4927) (cons 'stretchable-width code-4929) (cons 'stretchable-height code-4931))))) (code-4935 (new prop:atom% (value 'cancel-button))) (code-4934 (new prop:field-id% (value code-4935) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4937 (new prop:code% (value button%) (value-code 'button%))) (code-4936 (new prop:field-id% (value code-4937) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4941 (new prop:atom% (value '"Cancel"))) (code-4942 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4943 (new prop:file% (value '#f))) (code-4940 (new prop:group% (value (list code-4941 code-4942 code-4943)))) (code-4944 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4939 (new prop:proc% (value code-4940) (prop-code code-4944) (generate-quoted-code '#t))) (code-4938 (new prop:field-id% (value code-4939) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4946 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4945 (new prop:field-id% (value code-4946) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4948 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4947 (new prop:field-id% (value code-4948) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4951 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4952 (new prop:code% (value list->font) (value-code 'list->font))) (code-4950 (new prop:font% (value code-4951) (prop-code code-4952) (generate-quoted-code '#t))) (code-4949 (new prop:field-id% (value code-4950) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4954 (new prop:atom% (value '#t))) (code-4953 (new prop:field-id% (value code-4954) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4956 (new prop:atom% (value '2))) (code-4955 (new prop:field-id% (value code-4956) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4958 (new prop:atom% (value '2))) (code-4957 (new prop:field-id% (value code-4958) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4960 (new prop:atom% (value '0))) (code-4959 (new prop:field-id% (value code-4960) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4962 (new prop:atom% (value '0))) (code-4961 (new prop:field-id% (value code-4962) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4964 (new prop:atom% (value '#f))) (code-4963 (new prop:field-id% (value code-4964) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4966 (new prop:atom% (value '#f))) (code-4965 (new prop:field-id% (value code-4966) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4933 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4934) (cons 'code-gen-class code-4936) (cons 'label code-4938) (cons 'callback code-4945) (cons 'style code-4947) (cons 'font code-4949) (cons 'enabled code-4953) (cons 'vert-margin code-4955) (cons 'horiz-margin code-4957) (cons 'min-width code-4959) (cons 'min-height code-4961) (cons 'stretchable-width code-4963) (cons 'stretchable-height code-4965))))) (code-4969 (new prop:atom% (value 'ok-button))) (code-4968 (new prop:field-id% (value code-4969) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4971 (new prop:code% (value button%) (value-code 'button%))) (code-4970 (new prop:field-id% (value code-4971) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4975 (new prop:atom% (value '"OK"))) (code-4976 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4977 (new prop:file% (value '#f))) (code-4974 (new prop:group% (value (list code-4975 code-4976 code-4977)))) (code-4978 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4973 (new prop:proc% (value code-4974) (prop-code code-4978) (generate-quoted-code '#t))) (code-4972 (new prop:field-id% (value code-4973) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4980 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4979 (new prop:field-id% (value code-4980) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4982 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4981 (new prop:field-id% (value code-4982) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4985 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4986 (new prop:code% (value list->font) (value-code 'list->font))) (code-4984 (new prop:font% (value code-4985) (prop-code code-4986) (generate-quoted-code '#t))) (code-4983 (new prop:field-id% (value code-4984) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4988 (new prop:atom% (value '#t))) (code-4987 (new prop:field-id% (value code-4988) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4990 (new prop:atom% (value '2))) (code-4989 (new prop:field-id% (value code-4990) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4992 (new prop:atom% (value '2))) (code-4991 (new prop:field-id% (value code-4992) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4994 (new prop:atom% (value '0))) (code-4993 (new prop:field-id% (value code-4994) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4996 (new prop:atom% (value '0))) (code-4995 (new prop:field-id% (value code-4996) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4998 (new prop:atom% (value '#f))) (code-4997 (new prop:field-id% (value code-4998) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-5000 (new prop:atom% (value '#f))) (code-4999 (new prop:field-id% (value code-5000) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4967 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4968) (cons 'code-gen-class code-4970) (cons 'label code-4972) (cons 'callback code-4979) (cons 'style code-4981) (cons 'font code-4983) (cons 'enabled code-4987) (cons 'vert-margin code-4989) (cons 'horiz-margin code-4991) (cons 'min-width code-4993) (cons 'min-height code-4995) (cons 'stretchable-width code-4997) (cons 'stretchable-height code-4999)))))) (list code-4763 code-4779 code-4833 code-4858 code-4908 code-4933 code-4967)))))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437882000, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHC1V3gIrLxKgUfAKz4MZtmMoVcmmks5uuXkKgaJpZM4YZiyg .

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

Metaxal commented 5 years ago

I've been using DrRacket on Ubuntu (gnome, usually) and Debian for more than a decade without problems. I almost always use a "unix style distribution" so that executable and libraries are global. It's the easiest when you only have 1 copy of racket. What doesn't work for you?

On Sat, Nov 17, 2018 at 3:23 PM DexterLagan notifications@github.com wrote:

I see! Yes in using Windows 10 as I've had problems with DrRacket in Linux. Do you know of a good distro on which DrRacket works correctly for you?

I wouldn't mind using a different editor as long as there is the REPL, but apart from Emacs and a heavily customized Vim, I haven't seen a good alternative to DrRacket. Any suggestion?

Thanks a bunch!

Dex

On Nov 17, 2018, at 4:07 PM, Laurent Orseau notifications@github.com wrote:

I think I know what happened: MrEd Designer save the project file with some utf-8 characters in them (namely, λ) and your system (windows?) didn't like that.

I've changed the code to generate ascii files, so it should be fine now. It may take an hour (I think) before racket's package system knows there's a new version though.

Also, if you launch MED from the command line, you will see error messages in case it fails to work properly. On unix system, you can run "racket -l mred-designer". On windows, you'll probably have to find the full path for racket (I'm not sure), but the rest of the line is the same.

Let me know if that fixes the problem.

On Mon, Nov 12, 2018 at 1:35 PM DexterLagan notifications@github.com wrote:

Strange, it shows as attached in my sent items. Here it is again. I hope it wasn't stripped.

Dex

On 11/12/18, Laurent Orseau notifications@github.com wrote:

I think you forgot to attach the file ;)

On Mon, Nov 12, 2018 at 12:40 PM DexterLagan < notifications@github.com> wrote:

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau < notifications@github.com> wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863>,

or mute the thread <

https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg

.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub <

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437864790>,

or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHAWWh_xBcR75CipTiP1ur9Oye4j6ks5uuWwlgaJpZM4YZiyg

.

-- You are receiving this because you authored the thread. Reply to this email directly or view it on GitHub:

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437877826

"benchmark" (list (cons 'name "benchmark") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-4762) (let* ((code-4764 parent-4762) (code-4766 (new prop:atom% (value 'benchmark))) (code-4765 (new prop:field-id% (value code-4766) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4768 (new prop:code% (value project%) (value-code 'project%))) (code-4767 (new prop:field-id% (value code-4768) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4770 (new prop:atom% (value '"D:\Code\Projects (Racket)\benchmark\benchmark.med"))) (code-4769 (new prop:field-id% (value code-4770) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4772 (new prop:atom% (value '#f))) (code-4771 (new prop:field-id% (value code-4772) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4774 (new prop:atom% (value '#t))) (code-4773 (new prop:field-id% (value code-4774) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4776 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-4775 (new prop:field-id% (value code-4776) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4778 (new prop:atom% (value '#f))) (code-4777 (new prop:field-id% (value code-4778) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4763 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-4764) (properties (list (cons 'id code-4765) (cons 'code-gen-class code-4767) (cons 'file code-4769) (cons 'code-file code-4771) (cons 'changed code-4773) (cons 'code-requires code-4775) (cons 'runtime-paths? code-4777))))) (code-4781 (new prop:atom% (value 'main-window))) (code-4780 (new prop:field-id% (value code-4781) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4783 (new prop:code% (value frame%) (value-code 'frame%))) (code-4782 (new prop:field-id% (value code-4783) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4785 (new prop:atom% (value '"benchmark"))) (code-4784 (new prop:field-id% (value code-4785) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4789 (new prop:atom% (value '#t))) (code-4790 (new prop:atom% (value '500))) (code-4788 (new prop:hgroup% (value (list code-4789 code-4790)))) (code-4791 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4787 (new prop:proc% (value code-4788) (prop-code code-4791) (generate-quoted-code '#f))) (code-4786 (new prop:field-id% (value code-4787) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4795 (new prop:atom% (value '#t))) (code-4796 (new prop:atom% (value '400))) (code-4794 (new prop:hgroup% (value (list code-4795 code-4796)))) (code-4797 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4793 (new prop:proc% (value code-4794) (prop-code code-4797) (generate-quoted-code '#f))) (code-4792 (new prop:field-id% (value code-4793) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4801 (new prop:atom% (value '#f))) (code-4802 (new prop:atom% (value '0))) (code-4800 (new prop:hgroup% (value (list code-4801 code-4802)))) (code-4803 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4799 (new prop:proc% (value code-4800) (prop-code code-4803) (generate-quoted-code '#f))) (code-4798 (new prop:field-id% (value code-4799) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4807 (new prop:atom% (value '#f))) (code-4808 (new prop:atom% (value '0))) (code-4806 (new prop:hgroup% (value (list code-4807 code-4808)))) (code-4809 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4805 (new prop:proc% (value code-4806) (prop-code code-4809) (generate-quoted-code '#f))) (code-4804 (new prop:field-id% (value code-4805) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4812 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-4811 (new prop:popup% (value code-4812))) (code-4810 (new prop:field-id% (value code-4811) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4814 (new prop:atom% (value '#t))) (code-4813 (new prop:field-id% (value code-4814) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4816 (new prop:atom% (value '15))) (code-4815 (new prop:field-id% (value code-4816) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4818 (new prop:atom% (value '0))) (code-4817 (new prop:field-id% (value code-4818) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4821 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4822 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4820 (new prop:group% (value (list code-4821 code-4822)))) (code-4819 (new prop:field-id% (value code-4820) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4824 (new prop:atom% (value '70))) (code-4823 (new prop:field-id% (value code-4824) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4826 (new prop:atom% (value '30))) (code-4825 (new prop:field-id% (value code-4826) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4828 (new prop:atom% (value '#t))) (code-4827 (new prop:field-id% (value code-4828) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4830 (new prop:atom% (value '#t))) (code-4829 (new prop:field-id% (value code-4830) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4832 (new prop:atom% (value '#t))) (code-4831 (new prop:field-id% (value code-4832) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4779 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-4763) (properties (list (cons 'id code-4780) (cons 'code-gen-class code-4782) (cons 'label code-4784) (cons 'width code-4786) (cons 'height code-4792) (cons 'x code-4798) (cons 'y code-4804) (cons 'style code-4810) (cons 'enabled code-4813) (cons 'border code-4815) (cons 'spacing code-4817) (cons 'alignment code-4819) (cons 'min-width code-4823) (cons 'min-height code-4825) (cons 'stretchable-width code-4827) (cons 'stretchable-height code-4829) (cons 'show-at-init code-4831))))) (code-4835 (new prop:atom% (value 'editor-pane))) (code-4834 (new prop:field-id% (value code-4835) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4837 (new prop:code% (value pane%) (value-code 'pane%))) (code-4836 (new prop:field-id% (value code-4837) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4839 (new prop:atom% (value '0))) (code-4838 (new prop:field-id% (value code-4839) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4841 (new prop:atom% (value '0))) (code-4840 (new prop:field-id% (value code-4841) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4843 (new prop:atom% (value '0))) (code-4842 (new prop:field-id% (value code-4843) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4845 (new prop:atom% (value '0))) (code-4844 (new prop:field-id% (value code-4845) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4848 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4849 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4847 (new prop:group% (value (list code-4848 code-4849)))) (code-4846 (new prop:field-id% (value code-4847) (field-id 'alignment) (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 '#t))) (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 '#t))) (code-4856 (new prop:field-id% (value code-4857) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4833 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-4779) (properties (list (cons 'id code-4834) (cons 'code-gen-class code-4836) (cons 'vert-margin code-4838) (cons 'horiz-margin code-4840) (cons 'border code-4842) (cons 'spacing code-4844) (cons 'alignment code-4846) (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 'bench-list-box))) (code-4859 (new prop:field-id% (value code-4860) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4862 (new prop:code% (value list-box%) (value-code 'list-box%))) (code-4861 (new prop:field-id% (value code-4862) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4866 (new prop:atom% (value '#f))) (code-4867 (new prop:atom% (value '"List Box"))) (code-4865 (new prop:hgroup% (value (list code-4866 code-4867)))) (code-4868 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4864 (new prop:proc% (value code-4865) (prop-code code-4868) (generate-quoted-code '#f))) (code-4863 (new prop:field-id% (value code-4864) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4870 (new prop:atom% (value (list '"First")))) (code-4869 (new prop:field-id% (value code-4870) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4872 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-4871 (new prop:field-id% (value code-4872) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4876 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-4877 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4878 (new prop:some-of% (value (list)) (choices (list 'deleted 'variable-columns 'column-headers 'clickable-headers 'reorderable-headers)))) (code-4875 (new prop:group% (value (list code-4876 code-4877 code-4878)))) (code-4879 (new prop:code% (value (位 (l) (list (first l) (second l) (third l)))) (value-code '(位 (l) (list (first l) (second l) (third l)))))) (code-4874 (new prop:proc% (value code-4875) (prop-code code-4879) (generate-quoted-code '#t))) (code-4873 (new prop:field-id% (value code-4874) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4882 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4883 (new prop:code% (value list->font) (value-code 'list->font))) (code-4881 (new prop:font% (value code-4882) (prop-code code-4883) (generate-quoted-code '#t))) (code-4880 (new prop:field-id% (value code-4881) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4887 (new prop:atom% (value '#t))) (code-4888 (new prop:atom% (value '0))) (code-4886 (new prop:hgroup% (value (list code-4887 code-4888)))) (code-4889 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4885 (new prop:proc% (value code-4886) (prop-code code-4889) (generate-quoted-code '#f))) (code-4884 (new prop:field-id% (value code-4885) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4891 (new prop:atom% (value '#t))) (code-4890 (new prop:field-id% (value code-4891) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4893 (new prop:atom% (value '2))) (code-4892 (new prop:field-id% (value code-4893) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4895 (new prop:atom% (value '2))) (code-4894 (new prop:field-id% (value code-4895) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4897 (new prop:atom% (value '0))) (code-4896 (new prop:field-id% (value code-4897) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4899 (new prop:atom% (value '0))) (code-4898 (new prop:field-id% (value code-4899) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4901 (new prop:atom% (value '#t))) (code-4900 (new prop:field-id% (value code-4901) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4903 (new prop:atom% (value '#t))) (code-4902 (new prop:field-id% (value code-4903) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4905 (new prop:atom% (value (list '"Column")))) (code-4904 (new prop:field-id% (value code-4905) (field-id 'columns) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4907 (new prop:atom% (value '#f))) (code-4906 (new prop:field-id% (value code-4907) (field-id 'column-order) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4858 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-4833) (properties (list (cons 'id code-4859) (cons 'code-gen-class code-4861) (cons 'label code-4863) (cons 'choices code-4869) (cons 'callback code-4871) (cons 'style code-4873) (cons 'font code-4880) (cons 'selection code-4884) (cons 'enabled code-4890) (cons 'vert-margin code-4892) (cons 'horiz-margin code-4894) (cons 'min-width code-4896) (cons 'min-height code-4898) (cons 'stretchable-width code-4900) (cons 'stretchable-height code-4902) (cons 'columns code-4904) (cons 'column-order code-4906))))) (code-4910 (new prop:atom% (value 'bottom-buttons-pane))) (code-4909 (new prop:field-id% (value code-4910) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4912 (new prop:code% (value horizontal-pane%) (value-code 'horizontal-pane%))) (code-4911 (new prop:field-id% (value code-4912) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4914 (new prop:atom% (value '0))) (code-4913 (new prop:field-id% (value code-4914) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4916 (new prop:atom% (value '0))) (code-4915 (new prop:field-id% (value code-4916) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4918 (new prop:atom% (value '0))) (code-4917 (new prop:field-id% (value code-4918) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4920 (new prop:atom% (value '0))) (code-4919 (new prop:field-id% (value code-4920) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4923 (new prop:one-of% (value 'right) (choices (list 'left 'center 'right)))) (code-4924 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-4922 (new prop:group% (value (list code-4923 code-4924)))) (code-4921 (new prop:field-id% (value code-4922) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4926 (new prop:atom% (value '0))) (code-4925 (new prop:field-id% (value code-4926) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4928 (new prop:atom% (value '0))) (code-4927 (new prop:field-id% (value code-4928) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4930 (new prop:atom% (value '#t))) (code-4929 (new prop:field-id% (value code-4930) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4932 (new prop:atom% (value '#f))) (code-4931 (new prop:field-id% (value code-4932) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4908 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-4779) (properties (list (cons 'id code-4909) (cons 'code-gen-class code-4911) (cons 'vert-margin code-4913) (cons 'horiz-margin code-4915) (cons 'border code-4917) (cons 'spacing code-4919) (cons 'alignment code-4921) (cons 'min-width code-4925) (cons 'min-height code-4927) (cons 'stretchable-width code-4929) (cons 'stretchable-height code-4931))))) (code-4935 (new prop:atom% (value 'cancel-button))) (code-4934 (new prop:field-id% (value code-4935) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4937 (new prop:code% (value button%) (value-code 'button%))) (code-4936 (new prop:field-id% (value code-4937) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4941 (new prop:atom% (value '"Cancel"))) (code-4942 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4943 (new prop:file% (value '#f))) (code-4940 (new prop:group% (value (list code-4941 code-4942 code-4943)))) (code-4944 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4939 (new prop:proc% (value code-4940) (prop-code code-4944) (generate-quoted-code '#t))) (code-4938 (new prop:field-id% (value code-4939) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4946 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4945 (new prop:field-id% (value code-4946) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4948 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4947 (new prop:field-id% (value code-4948) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4951 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4952 (new prop:code% (value list->font) (value-code 'list->font))) (code-4950 (new prop:font% (value code-4951) (prop-code code-4952) (generate-quoted-code '#t))) (code-4949 (new prop:field-id% (value code-4950) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4954 (new prop:atom% (value '#t))) (code-4953 (new prop:field-id% (value code-4954) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4956 (new prop:atom% (value '2))) (code-4955 (new prop:field-id% (value code-4956) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4958 (new prop:atom% (value '2))) (code-4957 (new prop:field-id% (value code-4958) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4960 (new prop:atom% (value '0))) (code-4959 (new prop:field-id% (value code-4960) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4962 (new prop:atom% (value '0))) (code-4961 (new prop:field-id% (value code-4962) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4964 (new prop:atom% (value '#f))) (code-4963 (new prop:field-id% (value code-4964) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4966 (new prop:atom% (value '#f))) (code-4965 (new prop:field-id% (value code-4966) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4933 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4934) (cons 'code-gen-class code-4936) (cons 'label code-4938) (cons 'callback code-4945) (cons 'style code-4947) (cons 'font code-4949) (cons 'enabled code-4953) (cons 'vert-margin code-4955) (cons 'horiz-margin code-4957) (cons 'min-width code-4959) (cons 'min-height code-4961) (cons 'stretchable-width code-4963) (cons 'stretchable-height code-4965))))) (code-4969 (new prop:atom% (value 'ok-button))) (code-4968 (new prop:field-id% (value code-4969) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4971 (new prop:code% (value button%) (value-code 'button%))) (code-4970 (new prop:field-id% (value code-4971) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4975 (new prop:atom% (value '"OK"))) (code-4976 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4977 (new prop:file% (value '#f))) (code-4974 (new prop:group% (value (list code-4975 code-4976 code-4977)))) (code-4978 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4973 (new prop:proc% (value code-4974) (prop-code code-4978) (generate-quoted-code '#t))) (code-4972 (new prop:field-id% (value code-4973) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4980 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4979 (new prop:field-id% (value code-4980) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4982 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4981 (new prop:field-id% (value code-4982) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4985 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4986 (new prop:code% (value list->font) (value-code 'list->font))) (code-4984 (new prop:font% (value code-4985) (prop-code code-4986) (generate-quoted-code '#t))) (code-4983 (new prop:field-id% (value code-4984) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4988 (new prop:atom% (value '#t))) (code-4987 (new prop:field-id% (value code-4988) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4990 (new prop:atom% (value '2))) (code-4989 (new prop:field-id% (value code-4990) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4992 (new prop:atom% (value '2))) (code-4991 (new prop:field-id% (value code-4992) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4994 (new prop:atom% (value '0))) (code-4993 (new prop:field-id% (value code-4994) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4996 (new prop:atom% (value '0))) (code-4995 (new prop:field-id% (value code-4996) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4998 (new prop:atom% (value '#f))) (code-4997 (new prop:field-id% (value code-4998) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-5000 (new prop:atom% (value '#f))) (code-4999 (new prop:field-id% (value code-5000) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4967 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4968) (cons 'code-gen-class code-4970) (cons 'label code-4972) (cons 'callback code-4979) (cons 'style code-4981) (cons 'font code-4983) (cons 'enabled code-4987) (cons 'vert-margin code-4989) (cons 'horiz-margin code-4991) (cons 'min-width code-4993) (cons 'min-height code-4995) (cons 'stretchable-width code-4997) (cons 'stretchable-height code-4999)))))) (list code-4763 code-4779 code-4833 code-4858 code-4908 code-4933 code-4967)))))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437882000>, or mute the thread < https://github.com/notifications/unsubscribe-auth/ABlNHC1V3gIrLxKgUfAKz4MZtmMoVcmmks5uuXkKgaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-439624956, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHHwo9e2JZ-36h6VLbyz2gFx0PQaeks5uwCn6gaJpZM4YZiyg .

DexterLagan commented 5 years ago

I’ve tried DrRacket on Fedora Rawhide and stable, and the arrows showing relationships in une code don’t follow the mouse cursor. The preference window takes a very long time to show up on my slower systems as well (the menu bar blinks for about 10 seconds before the window opens). Somehow it works perfectly on Windows but I’m more of a *nix guy. I’ll give it a try on Ubuntu, thanks for the tip!

Dex

On Nov 17, 2018, at 5:43 PM, Laurent Orseau notifications@github.com wrote:

I've been using DrRacket on Ubuntu (gnome, usually) and Debian for more than a decade without problems. I almost always use a "unix style distribution" so that executable and libraries are global. It's the easiest when you only have 1 copy of racket. What doesn't work for you?

On Sat, Nov 17, 2018 at 3:23 PM DexterLagan notifications@github.com wrote:

I see! Yes in using Windows 10 as I've had problems with DrRacket in Linux. Do you know of a good distro on which DrRacket works correctly for you?

I wouldn't mind using a different editor as long as there is the REPL, but apart from Emacs and a heavily customized Vim, I haven't seen a good alternative to DrRacket. Any suggestion?

Thanks a bunch!

Dex

On Nov 17, 2018, at 4:07 PM, Laurent Orseau notifications@github.com wrote:

I think I know what happened: MrEd Designer save the project file with some utf-8 characters in them (namely, λ) and your system (windows?) didn't like that.

I've changed the code to generate ascii files, so it should be fine now. It may take an hour (I think) before racket's package system knows there's a new version though.

Also, if you launch MED from the command line, you will see error messages in case it fails to work properly. On unix system, you can run "racket -l mred-designer". On windows, you'll probably have to find the full path for racket (I'm not sure), but the rest of the line is the same.

Let me know if that fixes the problem.

On Mon, Nov 12, 2018 at 1:35 PM DexterLagan notifications@github.com wrote:

Strange, it shows as attached in my sent items. Here it is again. I hope it wasn't stripped.

Dex

On 11/12/18, Laurent Orseau notifications@github.com wrote:

I think you forgot to attach the file ;)

On Mon, Nov 12, 2018 at 12:40 PM DexterLagan < notifications@github.com> wrote:

Hi Laurent,

I attached the project file to this email. As for repeating the problem, I opened MrEd fresh, created a frame, added a pane with a listbox, a horizontal pane with two buttons, renamed everything, and saved the project. When I opened the project again the next day, it was having this problem. I'll try and start over later today to see if I can reproduce.

Dex

On Mon, Nov 12, 2018 at 1:30 PM Laurent Orseau < notifications@github.com> wrote:

Hi Dexter,

Intriguing. Can you send me the project file that you saved? Maybe something went wrong during save.

Also, do you think you can send me a repeatable sequence of actions that lead to this problem?

Thanks Laurent

On Mon, 12 Nov 2018, 12:24 DexterLagan <notifications@github.com wrote:

Hi there,

I am currently trying to use v3.17 of MrEd to create a simple window with a list-box and a button. I finished editing the window just fine yesterday and saved it as a project. Today I can load the project, and the window shows up with all controls, but the Hierarchy window does not show the window's items. Only the bank default project is there. If I click on it, some arrows show up under, without any text. As if the hierarchy is loaded but cannot be displayed. No other control functions, I can click on the window controls but their properties are not loaded in the property. As it is MrEd is unusable.

Help!

Dexter

— You are receiving this because you are subscribed to this thread. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7, or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHJSEPmy9_OVWA0kAIXacFjOMPVkpks5uuWhigaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub <

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437861863>,

or mute the thread <

https://github.com/notifications/unsubscribe-auth/AkdIt_Xxha0FPzpARUtVTSyi_RrePt0eks5uuWnagaJpZM4YZiyg

.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub <

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437864790>,

or mute the thread <

https://github.com/notifications/unsubscribe-auth/ABlNHAWWh_xBcR75CipTiP1ur9Oye4j6ks5uuWwlgaJpZM4YZiyg

.

-- You are receiving this because you authored the thread. Reply to this email directly or view it on GitHub:

https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437877826

"benchmark" (list (cons 'name "benchmark") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-4762) (let* ((code-4764 parent-4762) (code-4766 (new prop:atom% (value 'benchmark))) (code-4765 (new prop:field-id% (value code-4766) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4768 (new prop:code% (value project%) (value-code 'project%))) (code-4767 (new prop:field-id% (value code-4768) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4770 (new prop:atom% (value '"D:\Code\Projects (Racket)\benchmark\benchmark.med"))) (code-4769 (new prop:field-id% (value code-4770) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4772 (new prop:atom% (value '#f))) (code-4771 (new prop:field-id% (value code-4772) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4774 (new prop:atom% (value '#t))) (code-4773 (new prop:field-id% (value code-4774) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-4776 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-4775 (new prop:field-id% (value code-4776) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4778 (new prop:atom% (value '#f))) (code-4777 (new prop:field-id% (value code-4778) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4763 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-4764) (properties (list (cons 'id code-4765) (cons 'code-gen-class code-4767) (cons 'file code-4769) (cons 'code-file code-4771) (cons 'changed code-4773) (cons 'code-requires code-4775) (cons 'runtime-paths? code-4777))))) (code-4781 (new prop:atom% (value 'main-window))) (code-4780 (new prop:field-id% (value code-4781) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4783 (new prop:code% (value frame%) (value-code 'frame%))) (code-4782 (new prop:field-id% (value code-4783) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4785 (new prop:atom% (value '"benchmark"))) (code-4784 (new prop:field-id% (value code-4785) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4789 (new prop:atom% (value '#t))) (code-4790 (new prop:atom% (value '500))) (code-4788 (new prop:hgroup% (value (list code-4789 code-4790)))) (code-4791 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4787 (new prop:proc% (value code-4788) (prop-code code-4791) (generate-quoted-code '#f))) (code-4786 (new prop:field-id% (value code-4787) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4795 (new prop:atom% (value '#t))) (code-4796 (new prop:atom% (value '400))) (code-4794 (new prop:hgroup% (value (list code-4795 code-4796)))) (code-4797 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4793 (new prop:proc% (value code-4794) (prop-code code-4797) (generate-quoted-code '#f))) (code-4792 (new prop:field-id% (value code-4793) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4801 (new prop:atom% (value '#f))) (code-4802 (new prop:atom% (value '0))) (code-4800 (new prop:hgroup% (value (list code-4801 code-4802)))) (code-4803 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4799 (new prop:proc% (value code-4800) (prop-code code-4803) (generate-quoted-code '#f))) (code-4798 (new prop:field-id% (value code-4799) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4807 (new prop:atom% (value '#f))) (code-4808 (new prop:atom% (value '0))) (code-4806 (new prop:hgroup% (value (list code-4807 code-4808)))) (code-4809 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4805 (new prop:proc% (value code-4806) (prop-code code-4809) (generate-quoted-code '#f))) (code-4804 (new prop:field-id% (value code-4805) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4812 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-4811 (new prop:popup% (value code-4812))) (code-4810 (new prop:field-id% (value code-4811) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4814 (new prop:atom% (value '#t))) (code-4813 (new prop:field-id% (value code-4814) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4816 (new prop:atom% (value '15))) (code-4815 (new prop:field-id% (value code-4816) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4818 (new prop:atom% (value '0))) (code-4817 (new prop:field-id% (value code-4818) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4821 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4822 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4820 (new prop:group% (value (list code-4821 code-4822)))) (code-4819 (new prop:field-id% (value code-4820) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4824 (new prop:atom% (value '70))) (code-4823 (new prop:field-id% (value code-4824) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4826 (new prop:atom% (value '30))) (code-4825 (new prop:field-id% (value code-4826) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4828 (new prop:atom% (value '#t))) (code-4827 (new prop:field-id% (value code-4828) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4830 (new prop:atom% (value '#t))) (code-4829 (new prop:field-id% (value code-4830) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4832 (new prop:atom% (value '#t))) (code-4831 (new prop:field-id% (value code-4832) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4779 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-4763) (properties (list (cons 'id code-4780) (cons 'code-gen-class code-4782) (cons 'label code-4784) (cons 'width code-4786) (cons 'height code-4792) (cons 'x code-4798) (cons 'y code-4804) (cons 'style code-4810) (cons 'enabled code-4813) (cons 'border code-4815) (cons 'spacing code-4817) (cons 'alignment code-4819) (cons 'min-width code-4823) (cons 'min-height code-4825) (cons 'stretchable-width code-4827) (cons 'stretchable-height code-4829) (cons 'show-at-init code-4831))))) (code-4835 (new prop:atom% (value 'editor-pane))) (code-4834 (new prop:field-id% (value code-4835) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4837 (new prop:code% (value pane%) (value-code 'pane%))) (code-4836 (new prop:field-id% (value code-4837) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4839 (new prop:atom% (value '0))) (code-4838 (new prop:field-id% (value code-4839) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4841 (new prop:atom% (value '0))) (code-4840 (new prop:field-id% (value code-4841) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4843 (new prop:atom% (value '0))) (code-4842 (new prop:field-id% (value code-4843) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4845 (new prop:atom% (value '0))) (code-4844 (new prop:field-id% (value code-4845) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4848 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-4849 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-4847 (new prop:group% (value (list code-4848 code-4849)))) (code-4846 (new prop:field-id% (value code-4847) (field-id 'alignment) (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 '#t))) (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 '#t))) (code-4856 (new prop:field-id% (value code-4857) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4833 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-4779) (properties (list (cons 'id code-4834) (cons 'code-gen-class code-4836) (cons 'vert-margin code-4838) (cons 'horiz-margin code-4840) (cons 'border code-4842) (cons 'spacing code-4844) (cons 'alignment code-4846) (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 'bench-list-box))) (code-4859 (new prop:field-id% (value code-4860) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4862 (new prop:code% (value list-box%) (value-code 'list-box%))) (code-4861 (new prop:field-id% (value code-4862) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4866 (new prop:atom% (value '#f))) (code-4867 (new prop:atom% (value '"List Box"))) (code-4865 (new prop:hgroup% (value (list code-4866 code-4867)))) (code-4868 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4864 (new prop:proc% (value code-4865) (prop-code code-4868) (generate-quoted-code '#f))) (code-4863 (new prop:field-id% (value code-4864) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4870 (new prop:atom% (value (list '"First")))) (code-4869 (new prop:field-id% (value code-4870) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4872 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-4871 (new prop:field-id% (value code-4872) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4876 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-4877 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-4878 (new prop:some-of% (value (list)) (choices (list 'deleted 'variable-columns 'column-headers 'clickable-headers 'reorderable-headers)))) (code-4875 (new prop:group% (value (list code-4876 code-4877 code-4878)))) (code-4879 (new prop:code% (value (位 (l) (list (first l) (second l) (third l)))) (value-code '(位 (l) (list (first l) (second l) (third l)))))) (code-4874 (new prop:proc% (value code-4875) (prop-code code-4879) (generate-quoted-code '#t))) (code-4873 (new prop:field-id% (value code-4874) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4882 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4883 (new prop:code% (value list->font) (value-code 'list->font))) (code-4881 (new prop:font% (value code-4882) (prop-code code-4883) (generate-quoted-code '#t))) (code-4880 (new prop:field-id% (value code-4881) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4887 (new prop:atom% (value '#t))) (code-4888 (new prop:atom% (value '0))) (code-4886 (new prop:hgroup% (value (list code-4887 code-4888)))) (code-4889 (new prop:code% (value (位 (l) (and (first l) (second l)))) (value-code '(位 (l) (and (first l) (second l)))))) (code-4885 (new prop:proc% (value code-4886) (prop-code code-4889) (generate-quoted-code '#f))) (code-4884 (new prop:field-id% (value code-4885) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4891 (new prop:atom% (value '#t))) (code-4890 (new prop:field-id% (value code-4891) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4893 (new prop:atom% (value '2))) (code-4892 (new prop:field-id% (value code-4893) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4895 (new prop:atom% (value '2))) (code-4894 (new prop:field-id% (value code-4895) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4897 (new prop:atom% (value '0))) (code-4896 (new prop:field-id% (value code-4897) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4899 (new prop:atom% (value '0))) (code-4898 (new prop:field-id% (value code-4899) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4901 (new prop:atom% (value '#t))) (code-4900 (new prop:field-id% (value code-4901) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4903 (new prop:atom% (value '#t))) (code-4902 (new prop:field-id% (value code-4903) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4905 (new prop:atom% (value (list '"Column")))) (code-4904 (new prop:field-id% (value code-4905) (field-id 'columns) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4907 (new prop:atom% (value '#f))) (code-4906 (new prop:field-id% (value code-4907) (field-id 'column-order) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4858 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-4833) (properties (list (cons 'id code-4859) (cons 'code-gen-class code-4861) (cons 'label code-4863) (cons 'choices code-4869) (cons 'callback code-4871) (cons 'style code-4873) (cons 'font code-4880) (cons 'selection code-4884) (cons 'enabled code-4890) (cons 'vert-margin code-4892) (cons 'horiz-margin code-4894) (cons 'min-width code-4896) (cons 'min-height code-4898) (cons 'stretchable-width code-4900) (cons 'stretchable-height code-4902) (cons 'columns code-4904) (cons 'column-order code-4906))))) (code-4910 (new prop:atom% (value 'bottom-buttons-pane))) (code-4909 (new prop:field-id% (value code-4910) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4912 (new prop:code% (value horizontal-pane%) (value-code 'horizontal-pane%))) (code-4911 (new prop:field-id% (value code-4912) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4914 (new prop:atom% (value '0))) (code-4913 (new prop:field-id% (value code-4914) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4916 (new prop:atom% (value '0))) (code-4915 (new prop:field-id% (value code-4916) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4918 (new prop:atom% (value '0))) (code-4917 (new prop:field-id% (value code-4918) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4920 (new prop:atom% (value '0))) (code-4919 (new prop:field-id% (value code-4920) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4923 (new prop:one-of% (value 'right) (choices (list 'left 'center 'right)))) (code-4924 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-4922 (new prop:group% (value (list code-4923 code-4924)))) (code-4921 (new prop:field-id% (value code-4922) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4926 (new prop:atom% (value '0))) (code-4925 (new prop:field-id% (value code-4926) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4928 (new prop:atom% (value '0))) (code-4927 (new prop:field-id% (value code-4928) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4930 (new prop:atom% (value '#t))) (code-4929 (new prop:field-id% (value code-4930) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4932 (new prop:atom% (value '#f))) (code-4931 (new prop:field-id% (value code-4932) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4908 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-4779) (properties (list (cons 'id code-4909) (cons 'code-gen-class code-4911) (cons 'vert-margin code-4913) (cons 'horiz-margin code-4915) (cons 'border code-4917) (cons 'spacing code-4919) (cons 'alignment code-4921) (cons 'min-width code-4925) (cons 'min-height code-4927) (cons 'stretchable-width code-4929) (cons 'stretchable-height code-4931))))) (code-4935 (new prop:atom% (value 'cancel-button))) (code-4934 (new prop:field-id% (value code-4935) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4937 (new prop:code% (value button%) (value-code 'button%))) (code-4936 (new prop:field-id% (value code-4937) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4941 (new prop:atom% (value '"Cancel"))) (code-4942 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4943 (new prop:file% (value '#f))) (code-4940 (new prop:group% (value (list code-4941 code-4942 code-4943)))) (code-4944 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4939 (new prop:proc% (value code-4940) (prop-code code-4944) (generate-quoted-code '#t))) (code-4938 (new prop:field-id% (value code-4939) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4946 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4945 (new prop:field-id% (value code-4946) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4948 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4947 (new prop:field-id% (value code-4948) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4951 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4952 (new prop:code% (value list->font) (value-code 'list->font))) (code-4950 (new prop:font% (value code-4951) (prop-code code-4952) (generate-quoted-code '#t))) (code-4949 (new prop:field-id% (value code-4950) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4954 (new prop:atom% (value '#t))) (code-4953 (new prop:field-id% (value code-4954) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4956 (new prop:atom% (value '2))) (code-4955 (new prop:field-id% (value code-4956) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4958 (new prop:atom% (value '2))) (code-4957 (new prop:field-id% (value code-4958) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4960 (new prop:atom% (value '0))) (code-4959 (new prop:field-id% (value code-4960) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4962 (new prop:atom% (value '0))) (code-4961 (new prop:field-id% (value code-4962) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4964 (new prop:atom% (value '#f))) (code-4963 (new prop:field-id% (value code-4964) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4966 (new prop:atom% (value '#f))) (code-4965 (new prop:field-id% (value code-4966) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4933 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4934) (cons 'code-gen-class code-4936) (cons 'label code-4938) (cons 'callback code-4945) (cons 'style code-4947) (cons 'font code-4949) (cons 'enabled code-4953) (cons 'vert-margin code-4955) (cons 'horiz-margin code-4957) (cons 'min-width code-4959) (cons 'min-height code-4961) (cons 'stretchable-width code-4963) (cons 'stretchable-height code-4965))))) (code-4969 (new prop:atom% (value 'ok-button))) (code-4968 (new prop:field-id% (value code-4969) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-4971 (new prop:code% (value button%) (value-code 'button%))) (code-4970 (new prop:field-id% (value code-4971) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4975 (new prop:atom% (value '"OK"))) (code-4976 (new prop:boolean% (value '#f) (label '"Image?"))) (code-4977 (new prop:file% (value '#f))) (code-4974 (new prop:group% (value (list code-4975 code-4976 code-4977)))) (code-4978 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-4973 (new prop:proc% (value code-4974) (prop-code code-4978) (generate-quoted-code '#t))) (code-4972 (new prop:field-id% (value code-4973) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4980 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-4979 (new prop:field-id% (value code-4980) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-4982 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-4981 (new prop:field-id% (value code-4982) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4985 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-4986 (new prop:code% (value list->font) (value-code 'list->font))) (code-4984 (new prop:font% (value code-4985) (prop-code code-4986) (generate-quoted-code '#t))) (code-4983 (new prop:field-id% (value code-4984) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4988 (new prop:atom% (value '#t))) (code-4987 (new prop:field-id% (value code-4988) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4990 (new prop:atom% (value '2))) (code-4989 (new prop:field-id% (value code-4990) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4992 (new prop:atom% (value '2))) (code-4991 (new prop:field-id% (value code-4992) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4994 (new prop:atom% (value '0))) (code-4993 (new prop:field-id% (value code-4994) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4996 (new prop:atom% (value '0))) (code-4995 (new prop:field-id% (value code-4996) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4998 (new prop:atom% (value '#f))) (code-4997 (new prop:field-id% (value code-4998) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-5000 (new prop:atom% (value '#f))) (code-4999 (new prop:field-id% (value code-5000) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-4967 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-4908) (properties (list (cons 'id code-4968) (cons 'code-gen-class code-4970) (cons 'label code-4972) (cons 'callback code-4979) (cons 'style code-4981) (cons 'font code-4983) (cons 'enabled code-4987) (cons 'vert-margin code-4989) (cons 'horiz-margin code-4991) (cons 'min-width code-4993) (cons 'min-height code-4995) (cons 'stretchable-width code-4997) (cons 'stretchable-height code-4999)))))) (list code-4763 code-4779 code-4833 code-4858 code-4908 code-4933 code-4967)))))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-437882000>, or mute the thread < https://github.com/notifications/unsubscribe-auth/ABlNHC1V3gIrLxKgUfAKz4MZtmMoVcmmks5uuXkKgaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-439624956, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHHwo9e2JZ-36h6VLbyz2gFx0PQaeks5uwCn6gaJpZM4YZiyg .

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

Metaxal commented 5 years ago

Do you think you'll have time to upgrade your mred-designer package and try to reproduce the problem to see if it's gone?

DexterLagan commented 5 years ago

Of course I’ll update ASAP and let you know.

Cheers !

Dex

On Nov 17, 2018, at 6:39 PM, Laurent Orseau notifications@github.com wrote:

Do you think you'll have time to upgrade your mred-designer package and try to reproduce the problem to see if it's gone?

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

Metaxal commented 5 years ago

cool, thanks.

DexterLagan commented 5 years ago

Hi Laurent, I tried MrEd-designer on Fedora 29 and I had the same exact problem with what seems the latest version. I attached the project files.Let me know if there's something I can do to help. Dex

On Sat, 2018-11-17 at 10:07 -0800, Laurent Orseau wrote:

cool, thanks. — You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

lang racket/base

;;========================================================================== ;;=== Code generated with MrEd Designer 3.17 === ;;=== https://github.com/Metaxal/MrEd-Designer === ;;==========================================================================

;;; Call (benchmark-gui-init) with optional arguments to this module

(require racket/gui/base racket/class racket/list )

(provide benchmark-gui-init main-window)

(define (label-bitmap-proc l) (let ((label (first l)) (image? (second l)) (file (third l))) (or (and image? (or (and file (let ((bmp (make-object bitmap% file 'unknown/mask))) (and (send bmp ok?) bmp))) "")) label)))

(define (list->font l) (with-handlers ((exn:fail? (λ (e) (send/apply the-font-list find-or-create-font (cons (first l) (rest (rest l))))))) (send/apply the-font-list find-or-create-font l)))

(define benchmark-gui #f) (define main-window #f) (define list-box #f) (define horizontal-pane #f) (define gauge #f) (define start-button #f) (define (benchmark-gui-init

:list-box-callback

     (list-box-callback (lambda (list-box control-event) (void)))
     #:start-button-callback
     (start-button-callback (lambda (button control-event) (void))))

(set! main-window (new frame% (parent benchmark-gui) (label "Spectral Norm Benchmark") (width 640) (height 480) (x #f) (y #f) (style '()) (enabled #t) (border 15) (spacing 0) (alignment (list 'center 'top)) (min-width 70) (min-height 30) (stretchable-width #t) (stretchable-height #t))) (set! list-box (new list-box% (parent main-window) (label #f) (choices (list "First")) (callback list-box-callback) (style ((lambda (l) (list (first l) (second l) (third l))) (list 'single 'horizontal-label '()))) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default #f))) (selection 0) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #t) (columns (list "Column")) (column-order #f))) (set! horizontal-pane (new horizontal-pane% (parent main-window) (vert-margin 0) (horiz-margin 0) (border 0) (spacing 0) (alignment (list 'center 'center)) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #f))) (set! gauge (new gauge% (parent horizontal-pane) (label "Progress: ") (range 100) (style ((λ (l) (list (first l) (second l) (third l))) (list 'horizontal 'horizontal-label '()))) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default #f))) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #f))) (set! start-button (new button% (parent horizontal-pane) (label (label-bitmap-proc (list "Start" #f #f))) (callback start-button-callback) (style '()) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default #f))) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #f) (stretchable-height #f))) (send main-window show #t))

(module+ main (benchmark-gui-init))

Metaxal commented 5 years ago

Can you run it from the command line with: racket -l mred-designer and see if some errors are raised in the console?

On Sun, Nov 25, 2018 at 4:57 PM DexterLagan notifications@github.com wrote:

Hi Laurent, I tried MrEd-designer on Fedora 29 and I had the same exact problem with what seems the latest version. I attached the project files.Let me know if there's something I can do to help. Dex

On Sat, 2018-11-17 at 10:07 -0800, Laurent Orseau wrote:

cool, thanks. — You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

lang racket/base

;;========================================================================== ;;=== Code generated with MrEd Designer 3.17 === ;;=== https://github.com/Metaxal/MrEd-Designer ===

;;==========================================================================

;;; Call (benchmark-gui-init) with optional arguments to this module

(require racket/gui/base racket/class racket/list )

(provide benchmark-gui-init main-window)

(define (label-bitmap-proc l) (let ((label (first l)) (image? (second l)) (file (third l))) (or (and image? (or (and file (let ((bmp (make-object bitmap% file 'unknown/mask))) (and (send bmp ok?) bmp))) "")) label)))

(define (list->font l) (with-handlers ((exn:fail? (λ (e) (send/apply the-font-list find-or-create-font (cons (first l) (rest (rest l))))))) (send/apply the-font-list find-or-create-font l)))

(define benchmark-gui #f) (define main-window #f) (define list-box #f) (define horizontal-pane #f) (define gauge #f) (define start-button #f) (define (benchmark-gui-init

:list-box-callback

(list-box-callback (lambda (list-box control-event) (void)))

:start-button-callback

(start-button-callback (lambda (button control-event) (void)))) (set! main-window (new frame% (parent benchmark-gui) (label "Spectral Norm Benchmark") (width 640) (height 480) (x #f) (y #f) (style '()) (enabled #t) (border 15) (spacing 0) (alignment (list 'center 'top)) (min-width 70) (min-height 30) (stretchable-width #t) (stretchable-height #t))) (set! list-box (new list-box% (parent main-window) (label #f) (choices (list "First")) (callback list-box-callback) (style ((lambda (l) (list (first l) (second l) (third l))) (list 'single 'horizontal-label '()))) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default #f))) (selection 0) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #t) (columns (list "Column")) (column-order #f))) (set! horizontal-pane (new horizontal-pane% (parent main-window) (vert-margin 0) (horiz-margin 0) (border 0) (spacing 0) (alignment (list 'center 'center)) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #f))) (set! gauge (new gauge% (parent horizontal-pane) (label "Progress: ") (range 100) (style ((λ (l) (list (first l) (second l) (third l))) (list 'horizontal 'horizontal-label '()))) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default #f))) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #f))) (set! start-button (new button% (parent horizontal-pane) (label (label-bitmap-proc (list "Start" #f #f))) (callback start-button-callback) (style '()) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default #f))) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #f) (stretchable-height #f))) (send main-window show #t))

(module+ main (benchmark-gui-init))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-441454996, or mute the thread https://github.com/notifications/unsubscribe-auth/ABlNHKJLgnE0g5on9Psjxo-nQxoVtfEuks5uyswPgaJpZM4YZiyg .

DexterLagan commented 5 years ago

Hi Laurent,

I was able to launch MrEd-Designer from the command line today and here's what I got when I opened the project that displays the empty arrows in the Hierarchy :

racket -l mred-designer MrEd Designer 3.17: starting template-load-file: load done MED template version: (3 17) send: target is not an object target: #f method name: get-text-extent context...: /usr/share/racket/collects/racket/private/class-internal.rkt:4611:0: obj-error34 /usr/share/racket/pkgs/gui-lib/mrlib/arrow-toggle-snip.rkt:161:4: set-state method in arrow-toggle-snip% /usr/share/racket/pkgs/gui-lib/mrlib/hierlist/hierlist- unit.rkt:479:13: handle-open method in hierarchical-list-snip% /home/dexterlagan/.racket/7.0/pkgs/mred-designer/mred- designer/hierarchy-frame.rkt:147:4: add-child loop /home/dexterlagan/.racket/7.0/pkgs/mred-designer/mred- designer/hierarchy-frame.rkt:147:4: add-child loop /home/dexterlagan/.racket/7.0/pkgs/mred-designer/mred- designer/hierarchy-frame.rkt:147:4: add-child /home/dexterlagan/.racket/7.0/pkgs/mred-designer/mred- designer/hierarchy-frame.rkt:134:4: core145 /home/dexterlagan/.racket/7.0/pkgs/mred-designer/mred- designer/controller.rkt:124:0: load-mred /home/dexterlagan/.racket/7.0/pkgs/mred-designer/mred- designer/misc.rkt:38:12: load-project /usr/share/racket/pkgs/gui-lib/mred/private/mrmenu.rkt:250:14: command method in basic-selectable-menu-item% /usr/share/racket/collects/racket/private/more-scheme.rkt:148:2: call-with-break-parameterization /usr/share/racket/collects/racket/private/more-scheme.rkt:265:2: call-with-exception-handler /usr/share/racket/pkgs/gui- lib/mred/private/wx/common/queue.rkt:428:6 /usr/share/racket/pkgs/gui- lib/mred/private/wx/common/queue.rkt:479:32 ...

Cheers,

Dexter

On Sun, 2018-11-25 at 11:23 -0800, Laurent Orseau wrote:

Can you run it from the command line with: racket -l mred-designer and see if some errors are raised in the console?

On Sun, Nov 25, 2018 at 4:57 PM DexterLagan <notifications@github.com

wrote:

Hi Laurent, I tried MrEd-designer on Fedora 29 and I had the same exact problem with what seems the latest version. I attached the project files.Let me know if there's something I can do to help. Dex

On Sat, 2018-11-17 at 10:07 -0800, Laurent Orseau wrote:

cool, thanks. — You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

lang racket/base

;;===================================================================

;;=== Code generated with MrEd Designer 3.17 === ;;=== https://github.com/Metaxal/MrEd-Designer ===

;;===================================================================

;;; Call (benchmark-gui-init) with optional arguments to this module

(require racket/gui/base racket/class racket/list )

(provide benchmark-gui-init main-window)

(define (label-bitmap-proc l) (let ((label (first l)) (image? (second l)) (file (third l))) (or (and image? (or (and file (let ((bmp (make-object bitmap% file 'unknown/mask))) (and (send bmp ok?) bmp))) "")) label)))

(define (list->font l) (with-handlers ((exn:fail? (λ (e) (send/apply the-font-list find-or-create-font (cons (first l) (rest (rest l))))))) (send/apply the-font-list find-or-create-font l)))

(define benchmark-gui #f) (define main-window #f) (define list-box #f) (define horizontal-pane #f) (define gauge #f) (define start-button #f) (define (benchmark-gui-init

:list-box-callback

(list-box-callback (lambda (list-box control-event) (void)))

:start-button-callback

(start-button-callback (lambda (button control-event) (void)))) (set! main-window (new frame% (parent benchmark-gui) (label "Spectral Norm Benchmark") (width 640) (height 480) (x #f) (y #f) (style '()) (enabled #t) (border 15) (spacing 0) (alignment (list 'center 'top)) (min-width 70) (min-height 30) (stretchable-width #t) (stretchable-height #t))) (set! list-box (new list-box% (parent main-window) (label #f) (choices (list "First")) (callback list-box-callback) (style ((lambda (l) (list* (first l) (second l) (third l))) (list 'single 'horizontal-label '()))) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default

f)))

(selection 0) (enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #t) (columns (list "Column")) (column-order #f))) (set! horizontal-pane (new horizontal-pane% (parent main-window) (vert-margin 0) (horiz-margin 0) (border 0) (spacing 0) (alignment (list 'center 'center)) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #f))) (set! gauge (new gauge% (parent horizontal-pane) (label "Progress: ") (range 100) (style ((λ (l) (list* (first l) (second l) (third l))) (list 'horizontal 'horizontal-label '()))) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default

f)))

(enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #t) (stretchable-height #f))) (set! start-button (new button% (parent horizontal-pane) (label (label-bitmap-proc (list "Start" #f #f))) (callback start-button-callback) (style '()) (font (list->font (list 8 #f 'default 'normal 'normal #f 'default

f)))

(enabled #t) (vert-margin 2) (horiz-margin 2) (min-width 0) (min-height 0) (stretchable-width #f) (stretchable-height #f))) (send main-window show #t))

(module+ main (benchmark-gui-init))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub < https://github.com/Metaxal/MrEd-Designer/issues/7#issuecomment-441454996> ;, or mute the thread < https://github.com/notifications/unsubscribe-auth/ABlNHKJLgnE0g5on9Psjxo-nQxoVtfEuks5uyswPgaJpZM4YZiyg

.

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

danekja commented 5 years ago

Hi,

Ive recently run into the same issue. Empty project (just opening MrEd and saving) loads just fine. Adding as much as single frame results in unloadable project file.

Environment: Win10

Cmd output:

MrEd Designer 3.17: starting
template-load-file: load done
MED template version: (3 17)
send: target is not an object
  target: #f
  method name: get-text-extent

Med file:

"project-144"
(list
 (cons 'name "project-144")
 (cons 'parent-class #f)
 (cons 'med-version (list 3 17))
 (cons
  'code
  (lambda (parent-191)
    (let* ((code-193 parent-191)
           (code-195 (new prop:atom% (value 'project-144)))
           (code-194
            (new
             prop:field-id%
             (value code-195)
             (field-id 'id)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#f)))
           (code-197 (new prop:code% (value project%) (value-code 'project%)))
           (code-196
            (new
             prop:field-id%
             (value code-197)
             (field-id 'code-gen-class)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-199
            (new
             prop:atom%
             (value
              '"D:\\some\\path\\to-project-folder\\gui\\project-144.med")))
           (code-198
            (new
             prop:field-id%
             (value code-199)
             (field-id 'file)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#t)))
           (code-201 (new prop:atom% (value '#f)))
           (code-200
            (new
             prop:field-id%
             (value code-201)
             (field-id 'code-file)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#t)))
           (code-203 (new prop:atom% (value '#t)))
           (code-202
            (new
             prop:field-id%
             (value code-203)
             (field-id 'changed)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#t)))
           (code-205
            (new
             prop:atom%
             (value (list '"racket/gui/base" '"racket/class" '"racket/list"))))
           (code-204
            (new
             prop:field-id%
             (value code-205)
             (field-id 'code-requires)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#f)))
           (code-207 (new prop:atom% (value '#f)))
           (code-206
            (new
             prop:field-id%
             (value code-207)
             (field-id 'runtime-paths?)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#f)))
           (code-192
            (new
             mred-id%
             (plugin (get-widget-plugin 'project))
             (mred-parent code-193)
             (properties
              (list
               (cons 'id code-194)
               (cons 'code-gen-class code-196)
               (cons 'file code-198)
               (cons 'code-file code-200)
               (cons 'changed code-202)
               (cons 'code-requires code-204)
               (cons 'runtime-paths? code-206)))))
           (code-210 (new prop:atom% (value 'frame-174)))
           (code-209
            (new
             prop:field-id%
             (value code-210)
             (field-id 'id)
             (option '#t)
             (necessary '#f)
             (no-code '#t)
             (hidden '#f)))
           (code-212 (new prop:code% (value frame%) (value-code 'frame%)))
           (code-211
            (new
             prop:field-id%
             (value code-212)
             (field-id 'code-gen-class)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-214 (new prop:atom% (value '"Frame")))
           (code-213
            (new
             prop:field-id%
             (value code-214)
             (field-id 'label)
             (option '#f)
             (necessary '#t)
             (no-code '#f)
             (hidden '#f)))
           (code-218 (new prop:atom% (value '#f)))
           (code-219 (new prop:atom% (value '0)))
           (code-217 (new prop:hgroup% (value (list code-218 code-219))))
           (code-220
            (new
             prop:code%
             (value (lambda (l) (and (first l) (second l))))
             (value-code '(lambda (l) (and (first l) (second l))))))
           (code-216
            (new
             prop:proc%
             (value code-217)
             (prop-code code-220)
             (generate-quoted-code '#f)))
           (code-215
            (new
             prop:field-id%
             (value code-216)
             (field-id 'width)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-224 (new prop:atom% (value '#f)))
           (code-225 (new prop:atom% (value '0)))
           (code-223 (new prop:hgroup% (value (list code-224 code-225))))
           (code-226
            (new
             prop:code%
             (value (lambda (l) (and (first l) (second l))))
             (value-code '(lambda (l) (and (first l) (second l))))))
           (code-222
            (new
             prop:proc%
             (value code-223)
             (prop-code code-226)
             (generate-quoted-code '#f)))
           (code-221
            (new
             prop:field-id%
             (value code-222)
             (field-id 'height)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-230 (new prop:atom% (value '#f)))
           (code-231 (new prop:atom% (value '0)))
           (code-229 (new prop:hgroup% (value (list code-230 code-231))))
           (code-232
            (new
             prop:code%
             (value (lambda (l) (and (first l) (second l))))
             (value-code '(lambda (l) (and (first l) (second l))))))
           (code-228
            (new
             prop:proc%
             (value code-229)
             (prop-code code-232)
             (generate-quoted-code '#f)))
           (code-227
            (new
             prop:field-id%
             (value code-228)
             (field-id 'x)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-236 (new prop:atom% (value '#f)))
           (code-237 (new prop:atom% (value '0)))
           (code-235 (new prop:hgroup% (value (list code-236 code-237))))
           (code-238
            (new
             prop:code%
             (value (lambda (l) (and (first l) (second l))))
             (value-code '(lambda (l) (and (first l) (second l))))))
           (code-234
            (new
             prop:proc%
             (value code-235)
             (prop-code code-238)
             (generate-quoted-code '#f)))
           (code-233
            (new
             prop:field-id%
             (value code-234)
             (field-id 'y)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-241
            (new
             prop:some-of%
             (value (list))
             (choices
              (list
               'no-resize-border
               'no-caption
               'no-system-menu
               'hide-menu-bar
               'toolbar-button
               'float
               'metal
               'fullscreen-button
               'fullscreen-aux))))
           (code-240 (new prop:popup% (value code-241)))
           (code-239
            (new
             prop:field-id%
             (value code-240)
             (field-id 'style)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-243 (new prop:atom% (value '#t)))
           (code-242
            (new
             prop:field-id%
             (value code-243)
             (field-id 'enabled)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-245 (new prop:atom% (value '0)))
           (code-244
            (new
             prop:field-id%
             (value code-245)
             (field-id 'border)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-247 (new prop:atom% (value '0)))
           (code-246
            (new
             prop:field-id%
             (value code-247)
             (field-id 'spacing)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-250
            (new
             prop:one-of%
             (value 'center)
             (choices (list 'left 'center 'right))))
           (code-251
            (new
             prop:one-of%
             (value 'top)
             (choices (list 'top 'center 'bottom))))
           (code-249 (new prop:group% (value (list code-250 code-251))))
           (code-248
            (new
             prop:field-id%
             (value code-249)
             (field-id 'alignment)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-253 (new prop:atom% (value '70)))
           (code-252
            (new
             prop:field-id%
             (value code-253)
             (field-id 'min-width)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-255 (new prop:atom% (value '30)))
           (code-254
            (new
             prop:field-id%
             (value code-255)
             (field-id 'min-height)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-257 (new prop:atom% (value '#t)))
           (code-256
            (new
             prop:field-id%
             (value code-257)
             (field-id 'stretchable-width)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-259 (new prop:atom% (value '#t)))
           (code-258
            (new
             prop:field-id%
             (value code-259)
             (field-id 'stretchable-height)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-261 (new prop:atom% (value '#t)))
           (code-260
            (new
             prop:field-id%
             (value code-261)
             (field-id 'show-at-init)
             (option '#f)
             (necessary '#f)
             (no-code '#t)
             (hidden '#f)))
           (code-208
            (new
             mred-id%
             (plugin (get-widget-plugin 'frame))
             (mred-parent code-192)
             (properties
              (list
               (cons 'id code-209)
               (cons 'code-gen-class code-211)
               (cons 'label code-213)
               (cons 'width code-215)
               (cons 'height code-221)
               (cons 'x code-227)
               (cons 'y code-233)
               (cons 'style code-239)
               (cons 'enabled code-242)
               (cons 'border code-244)
               (cons 'spacing code-246)
               (cons 'alignment code-248)
               (cons 'min-width code-252)
               (cons 'min-height code-254)
               (cons 'stretchable-width code-256)
               (cons 'stretchable-height code-258)
               (cons 'show-at-init code-260))))))
      (list code-192 code-208)))))
Metaxal commented 5 years ago

Thanks for the report. I've been making a little progress on this recently (yeah, sorry for the loooong wait), but I have very little time currently. I'll get back to this as soon as I can. I think there's been a backward incompatible change somewhere upstream and I need to find a workaround.

On Sun, Jul 28, 2019 at 8:12 PM Jakub Danek notifications@github.com wrote:

Hi,

Ive recently run into the same issue. Empty project (just opening MrEd and saving) loads just fine. Adding as much as single frame results in unloadable project file.

Environment: Win10

Cmd output:

MrEd Designer 3.17: starting template-load-file: load done MED template version: (3 17) send: target is not an object target: #f method name: get-text-extent

Med file:

"project-144" (list (cons 'name "project-144") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-191) (let* ((code-193 parent-191) (code-195 (new prop:atom% (value 'project-144))) (code-194 (new prop:field-id% (value code-195) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-197 (new prop:code% (value project%) (value-code 'project%))) (code-196 (new prop:field-id% (value code-197) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-199 (new prop:atom% (value '"D:\some\path\to-project-folder\gui\project-144.med"))) (code-198 (new prop:field-id% (value code-199) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-201 (new prop:atom% (value '#f))) (code-200 (new prop:field-id% (value code-201) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-203 (new prop:atom% (value '#t))) (code-202 (new prop:field-id% (value code-203) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-205 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-204 (new prop:field-id% (value code-205) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-207 (new prop:atom% (value '#f))) (code-206 (new prop:field-id% (value code-207) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-192 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-193) (properties (list (cons 'id code-194) (cons 'code-gen-class code-196) (cons 'file code-198) (cons 'code-file code-200) (cons 'changed code-202) (cons 'code-requires code-204) (cons 'runtime-paths? code-206))))) (code-210 (new prop:atom% (value 'frame-174))) (code-209 (new prop:field-id% (value code-210) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-212 (new prop:code% (value frame%) (value-code 'frame%))) (code-211 (new prop:field-id% (value code-212) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-214 (new prop:atom% (value '"Frame"))) (code-213 (new prop:field-id% (value code-214) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-218 (new prop:atom% (value '#f))) (code-219 (new prop:atom% (value '0))) (code-217 (new prop:hgroup% (value (list code-218 code-219)))) (code-220 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-216 (new prop:proc% (value code-217) (prop-code code-220) (generate-quoted-code '#f))) (code-215 (new prop:field-id% (value code-216) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-224 (new prop:atom% (value '#f))) (code-225 (new prop:atom% (value '0))) (code-223 (new prop:hgroup% (value (list code-224 code-225)))) (code-226 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-222 (new prop:proc% (value code-223) (prop-code code-226) (generate-quoted-code '#f))) (code-221 (new prop:field-id% (value code-222) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-230 (new prop:atom% (value '#f))) (code-231 (new prop:atom% (value '0))) (code-229 (new prop:hgroup% (value (list code-230 code-231)))) (code-232 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-228 (new prop:proc% (value code-229) (prop-code code-232) (generate-quoted-code '#f))) (code-227 (new prop:field-id% (value code-228) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-236 (new prop:atom% (value '#f))) (code-237 (new prop:atom% (value '0))) (code-235 (new prop:hgroup% (value (list code-236 code-237)))) (code-238 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-234 (new prop:proc% (value code-235) (prop-code code-238) (generate-quoted-code '#f))) (code-233 (new prop:field-id% (value code-234) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-241 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-240 (new prop:popup% (value code-241))) (code-239 (new prop:field-id% (value code-240) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-243 (new prop:atom% (value '#t))) (code-242 (new prop:field-id% (value code-243) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-245 (new prop:atom% (value '0))) (code-244 (new prop:field-id% (value code-245) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-247 (new prop:atom% (value '0))) (code-246 (new prop:field-id% (value code-247) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-250 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-251 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-249 (new prop:group% (value (list code-250 code-251)))) (code-248 (new prop:field-id% (value code-249) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-253 (new prop:atom% (value '70))) (code-252 (new prop:field-id% (value code-253) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-255 (new prop:atom% (value '30))) (code-254 (new prop:field-id% (value code-255) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-257 (new prop:atom% (value '#t))) (code-256 (new prop:field-id% (value code-257) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-259 (new prop:atom% (value '#t))) (code-258 (new prop:field-id% (value code-259) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-261 (new prop:atom% (value '#t))) (code-260 (new prop:field-id% (value code-261) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-208 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-192) (properties (list (cons 'id code-209) (cons 'code-gen-class code-211) (cons 'label code-213) (cons 'width code-215) (cons 'height code-221) (cons 'x code-227) (cons 'y code-233) (cons 'style code-239) (cons 'enabled code-242) (cons 'border code-244) (cons 'spacing code-246) (cons 'alignment code-248) (cons 'min-width code-252) (cons 'min-height code-254) (cons 'stretchable-width code-256) (cons 'stretchable-height code-258) (cons 'show-at-init code-260)))))) (list code-192 code-208)))))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7?email_source=notifications&email_token=AAMU2HATCDN2VLUBQEMD6CLQBXVTFA5CNFSM4GDGFSQKYY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD27EU5Q#issuecomment-515787382, or mute the thread https://github.com/notifications/unsubscribe-auth/AAMU2HDACT6NBFDROLFPATLQBXVTFANCNFSM4GDGFSQA .

DexterLagan commented 5 years ago

Hi Laurent,

Same here been busy with work and I failed getting your more details the last time around. I’ll try to reproduce the problem on my side. Let me know if you need anything specific and I’ll do my best.

Dex

On Jul 29, 2019, at 10:52 AM, Laurent Orseau notifications@github.com wrote:

Thanks for the report. I've been making a little progress on this recently (yeah, sorry for the loooong wait), but I have very little time currently. I'll get back to this as soon as I can. I think there's been a backward incompatible change somewhere upstream and I need to find a workaround.

On Sun, Jul 28, 2019 at 8:12 PM Jakub Danek notifications@github.com wrote:

Hi,

Ive recently run into the same issue. Empty project (just opening MrEd and saving) loads just fine. Adding as much as single frame results in unloadable project file.

Environment: Win10

Cmd output:

MrEd Designer 3.17: starting template-load-file: load done MED template version: (3 17) send: target is not an object target: #f method name: get-text-extent

Med file:

"project-144" (list (cons 'name "project-144") (cons 'parent-class #f) (cons 'med-version (list 3 17)) (cons 'code (lambda (parent-191) (let* ((code-193 parent-191) (code-195 (new prop:atom% (value 'project-144))) (code-194 (new prop:field-id% (value code-195) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-197 (new prop:code% (value project%) (value-code 'project%))) (code-196 (new prop:field-id% (value code-197) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-199 (new prop:atom% (value '"D:\some\path\to-project-folder\gui\project-144.med"))) (code-198 (new prop:field-id% (value code-199) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-201 (new prop:atom% (value '#f))) (code-200 (new prop:field-id% (value code-201) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-203 (new prop:atom% (value '#t))) (code-202 (new prop:field-id% (value code-203) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-205 (new prop:atom% (value (list '"racket/gui/base" '"racket/class" '"racket/list")))) (code-204 (new prop:field-id% (value code-205) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-207 (new prop:atom% (value '#f))) (code-206 (new prop:field-id% (value code-207) (field-id 'runtime-paths?) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-192 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-193) (properties (list (cons 'id code-194) (cons 'code-gen-class code-196) (cons 'file code-198) (cons 'code-file code-200) (cons 'changed code-202) (cons 'code-requires code-204) (cons 'runtime-paths? code-206))))) (code-210 (new prop:atom% (value 'frame-174))) (code-209 (new prop:field-id% (value code-210) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-212 (new prop:code% (value frame%) (value-code 'frame%))) (code-211 (new prop:field-id% (value code-212) (field-id 'code-gen-class) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-214 (new prop:atom% (value '"Frame"))) (code-213 (new prop:field-id% (value code-214) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-218 (new prop:atom% (value '#f))) (code-219 (new prop:atom% (value '0))) (code-217 (new prop:hgroup% (value (list code-218 code-219)))) (code-220 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-216 (new prop:proc% (value code-217) (prop-code code-220) (generate-quoted-code '#f))) (code-215 (new prop:field-id% (value code-216) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-224 (new prop:atom% (value '#f))) (code-225 (new prop:atom% (value '0))) (code-223 (new prop:hgroup% (value (list code-224 code-225)))) (code-226 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-222 (new prop:proc% (value code-223) (prop-code code-226) (generate-quoted-code '#f))) (code-221 (new prop:field-id% (value code-222) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-230 (new prop:atom% (value '#f))) (code-231 (new prop:atom% (value '0))) (code-229 (new prop:hgroup% (value (list code-230 code-231)))) (code-232 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-228 (new prop:proc% (value code-229) (prop-code code-232) (generate-quoted-code '#f))) (code-227 (new prop:field-id% (value code-228) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-236 (new prop:atom% (value '#f))) (code-237 (new prop:atom% (value '0))) (code-235 (new prop:hgroup% (value (list code-236 code-237)))) (code-238 (new prop:code% (value (lambda (l) (and (first l) (second l)))) (value-code '(lambda (l) (and (first l) (second l)))))) (code-234 (new prop:proc% (value code-235) (prop-code code-238) (generate-quoted-code '#f))) (code-233 (new prop:field-id% (value code-234) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-241 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'toolbar-button 'float 'metal 'fullscreen-button 'fullscreen-aux)))) (code-240 (new prop:popup% (value code-241))) (code-239 (new prop:field-id% (value code-240) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-243 (new prop:atom% (value '#t))) (code-242 (new prop:field-id% (value code-243) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-245 (new prop:atom% (value '0))) (code-244 (new prop:field-id% (value code-245) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-247 (new prop:atom% (value '0))) (code-246 (new prop:field-id% (value code-247) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-250 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-251 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-249 (new prop:group% (value (list code-250 code-251)))) (code-248 (new prop:field-id% (value code-249) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-253 (new prop:atom% (value '70))) (code-252 (new prop:field-id% (value code-253) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-255 (new prop:atom% (value '30))) (code-254 (new prop:field-id% (value code-255) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-257 (new prop:atom% (value '#t))) (code-256 (new prop:field-id% (value code-257) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-259 (new prop:atom% (value '#t))) (code-258 (new prop:field-id% (value code-259) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-261 (new prop:atom% (value '#t))) (code-260 (new prop:field-id% (value code-261) (field-id 'show-at-init) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-208 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-192) (properties (list (cons 'id code-209) (cons 'code-gen-class code-211) (cons 'label code-213) (cons 'width code-215) (cons 'height code-221) (cons 'x code-227) (cons 'y code-233) (cons 'style code-239) (cons 'enabled code-242) (cons 'border code-244) (cons 'spacing code-246) (cons 'alignment code-248) (cons 'min-width code-252) (cons 'min-height code-254) (cons 'stretchable-width code-256) (cons 'stretchable-height code-258) (cons 'show-at-init code-260)))))) (list code-192 code-208)))))

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/Metaxal/MrEd-Designer/issues/7?email_source=notifications&email_token=AAMU2HATCDN2VLUBQEMD6CLQBXVTFA5CNFSM4GDGFSQKYY3PNVWWK3TUL52HS4DFVREXG43VMVBW63LNMVXHJKTDN5WW2ZLOORPWSZGOD27EU5Q#issuecomment-515787382, or mute the thread https://github.com/notifications/unsubscribe-auth/AAMU2HDACT6NBFDROLFPATLQBXVTFANCNFSM4GDGFSQA .

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub, or mute the thread.

AMDphreak commented 4 years ago

The Hierarchy Window loads some items, but it doesn't load them correctly. Names are missing, and selecting one does not load the properties.

image image

Closing the project closes the project elsewhere but does not close the project in the Hierarchy window.

Metaxal commented 4 years ago

I believe this is now fixed.

I had to disable opening the hierarchy list of newly created items. Now the user must click on the arrow manually to open them. It's a little annoying, but I can't figure out why opening them makes it crash. I currently suspect an upstream bug, but it's a little difficult to track it.

Anyhow, thank you all for the report and for your help to fix this!

Metaxal commented 4 years ago

I just pushed a workaround(?). All items in the hierarchy list are now opened recursively. For some reason this cannot be done within an edit sequence.

Things should be back to normal now.

AMDphreak commented 4 years ago

I just pushed a workaround(?). All items in the hierarchy list are now opened recursively. For some reason this cannot be done within an edit sequence.

Things should be back to normal now.

Not sure what "edit sequence" means, but recursive processing seems to be implicit for most tools, so it sounds like you're going in the right direction (says me, the ignorant one, ha).

AMDphreak commented 4 years ago

Updated on my machine. It works for me. Thanks.