; This file was generated with MrEd Designer 3.0 (lambda (parent-91948) (let* ((code-91950 parent-91948) (code-91952 (new prop:atom% (value 'project-91878))) (code-91951 (new prop:field-id% (value code-91952) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-91954 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-91878.med"))) (code-91953 (new prop:field-id% (value code-91954) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-91956 (new prop:atom% (value '#f))) (code-91955 (new prop:field-id% (value code-91956) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-91958 (new prop:atom% (value '#t))) (code-91957 (new prop:field-id% (value code-91958) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-91960 (new prop:atom% (value (list '"framework")))) (code-91959 (new prop:field-id% (value code-91960) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-91949 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-91950) (properties (list (cons 'id code-91951) (cons 'file code-91953) (cons 'code-file code-91955) (cons 'changed code-91957) (cons 'code-requires code-91959))))) (code-91963 (new prop:atom% (value 'frame-91886))) (code-91962 (new prop:field-id% (value code-91963) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-91965 (new prop:atom% (value '"Frame"))) (code-91964 (new prop:field-id% (value code-91965) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-91967 (new prop:atom% (value '412))) (code-91966 (new prop:field-id% (value code-91967) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91969 (new prop:atom% (value '264))) (code-91968 (new prop:field-id% (value code-91969) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91971 (new prop:atom% (value '261))) (code-91970 (new prop:field-id% (value code-91971) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91973 (new prop:atom% (value '541))) (code-91972 (new prop:field-id% (value code-91973) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91976 (new prop:some-of% (value (list)) (choices (list 'no-resize-border 'no-caption 'no-system-menu 'hide-menu-bar 'mdi-parent 'mdi-child 'toolbar-button 'float 'metal)))) (code-91975 (new prop:popup% (value code-91976))) (code-91974 (new prop:field-id% (value code-91975) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91978 (new prop:atom% (value '#t))) (code-91977 (new prop:field-id% (value code-91978) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91980 (new prop:atom% (value '0))) (code-91979 (new prop:field-id% (value code-91980) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91982 (new prop:atom% (value '0))) (code-91981 (new prop:field-id% (value code-91982) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91985 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-91986 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-91984 (new prop:group% (value (list code-91985 code-91986)))) (code-91983 (new prop:field-id% (value code-91984) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91988 (new prop:atom% (value '70))) (code-91987 (new prop:field-id% (value code-91988) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91990 (new prop:atom% (value '30))) (code-91989 (new prop:field-id% (value code-91990) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91992 (new prop:atom% (value '#t))) (code-91991 (new prop:field-id% (value code-91992) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91994 (new prop:atom% (value '#t))) (code-91993 (new prop:field-id% (value code-91994) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91961 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-91949) (properties (list (cons 'id code-91962) (cons 'label code-91964) (cons 'width code-91966) (cons 'height code-91968) (cons 'x code-91970) (cons 'y code-91972) (cons 'style code-91974) (cons 'enabled code-91977) (cons 'border code-91979) (cons 'spacing code-91981) (cons 'alignment code-91983) (cons 'min-width code-91987) (cons 'min-height code-91989) (cons 'stretchable-width code-91991) (cons 'stretchable-height code-91993))))) (code-91997 (new prop:atom% (value 'menu-bar-91915))) (code-91996 (new prop:field-id% (value code-91997) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-91999 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-91998 (new prop:field-id% (value code-91999) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-91995 (new mred-id% (plugin (get-widget-plugin 'menu-bar)) (mred-parent code-91961) (properties (list (cons 'id code-91996) (cons 'demand-callback code-91998))))) (code-92002 (new prop:atom% (value 'menu-91922))) (code-92001 (new prop:field-id% (value code-92002) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-92004 (new prop:atom% (value '"&Menu"))) (code-92003 (new prop:field-id% (value code-92004) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-92006 (new prop:atom% (value '"Menu"))) (code-92005 (new prop:field-id% (value code-92006) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92008 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-92007 (new prop:field-id% (value code-92008) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92000 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-91995) (properties (list (cons 'id code-92001) (cons 'label code-92003) (cons 'help-string code-92005) (cons 'demand-callback code-92007))))) (code-92011 (new prop:atom% (value 'menu-item-91933))) (code-92010 (new prop:field-id% (value code-92011) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-92013 (new prop:atom% (value '"&Item"))) (code-92012 (new prop:field-id% (value code-92013) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-92015 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-92014 (new prop:field-id% (value code-92015) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92017 (shortcut-values #\T)) (code-92016 (new prop:field-id% (value code-92017) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92019 (new prop:atom% (value '"Item"))) (code-92018 (new prop:field-id% (value code-92019) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92021 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-92020 (new prop:field-id% (value code-92021) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92023 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-92022 (new prop:field-id% (value code-92023) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-92009 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-92000) (properties (list (cons 'id code-92010) (cons 'label code-92012) (cons 'callback code-92014) (cons 'shortcut code-92016) (cons 'help-string code-92018) (cons 'demand-callback code-92020) (cons 'shortcut-prefix code-92022)))))) (list code-91949 code-91961 code-91995 code-92000 code-92009)))