; This file was generated with MrEd Designer 3.0 (lambda (parent-54106) (let* ((code-54108 parent-54106) (code-54110 (new prop:atom% (value 'project-test-all))) (code-54109 (new prop:field-id% (value code-54110) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54112 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-test-all.med"))) (code-54111 (new prop:field-id% (value code-54112) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-54114 (new prop:atom% (value '#f))) (code-54113 (new prop:field-id% (value code-54114) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-54116 (new prop:atom% (value '#t))) (code-54115 (new prop:field-id% (value code-54116) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-54118 (new prop:atom% (value (list '"framework")))) (code-54117 (new prop:field-id% (value code-54118) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54107 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-54108) (properties (list (cons 'id code-54109) (cons 'file code-54111) (cons 'code-file code-54113) (cons 'changed code-54115) (cons 'code-requires code-54117))))) (code-54121 (new prop:atom% (value 'frame-53711))) (code-54120 (new prop:field-id% (value code-54121) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54123 (new prop:atom% (value '"Frame"))) (code-54122 (new prop:field-id% (value code-54123) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54125 (new prop:atom% (value '#f))) (code-54124 (new prop:field-id% (value code-54125) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54127 (new prop:atom% (value '#f))) (code-54126 (new prop:field-id% (value code-54127) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54129 (new prop:atom% (value '525))) (code-54128 (new prop:field-id% (value code-54129) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54131 (new prop:atom% (value '300))) (code-54130 (new prop:field-id% (value code-54131) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54134 (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-54133 (new prop:popup% (value code-54134))) (code-54132 (new prop:field-id% (value code-54133) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54136 (new prop:atom% (value '#t))) (code-54135 (new prop:field-id% (value code-54136) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54138 (new prop:atom% (value '0))) (code-54137 (new prop:field-id% (value code-54138) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54140 (new prop:atom% (value '0))) (code-54139 (new prop:field-id% (value code-54140) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54143 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54144 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-54142 (new prop:group% (value (list code-54143 code-54144)))) (code-54141 (new prop:field-id% (value code-54142) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54146 (new prop:atom% (value '70))) (code-54145 (new prop:field-id% (value code-54146) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54148 (new prop:atom% (value '30))) (code-54147 (new prop:field-id% (value code-54148) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54150 (new prop:atom% (value '#t))) (code-54149 (new prop:field-id% (value code-54150) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54152 (new prop:atom% (value '#t))) (code-54151 (new prop:field-id% (value code-54152) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54119 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-54107) (properties (list (cons 'id code-54120) (cons 'label code-54122) (cons 'width code-54124) (cons 'height code-54126) (cons 'x code-54128) (cons 'y code-54130) (cons 'style code-54132) (cons 'enabled code-54135) (cons 'border code-54137) (cons 'spacing code-54139) (cons 'alignment code-54141) (cons 'min-width code-54145) (cons 'min-height code-54147) (cons 'stretchable-width code-54149) (cons 'stretchable-height code-54151))))) (code-54155 (new prop:atom% (value 'pane-53738))) (code-54154 (new prop:field-id% (value code-54155) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54157 (new prop:atom% (value '0))) (code-54156 (new prop:field-id% (value code-54157) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54159 (new prop:atom% (value '0))) (code-54158 (new prop:field-id% (value code-54159) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54161 (new prop:atom% (value '0))) (code-54160 (new prop:field-id% (value code-54161) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54163 (new prop:atom% (value '0))) (code-54162 (new prop:field-id% (value code-54163) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54166 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54167 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-54165 (new prop:group% (value (list code-54166 code-54167)))) (code-54164 (new prop:field-id% (value code-54165) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54169 (new prop:atom% (value '0))) (code-54168 (new prop:field-id% (value code-54169) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54171 (new prop:atom% (value '0))) (code-54170 (new prop:field-id% (value code-54171) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54173 (new prop:atom% (value '#t))) (code-54172 (new prop:field-id% (value code-54173) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54175 (new prop:atom% (value '#t))) (code-54174 (new prop:field-id% (value code-54175) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54153 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-54119) (properties (list (cons 'id code-54154) (cons 'vert-margin code-54156) (cons 'horiz-margin code-54158) (cons 'border code-54160) (cons 'spacing code-54162) (cons 'alignment code-54164) (cons 'min-width code-54168) (cons 'min-height code-54170) (cons 'stretchable-width code-54172) (cons 'stretchable-height code-54174))))) (code-54178 (new prop:atom% (value 'gauge-53884))) (code-54177 (new prop:field-id% (value code-54178) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54180 (new prop:atom% (value '"Gauge"))) (code-54179 (new prop:field-id% (value code-54180) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54182 (new prop:atom% (value '100))) (code-54181 (new prop:field-id% (value code-54182) (field-id 'range) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54186 (new prop:one-of% (value 'horizontal) (choices (list 'horizontal 'vertical)))) (code-54187 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54188 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54185 (new prop:group% (value (list code-54186 code-54187 code-54188)))) (code-54189 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-54184 (new prop:proc% (value code-54185) (prop-code code-54189))) (code-54183 (new prop:field-id% (value code-54184) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54194 (new prop:atom% (value '8))) (code-54195 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54196 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54197 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54198 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54199 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54200 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54193 (new prop:group% (value (list code-54194 code-54195 code-54196 code-54197 code-54198 code-54199 code-54200)))) (code-54192 (new prop:popup% (value code-54193))) (code-54201 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54191 (new prop:proc% (value code-54192) (prop-code code-54201))) (code-54190 (new prop:field-id% (value code-54191) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54203 (new prop:atom% (value '#t))) (code-54202 (new prop:field-id% (value code-54203) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54205 (new prop:atom% (value '2))) (code-54204 (new prop:field-id% (value code-54205) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54207 (new prop:atom% (value '2))) (code-54206 (new prop:field-id% (value code-54207) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54209 (new prop:atom% (value '0))) (code-54208 (new prop:field-id% (value code-54209) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54211 (new prop:atom% (value '0))) (code-54210 (new prop:field-id% (value code-54211) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54213 (new prop:atom% (value '#f))) (code-54212 (new prop:field-id% (value code-54213) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54215 (new prop:atom% (value '#f))) (code-54214 (new prop:field-id% (value code-54215) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54176 (new mred-id% (plugin (get-widget-plugin 'gauge)) (mred-parent code-54153) (properties (list (cons 'id code-54177) (cons 'label code-54179) (cons 'range code-54181) (cons 'style code-54183) (cons 'font code-54190) (cons 'enabled code-54202) (cons 'vert-margin code-54204) (cons 'horiz-margin code-54206) (cons 'min-width code-54208) (cons 'min-height code-54210) (cons 'stretchable-width code-54212) (cons 'stretchable-height code-54214))))) (code-54218 (new prop:atom% (value 'horizontal-pane-53742))) (code-54217 (new prop:field-id% (value code-54218) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54220 (new prop:atom% (value '0))) (code-54219 (new prop:field-id% (value code-54220) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54222 (new prop:atom% (value '0))) (code-54221 (new prop:field-id% (value code-54222) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54224 (new prop:atom% (value '0))) (code-54223 (new prop:field-id% (value code-54224) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54226 (new prop:atom% (value '0))) (code-54225 (new prop:field-id% (value code-54226) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54229 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-54230 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-54228 (new prop:group% (value (list code-54229 code-54230)))) (code-54227 (new prop:field-id% (value code-54228) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54232 (new prop:atom% (value '0))) (code-54231 (new prop:field-id% (value code-54232) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54234 (new prop:atom% (value '0))) (code-54233 (new prop:field-id% (value code-54234) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54236 (new prop:atom% (value '#t))) (code-54235 (new prop:field-id% (value code-54236) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54238 (new prop:atom% (value '#t))) (code-54237 (new prop:field-id% (value code-54238) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54216 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-54119) (properties (list (cons 'id code-54217) (cons 'vert-margin code-54219) (cons 'horiz-margin code-54221) (cons 'border code-54223) (cons 'spacing code-54225) (cons 'alignment code-54227) (cons 'min-width code-54231) (cons 'min-height code-54233) (cons 'stretchable-width code-54235) (cons 'stretchable-height code-54237))))) (code-54241 (new prop:atom% (value 'radio-box-53905))) (code-54240 (new prop:field-id% (value code-54241) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54243 (new prop:atom% (value '"Radio Box"))) (code-54242 (new prop:field-id% (value code-54243) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54245 (new prop:atom% (value (list '"&First" '"&Second")))) (code-54244 (new prop:field-id% (value code-54245) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54247 (new prop:code% (value (lambda (radio-box control-event) (void))) (value-code '(lambda (radio-box control-event) (void))))) (code-54246 (new prop:field-id% (value code-54247) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54251 (new prop:one-of% (value 'vertical) (choices (list 'vertical 'horizontal)))) (code-54252 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54253 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54250 (new prop:group% (value (list code-54251 code-54252 code-54253)))) (code-54254 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-54249 (new prop:proc% (value code-54250) (prop-code code-54254))) (code-54248 (new prop:field-id% (value code-54249) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54259 (new prop:atom% (value '8))) (code-54260 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54261 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54262 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54263 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54264 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54265 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54258 (new prop:group% (value (list code-54259 code-54260 code-54261 code-54262 code-54263 code-54264 code-54265)))) (code-54257 (new prop:popup% (value code-54258))) (code-54266 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54256 (new prop:proc% (value code-54257) (prop-code code-54266))) (code-54255 (new prop:field-id% (value code-54256) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54268 (new prop:atom% (value '0))) (code-54267 (new prop:field-id% (value code-54268) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54270 (new prop:atom% (value '#t))) (code-54269 (new prop:field-id% (value code-54270) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54272 (new prop:atom% (value '2))) (code-54271 (new prop:field-id% (value code-54272) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54274 (new prop:atom% (value '2))) (code-54273 (new prop:field-id% (value code-54274) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54276 (new prop:atom% (value '0))) (code-54275 (new prop:field-id% (value code-54276) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54278 (new prop:atom% (value '0))) (code-54277 (new prop:field-id% (value code-54278) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54280 (new prop:atom% (value '#f))) (code-54279 (new prop:field-id% (value code-54280) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54282 (new prop:atom% (value '#f))) (code-54281 (new prop:field-id% (value code-54282) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54239 (new mred-id% (plugin (get-widget-plugin 'radio-box)) (mred-parent code-54216) (properties (list (cons 'id code-54240) (cons 'label code-54242) (cons 'choices code-54244) (cons 'callback code-54246) (cons 'style code-54248) (cons 'font code-54255) (cons 'selection code-54267) (cons 'enabled code-54269) (cons 'vert-margin code-54271) (cons 'horiz-margin code-54273) (cons 'min-width code-54275) (cons 'min-height code-54277) (cons 'stretchable-width code-54279) (cons 'stretchable-height code-54281))))) (code-54285 (new prop:atom% (value 'slider-54102))) (code-54284 (new prop:field-id% (value code-54285) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54287 (new prop:atom% (value '"Slider"))) (code-54286 (new prop:field-id% (value code-54287) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54289 (new prop:atom% (value '0))) (code-54288 (new prop:field-id% (value code-54289) (field-id 'min-value) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54291 (new prop:atom% (value '100))) (code-54290 (new prop:field-id% (value code-54291) (field-id 'max-value) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54293 (new prop:atom% (value '0))) (code-54292 (new prop:field-id% (value code-54293) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54295 (new prop:code% (value (λ (slider control-event) (void))) (value-code '(λ (slider control-event) (void))))) (code-54294 (new prop:field-id% (value code-54295) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54299 (new prop:one-of% (value 'horizontal) (choices (list 'horizontal 'vertical)))) (code-54300 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54301 (new prop:some-of% (value (list)) (choices (list 'deleted 'plain)))) (code-54298 (new prop:group% (value (list code-54299 code-54300 code-54301)))) (code-54302 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-54297 (new prop:proc% (value code-54298) (prop-code code-54302))) (code-54296 (new prop:field-id% (value code-54297) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54307 (new prop:atom% (value '8))) (code-54308 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54309 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54310 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54311 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54312 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54313 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54306 (new prop:group% (value (list code-54307 code-54308 code-54309 code-54310 code-54311 code-54312 code-54313)))) (code-54305 (new prop:popup% (value code-54306))) (code-54314 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54304 (new prop:proc% (value code-54305) (prop-code code-54314))) (code-54303 (new prop:field-id% (value code-54304) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54316 (new prop:atom% (value '#t))) (code-54315 (new prop:field-id% (value code-54316) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54318 (new prop:atom% (value '2))) (code-54317 (new prop:field-id% (value code-54318) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54320 (new prop:atom% (value '2))) (code-54319 (new prop:field-id% (value code-54320) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54322 (new prop:atom% (value '0))) (code-54321 (new prop:field-id% (value code-54322) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54324 (new prop:atom% (value '0))) (code-54323 (new prop:field-id% (value code-54324) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54326 (new prop:atom% (value '#f))) (code-54325 (new prop:field-id% (value code-54326) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54328 (new prop:atom% (value '#f))) (code-54327 (new prop:field-id% (value code-54328) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54283 (new mred-id% (plugin (get-widget-plugin 'slider)) (mred-parent code-54216) (properties (list (cons 'id code-54284) (cons 'label code-54286) (cons 'min-value code-54288) (cons 'max-value code-54290) (cons 'init-value code-54292) (cons 'callback code-54294) (cons 'style code-54296) (cons 'font code-54303) (cons 'enabled code-54315) (cons 'vert-margin code-54317) (cons 'horiz-margin code-54319) (cons 'min-width code-54321) (cons 'min-height code-54323) (cons 'stretchable-width code-54325) (cons 'stretchable-height code-54327))))) (code-54331 (new prop:atom% (value 'vertical-pane-53746))) (code-54330 (new prop:field-id% (value code-54331) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54333 (new prop:atom% (value '0))) (code-54332 (new prop:field-id% (value code-54333) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54335 (new prop:atom% (value '0))) (code-54334 (new prop:field-id% (value code-54335) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54337 (new prop:atom% (value '0))) (code-54336 (new prop:field-id% (value code-54337) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54339 (new prop:atom% (value '0))) (code-54338 (new prop:field-id% (value code-54339) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54342 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54343 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-54341 (new prop:group% (value (list code-54342 code-54343)))) (code-54340 (new prop:field-id% (value code-54341) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54345 (new prop:atom% (value '0))) (code-54344 (new prop:field-id% (value code-54345) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54347 (new prop:atom% (value '0))) (code-54346 (new prop:field-id% (value code-54347) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54349 (new prop:atom% (value '#t))) (code-54348 (new prop:field-id% (value code-54349) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54351 (new prop:atom% (value '#t))) (code-54350 (new prop:field-id% (value code-54351) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54329 (new mred-id% (plugin (get-widget-plugin 'vertical-pane)) (mred-parent code-54119) (properties (list (cons 'id code-54330) (cons 'vert-margin code-54332) (cons 'horiz-margin code-54334) (cons 'border code-54336) (cons 'spacing code-54338) (cons 'alignment code-54340) (cons 'min-width code-54344) (cons 'min-height code-54346) (cons 'stretchable-width code-54348) (cons 'stretchable-height code-54350))))) (code-54354 (new prop:atom% (value 'choice-53926))) (code-54353 (new prop:field-id% (value code-54354) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54356 (new prop:atom% (value '"Choice"))) (code-54355 (new prop:field-id% (value code-54356) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54358 (new prop:atom% (value (list '"First" '"Second")))) (code-54357 (new prop:field-id% (value code-54358) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54360 (new prop:code% (value (lambda (choice control-event) (void))) (value-code '(lambda (choice control-event) (void))))) (code-54359 (new prop:field-id% (value code-54360) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54364 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54365 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54363 (new prop:group% (value (list code-54364 code-54365)))) (code-54366 (new prop:code% (value (λ (l) (list* (first l) (second l)))) (value-code '(λ (l) (list* (first l) (second l)))))) (code-54362 (new prop:proc% (value code-54363) (prop-code code-54366))) (code-54361 (new prop:field-id% (value code-54362) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54371 (new prop:atom% (value '8))) (code-54372 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54373 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54374 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54375 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54376 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54377 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54370 (new prop:group% (value (list code-54371 code-54372 code-54373 code-54374 code-54375 code-54376 code-54377)))) (code-54369 (new prop:popup% (value code-54370))) (code-54378 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54368 (new prop:proc% (value code-54369) (prop-code code-54378))) (code-54367 (new prop:field-id% (value code-54368) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54380 (new prop:atom% (value '0))) (code-54379 (new prop:field-id% (value code-54380) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54382 (new prop:atom% (value '#t))) (code-54381 (new prop:field-id% (value code-54382) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54384 (new prop:atom% (value '2))) (code-54383 (new prop:field-id% (value code-54384) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54386 (new prop:atom% (value '2))) (code-54385 (new prop:field-id% (value code-54386) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54388 (new prop:atom% (value '0))) (code-54387 (new prop:field-id% (value code-54388) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54390 (new prop:atom% (value '0))) (code-54389 (new prop:field-id% (value code-54390) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54392 (new prop:atom% (value '#f))) (code-54391 (new prop:field-id% (value code-54392) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54394 (new prop:atom% (value '#f))) (code-54393 (new prop:field-id% (value code-54394) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54352 (new mred-id% (plugin (get-widget-plugin 'choice)) (mred-parent code-54329) (properties (list (cons 'id code-54353) (cons 'label code-54355) (cons 'choices code-54357) (cons 'callback code-54359) (cons 'style code-54361) (cons 'font code-54367) (cons 'selection code-54379) (cons 'enabled code-54381) (cons 'vert-margin code-54383) (cons 'horiz-margin code-54385) (cons 'min-width code-54387) (cons 'min-height code-54389) (cons 'stretchable-width code-54391) (cons 'stretchable-height code-54393))))) (code-54397 (new prop:atom% (value 'panel-53750))) (code-54396 (new prop:field-id% (value code-54397) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54399 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-54398 (new prop:field-id% (value code-54399) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54401 (new prop:atom% (value '#t))) (code-54400 (new prop:field-id% (value code-54401) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54403 (new prop:atom% (value '0))) (code-54402 (new prop:field-id% (value code-54403) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54405 (new prop:atom% (value '0))) (code-54404 (new prop:field-id% (value code-54405) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54407 (new prop:atom% (value '0))) (code-54406 (new prop:field-id% (value code-54407) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54409 (new prop:atom% (value '0))) (code-54408 (new prop:field-id% (value code-54409) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54412 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54413 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-54411 (new prop:group% (value (list code-54412 code-54413)))) (code-54410 (new prop:field-id% (value code-54411) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54415 (new prop:atom% (value '0))) (code-54414 (new prop:field-id% (value code-54415) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54417 (new prop:atom% (value '0))) (code-54416 (new prop:field-id% (value code-54417) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54419 (new prop:atom% (value '#t))) (code-54418 (new prop:field-id% (value code-54419) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54421 (new prop:atom% (value '#t))) (code-54420 (new prop:field-id% (value code-54421) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54395 (new mred-id% (plugin (get-widget-plugin 'panel)) (mred-parent code-54119) (properties (list (cons 'id code-54396) (cons 'style code-54398) (cons 'enabled code-54400) (cons 'vert-margin code-54402) (cons 'horiz-margin code-54404) (cons 'border code-54406) (cons 'spacing code-54408) (cons 'alignment code-54410) (cons 'min-width code-54414) (cons 'min-height code-54416) (cons 'stretchable-width code-54418) (cons 'stretchable-height code-54420))))) (code-54424 (new prop:atom% (value 'list-box-53949))) (code-54423 (new prop:field-id% (value code-54424) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54426 (new prop:atom% (value '"List Box"))) (code-54425 (new prop:field-id% (value code-54426) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54428 (new prop:atom% (value (list '"First" '"Second")))) (code-54427 (new prop:field-id% (value code-54428) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54430 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-54429 (new prop:field-id% (value code-54430) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54434 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-54435 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54436 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54433 (new prop:group% (value (list code-54434 code-54435 code-54436)))) (code-54437 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-54432 (new prop:proc% (value code-54433) (prop-code code-54437))) (code-54431 (new prop:field-id% (value code-54432) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54442 (new prop:atom% (value '8))) (code-54443 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54444 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54445 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54446 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54447 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54448 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54441 (new prop:group% (value (list code-54442 code-54443 code-54444 code-54445 code-54446 code-54447 code-54448)))) (code-54440 (new prop:popup% (value code-54441))) (code-54449 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54439 (new prop:proc% (value code-54440) (prop-code code-54449))) (code-54438 (new prop:field-id% (value code-54439) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54451 (new prop:atom% (value '0))) (code-54450 (new prop:field-id% (value code-54451) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54453 (new prop:atom% (value '#t))) (code-54452 (new prop:field-id% (value code-54453) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54455 (new prop:atom% (value '2))) (code-54454 (new prop:field-id% (value code-54455) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54457 (new prop:atom% (value '2))) (code-54456 (new prop:field-id% (value code-54457) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54459 (new prop:atom% (value '0))) (code-54458 (new prop:field-id% (value code-54459) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54461 (new prop:atom% (value '0))) (code-54460 (new prop:field-id% (value code-54461) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54463 (new prop:atom% (value '#f))) (code-54462 (new prop:field-id% (value code-54463) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54465 (new prop:atom% (value '#f))) (code-54464 (new prop:field-id% (value code-54465) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54422 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-54395) (properties (list (cons 'id code-54423) (cons 'label code-54425) (cons 'choices code-54427) (cons 'callback code-54429) (cons 'style code-54431) (cons 'font code-54438) (cons 'selection code-54450) (cons 'enabled code-54452) (cons 'vert-margin code-54454) (cons 'horiz-margin code-54456) (cons 'min-width code-54458) (cons 'min-height code-54460) (cons 'stretchable-width code-54462) (cons 'stretchable-height code-54464))))) (code-54468 (new prop:atom% (value 'horizontal-panel-53754))) (code-54467 (new prop:field-id% (value code-54468) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54470 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-54469 (new prop:field-id% (value code-54470) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54472 (new prop:atom% (value '#t))) (code-54471 (new prop:field-id% (value code-54472) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54474 (new prop:atom% (value '0))) (code-54473 (new prop:field-id% (value code-54474) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54476 (new prop:atom% (value '0))) (code-54475 (new prop:field-id% (value code-54476) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54478 (new prop:atom% (value '0))) (code-54477 (new prop:field-id% (value code-54478) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54480 (new prop:atom% (value '0))) (code-54479 (new prop:field-id% (value code-54480) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54483 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-54484 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-54482 (new prop:group% (value (list code-54483 code-54484)))) (code-54481 (new prop:field-id% (value code-54482) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54486 (new prop:atom% (value '0))) (code-54485 (new prop:field-id% (value code-54486) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54488 (new prop:atom% (value '0))) (code-54487 (new prop:field-id% (value code-54488) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54490 (new prop:atom% (value '#t))) (code-54489 (new prop:field-id% (value code-54490) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54492 (new prop:atom% (value '#t))) (code-54491 (new prop:field-id% (value code-54492) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54466 (new mred-id% (plugin (get-widget-plugin 'horizontal-panel)) (mred-parent code-54119) (properties (list (cons 'id code-54467) (cons 'style code-54469) (cons 'enabled code-54471) (cons 'vert-margin code-54473) (cons 'horiz-margin code-54475) (cons 'border code-54477) (cons 'spacing code-54479) (cons 'alignment code-54481) (cons 'min-width code-54485) (cons 'min-height code-54487) (cons 'stretchable-width code-54489) (cons 'stretchable-height code-54491))))) (code-54495 (new prop:atom% (value 'combo-field-53972))) (code-54494 (new prop:field-id% (value code-54495) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54497 (new prop:atom% (value '"Combo Field"))) (code-54496 (new prop:field-id% (value code-54497) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54499 (new prop:atom% (value (list '"First" '"Second")))) (code-54498 (new prop:field-id% (value code-54499) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54501 (new prop:code% (value (lambda (combo-field control-event) (void))) (value-code '(lambda (combo-field control-event) (void))))) (code-54500 (new prop:field-id% (value code-54501) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54503 (new prop:atom% (value '"Text"))) (code-54502 (new prop:field-id% (value code-54503) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54507 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54508 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54506 (new prop:group% (value (list code-54507 code-54508)))) (code-54509 (new prop:code% (value (λ (l) (list* (first l) (second l)))) (value-code '(λ (l) (list* (first l) (second l)))))) (code-54505 (new prop:proc% (value code-54506) (prop-code code-54509))) (code-54504 (new prop:field-id% (value code-54505) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54514 (new prop:atom% (value '8))) (code-54515 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54516 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54517 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54518 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54519 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54520 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54513 (new prop:group% (value (list code-54514 code-54515 code-54516 code-54517 code-54518 code-54519 code-54520)))) (code-54512 (new prop:popup% (value code-54513))) (code-54521 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54511 (new prop:proc% (value code-54512) (prop-code code-54521))) (code-54510 (new prop:field-id% (value code-54511) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54523 (new prop:atom% (value '#t))) (code-54522 (new prop:field-id% (value code-54523) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54525 (new prop:atom% (value '2))) (code-54524 (new prop:field-id% (value code-54525) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54527 (new prop:atom% (value '2))) (code-54526 (new prop:field-id% (value code-54527) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54529 (new prop:atom% (value '0))) (code-54528 (new prop:field-id% (value code-54529) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54531 (new prop:atom% (value '0))) (code-54530 (new prop:field-id% (value code-54531) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54533 (new prop:atom% (value '#f))) (code-54532 (new prop:field-id% (value code-54533) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54535 (new prop:atom% (value '#f))) (code-54534 (new prop:field-id% (value code-54535) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54493 (new mred-id% (plugin (get-widget-plugin 'combo-field)) (mred-parent code-54466) (properties (list (cons 'id code-54494) (cons 'label code-54496) (cons 'choices code-54498) (cons 'callback code-54500) (cons 'init-value code-54502) (cons 'style code-54504) (cons 'font code-54510) (cons 'enabled code-54522) (cons 'vert-margin code-54524) (cons 'horiz-margin code-54526) (cons 'min-width code-54528) (cons 'min-height code-54530) (cons 'stretchable-width code-54532) (cons 'stretchable-height code-54534))))) (code-54538 (new prop:atom% (value 'vertical-panel-53758))) (code-54537 (new prop:field-id% (value code-54538) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54540 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-54539 (new prop:field-id% (value code-54540) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54542 (new prop:atom% (value '#t))) (code-54541 (new prop:field-id% (value code-54542) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54544 (new prop:atom% (value '0))) (code-54543 (new prop:field-id% (value code-54544) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54546 (new prop:atom% (value '0))) (code-54545 (new prop:field-id% (value code-54546) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54548 (new prop:atom% (value '0))) (code-54547 (new prop:field-id% (value code-54548) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54550 (new prop:atom% (value '0))) (code-54549 (new prop:field-id% (value code-54550) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54553 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54554 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-54552 (new prop:group% (value (list code-54553 code-54554)))) (code-54551 (new prop:field-id% (value code-54552) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54556 (new prop:atom% (value '0))) (code-54555 (new prop:field-id% (value code-54556) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54558 (new prop:atom% (value '0))) (code-54557 (new prop:field-id% (value code-54558) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54560 (new prop:atom% (value '#t))) (code-54559 (new prop:field-id% (value code-54560) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54562 (new prop:atom% (value '#t))) (code-54561 (new prop:field-id% (value code-54562) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54536 (new mred-id% (plugin (get-widget-plugin 'vertical-panel)) (mred-parent code-54119) (properties (list (cons 'id code-54537) (cons 'style code-54539) (cons 'enabled code-54541) (cons 'vert-margin code-54543) (cons 'horiz-margin code-54545) (cons 'border code-54547) (cons 'spacing code-54549) (cons 'alignment code-54551) (cons 'min-width code-54555) (cons 'min-height code-54557) (cons 'stretchable-width code-54559) (cons 'stretchable-height code-54561))))) (code-54565 (new prop:atom% (value 'text-field-53996))) (code-54564 (new prop:field-id% (value code-54565) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54567 (new prop:atom% (value '"Text Field"))) (code-54566 (new prop:field-id% (value code-54567) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54569 (new prop:code% (value (lambda (text-field control-event) (void))) (value-code '(lambda (text-field control-event) (void))))) (code-54568 (new prop:field-id% (value code-54569) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54571 (new prop:atom% (value '"Text"))) (code-54570 (new prop:field-id% (value code-54571) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54575 (new prop:one-of% (value 'single) (choices (list 'single 'multiple)))) (code-54576 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54577 (new prop:some-of% (value (list)) (choices (list 'hscroll 'password 'deleted)))) (code-54574 (new prop:group% (value (list code-54575 code-54576 code-54577)))) (code-54578 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-54573 (new prop:proc% (value code-54574) (prop-code code-54578))) (code-54572 (new prop:field-id% (value code-54573) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54583 (new prop:atom% (value '8))) (code-54584 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54585 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54586 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54587 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54588 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54589 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54582 (new prop:group% (value (list code-54583 code-54584 code-54585 code-54586 code-54587 code-54588 code-54589)))) (code-54581 (new prop:popup% (value code-54582))) (code-54590 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54580 (new prop:proc% (value code-54581) (prop-code code-54590))) (code-54579 (new prop:field-id% (value code-54580) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54592 (new prop:atom% (value '#t))) (code-54591 (new prop:field-id% (value code-54592) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54594 (new prop:atom% (value '2))) (code-54593 (new prop:field-id% (value code-54594) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54596 (new prop:atom% (value '2))) (code-54595 (new prop:field-id% (value code-54596) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54598 (new prop:atom% (value '0))) (code-54597 (new prop:field-id% (value code-54598) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54600 (new prop:atom% (value '0))) (code-54599 (new prop:field-id% (value code-54600) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54602 (new prop:atom% (value '#f))) (code-54601 (new prop:field-id% (value code-54602) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54604 (new prop:atom% (value '#f))) (code-54603 (new prop:field-id% (value code-54604) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54563 (new mred-id% (plugin (get-widget-plugin 'text-field)) (mred-parent code-54536) (properties (list (cons 'id code-54564) (cons 'label code-54566) (cons 'callback code-54568) (cons 'init-value code-54570) (cons 'style code-54572) (cons 'font code-54579) (cons 'enabled code-54591) (cons 'vert-margin code-54593) (cons 'horiz-margin code-54595) (cons 'min-width code-54597) (cons 'min-height code-54599) (cons 'stretchable-width code-54601) (cons 'stretchable-height code-54603))))) (code-54607 (new prop:atom% (value 'group-box-panel-53762))) (code-54606 (new prop:field-id% (value code-54607) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54609 (new prop:atom% (value '"Group Box Panel"))) (code-54608 (new prop:field-id% (value code-54609) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54611 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54610 (new prop:field-id% (value code-54611) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54616 (new prop:atom% (value '8))) (code-54617 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54618 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54619 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54620 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54621 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54622 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54615 (new prop:group% (value (list code-54616 code-54617 code-54618 code-54619 code-54620 code-54621 code-54622)))) (code-54614 (new prop:popup% (value code-54615))) (code-54623 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54613 (new prop:proc% (value code-54614) (prop-code code-54623))) (code-54612 (new prop:field-id% (value code-54613) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54625 (new prop:atom% (value '#t))) (code-54624 (new prop:field-id% (value code-54625) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54627 (new prop:atom% (value '2))) (code-54626 (new prop:field-id% (value code-54627) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54629 (new prop:atom% (value '2))) (code-54628 (new prop:field-id% (value code-54629) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54631 (new prop:atom% (value '0))) (code-54630 (new prop:field-id% (value code-54631) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54633 (new prop:atom% (value '0))) (code-54632 (new prop:field-id% (value code-54633) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54636 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54637 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-54635 (new prop:group% (value (list code-54636 code-54637)))) (code-54634 (new prop:field-id% (value code-54635) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54639 (new prop:atom% (value '0))) (code-54638 (new prop:field-id% (value code-54639) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54641 (new prop:atom% (value '0))) (code-54640 (new prop:field-id% (value code-54641) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54643 (new prop:atom% (value '#t))) (code-54642 (new prop:field-id% (value code-54643) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54645 (new prop:atom% (value '#t))) (code-54644 (new prop:field-id% (value code-54645) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54605 (new mred-id% (plugin (get-widget-plugin 'group-box-panel)) (mred-parent code-54119) (properties (list (cons 'id code-54606) (cons 'label code-54608) (cons 'style code-54610) (cons 'font code-54612) (cons 'enabled code-54624) (cons 'vert-margin code-54626) (cons 'horiz-margin code-54628) (cons 'border code-54630) (cons 'spacing code-54632) (cons 'alignment code-54634) (cons 'min-width code-54638) (cons 'min-height code-54640) (cons 'stretchable-width code-54642) (cons 'stretchable-height code-54644))))) (code-54648 (new prop:atom% (value 'canvas-54024))) (code-54647 (new prop:field-id% (value code-54648) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54650 (new prop:some-of% (value (list)) (choices (list 'border 'control-border 'combo 'vscroll 'hscroll 'resize-corner 'gl 'no-autoclear 'transparent 'no-focus 'deleted)))) (code-54649 (new prop:field-id% (value code-54650) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54652 (new prop:code% (value (λ (canvas dc) (void))) (value-code '(λ (canvas dc) (void))))) (code-54651 (new prop:field-id% (value code-54652) (field-id 'paint-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54654 (new prop:atom% (value '"Canvas"))) (code-54653 (new prop:field-id% (value code-54654) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54656 (new prop:atom% (value '#f))) (code-54655 (new prop:field-id% (value code-54656) (field-id 'gl-config) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54658 (new prop:atom% (value '#t))) (code-54657 (new prop:field-id% (value code-54658) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54660 (new prop:atom% (value '2))) (code-54659 (new prop:field-id% (value code-54660) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54662 (new prop:atom% (value '2))) (code-54661 (new prop:field-id% (value code-54662) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54664 (new prop:atom% (value '0))) (code-54663 (new prop:field-id% (value code-54664) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54666 (new prop:atom% (value '0))) (code-54665 (new prop:field-id% (value code-54666) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54668 (new prop:atom% (value '#t))) (code-54667 (new prop:field-id% (value code-54668) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54670 (new prop:atom% (value '#t))) (code-54669 (new prop:field-id% (value code-54670) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54646 (new mred-id% (plugin (get-widget-plugin 'canvas)) (mred-parent code-54605) (properties (list (cons 'id code-54647) (cons 'style code-54649) (cons 'paint-callback code-54651) (cons 'label code-54653) (cons 'gl-config code-54655) (cons 'enabled code-54657) (cons 'vert-margin code-54659) (cons 'horiz-margin code-54661) (cons 'min-width code-54663) (cons 'min-height code-54665) (cons 'stretchable-width code-54667) (cons 'stretchable-height code-54669))))) (code-54673 (new prop:atom% (value 'grow-box-spacer-pane-53766))) (code-54672 (new prop:field-id% (value code-54673) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54675 (new prop:atom% (value '0))) (code-54674 (new prop:field-id% (value code-54675) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54677 (new prop:atom% (value '0))) (code-54676 (new prop:field-id% (value code-54677) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54679 (new prop:atom% (value '0))) (code-54678 (new prop:field-id% (value code-54679) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54681 (new prop:atom% (value '0))) (code-54680 (new prop:field-id% (value code-54681) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54684 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54685 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-54683 (new prop:group% (value (list code-54684 code-54685)))) (code-54682 (new prop:field-id% (value code-54683) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54687 (new prop:atom% (value '0))) (code-54686 (new prop:field-id% (value code-54687) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54689 (new prop:atom% (value '0))) (code-54688 (new prop:field-id% (value code-54689) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54691 (new prop:atom% (value '#t))) (code-54690 (new prop:field-id% (value code-54691) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54693 (new prop:atom% (value '#t))) (code-54692 (new prop:field-id% (value code-54693) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54671 (new mred-id% (plugin (get-widget-plugin 'grow-box-spacer-pane)) (mred-parent code-54119) (properties (list (cons 'id code-54672) (cons 'vert-margin code-54674) (cons 'horiz-margin code-54676) (cons 'border code-54678) (cons 'spacing code-54680) (cons 'alignment code-54682) (cons 'min-width code-54686) (cons 'min-height code-54688) (cons 'stretchable-width code-54690) (cons 'stretchable-height code-54692))))) (code-54696 (new prop:atom% (value 'tab-panel-53770))) (code-54695 (new prop:field-id% (value code-54696) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54698 (new prop:atom% (value (list)))) (code-54697 (new prop:field-id% (value code-54698) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54700 (new prop:code% (value (λ (tp e) (send tp active-child (send tp get-selection)))) (value-code '(λ (tp e) (send tp active-child (send tp get-selection)))))) (code-54699 (new prop:field-id% (value code-54700) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54702 (new prop:some-of% (value (list)) (choices (list 'no-border 'deleted)))) (code-54701 (new prop:field-id% (value code-54702) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54704 (new prop:atom% (value '#t))) (code-54703 (new prop:field-id% (value code-54704) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54706 (new prop:atom% (value '0))) (code-54705 (new prop:field-id% (value code-54706) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54708 (new prop:atom% (value '0))) (code-54707 (new prop:field-id% (value code-54708) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54710 (new prop:atom% (value '0))) (code-54709 (new prop:field-id% (value code-54710) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54712 (new prop:atom% (value '0))) (code-54711 (new prop:field-id% (value code-54712) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54715 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-54716 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-54714 (new prop:group% (value (list code-54715 code-54716)))) (code-54713 (new prop:field-id% (value code-54714) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54718 (new prop:atom% (value '0))) (code-54717 (new prop:field-id% (value code-54718) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54720 (new prop:atom% (value '0))) (code-54719 (new prop:field-id% (value code-54720) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54722 (new prop:atom% (value '#t))) (code-54721 (new prop:field-id% (value code-54722) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54724 (new prop:atom% (value '#t))) (code-54723 (new prop:field-id% (value code-54724) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54694 (new mred-id% (plugin (get-widget-plugin 'tab-panel)) (mred-parent code-54119) (properties (list (cons 'id code-54695) (cons 'choices code-54697) (cons 'callback code-54699) (cons 'style code-54701) (cons 'enabled code-54703) (cons 'vert-margin code-54705) (cons 'horiz-margin code-54707) (cons 'border code-54709) (cons 'spacing code-54711) (cons 'alignment code-54713) (cons 'min-width code-54717) (cons 'min-height code-54719) (cons 'stretchable-width code-54721) (cons 'stretchable-height code-54723))))) (code-54727 (new prop:atom% (value 'tab-53796))) (code-54726 (new prop:field-id% (value code-54727) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54729 (new prop:atom% (value '"Tab"))) (code-54728 (new prop:field-id% (value code-54729) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54731 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-54730 (new prop:field-id% (value code-54731) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54733 (new prop:atom% (value '#t))) (code-54732 (new prop:field-id% (value code-54733) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54735 (new prop:atom% (value '0))) (code-54734 (new prop:field-id% (value code-54735) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54737 (new prop:atom% (value '0))) (code-54736 (new prop:field-id% (value code-54737) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54739 (new prop:atom% (value '0))) (code-54738 (new prop:field-id% (value code-54739) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54741 (new prop:atom% (value '0))) (code-54740 (new prop:field-id% (value code-54741) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54744 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-54745 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-54743 (new prop:group% (value (list code-54744 code-54745)))) (code-54742 (new prop:field-id% (value code-54743) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54747 (new prop:atom% (value '0))) (code-54746 (new prop:field-id% (value code-54747) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54749 (new prop:atom% (value '0))) (code-54748 (new prop:field-id% (value code-54749) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54751 (new prop:atom% (value '#t))) (code-54750 (new prop:field-id% (value code-54751) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54753 (new prop:atom% (value '#t))) (code-54752 (new prop:field-id% (value code-54753) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54725 (new mred-id% (plugin (get-widget-plugin 'tab)) (mred-parent code-54694) (properties (list (cons 'id code-54726) (cons 'label code-54728) (cons 'style code-54730) (cons 'enabled code-54732) (cons 'vert-margin code-54734) (cons 'horiz-margin code-54736) (cons 'border code-54738) (cons 'spacing code-54740) (cons 'alignment code-54742) (cons 'min-width code-54746) (cons 'min-height code-54748) (cons 'stretchable-width code-54750) (cons 'stretchable-height code-54752))))) (code-54756 (new prop:atom% (value 'message-53825))) (code-54755 (new prop:field-id% (value code-54756) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54761 (new prop:atom% (value '"Message"))) (code-54762 (new prop:code% (value (λ (v) (if (string=? v "") #f v))) (value-code '(λ (v) (if (string=? v "") #f v))))) (code-54760 (new prop:proc% (value code-54761) (prop-code code-54762))) (code-54763 (new prop:boolean% (value '#f) (label '"Image?"))) (code-54765 (new prop:file% (value '#f))) (code-54766 (new prop:code% (value (λ (v) (and v (let ((bmp (make-object bitmap% v))) (and (send bmp ok?) bmp))))) (value-code '(λ (v) (and v (let ((bmp (make-object bitmap% v))) (and (send bmp ok?) bmp))))))) (code-54764 (new prop:proc% (value code-54765) (prop-code code-54766))) (code-54759 (new prop:group% (value (list code-54760 code-54763 code-54764)))) (code-54767 (new prop:code% (value (λ (l) (or (and (second l) (or (third l) "Bad Image")) (first l)))) (value-code '(λ (l) (or (and (second l) (or (third l) "Bad Image")) (first l)))))) (code-54758 (new prop:proc% (value code-54759) (prop-code code-54767))) (code-54757 (new prop:field-id% (value code-54758) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54769 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-54768 (new prop:field-id% (value code-54769) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54774 (new prop:atom% (value '8))) (code-54775 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54776 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54777 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54778 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54779 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54780 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54773 (new prop:group% (value (list code-54774 code-54775 code-54776 code-54777 code-54778 code-54779 code-54780)))) (code-54772 (new prop:popup% (value code-54773))) (code-54781 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54771 (new prop:proc% (value code-54772) (prop-code code-54781))) (code-54770 (new prop:field-id% (value code-54771) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54783 (new prop:atom% (value '#t))) (code-54782 (new prop:field-id% (value code-54783) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54785 (new prop:atom% (value '2))) (code-54784 (new prop:field-id% (value code-54785) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54787 (new prop:atom% (value '2))) (code-54786 (new prop:field-id% (value code-54787) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54789 (new prop:atom% (value '0))) (code-54788 (new prop:field-id% (value code-54789) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54791 (new prop:atom% (value '0))) (code-54790 (new prop:field-id% (value code-54791) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54793 (new prop:atom% (value '#f))) (code-54792 (new prop:field-id% (value code-54793) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54795 (new prop:atom% (value '#f))) (code-54794 (new prop:field-id% (value code-54795) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54797 (new prop:atom% (value '#f))) (code-54796 (new prop:field-id% (value code-54797) (field-id 'auto-resize) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54754 (new mred-id% (plugin (get-widget-plugin 'message)) (mred-parent code-54725) (properties (list (cons 'id code-54755) (cons 'label code-54757) (cons 'style code-54768) (cons 'font code-54770) (cons 'enabled code-54782) (cons 'vert-margin code-54784) (cons 'horiz-margin code-54786) (cons 'min-width code-54788) (cons 'min-height code-54790) (cons 'stretchable-width code-54792) (cons 'stretchable-height code-54794) (cons 'auto-resize code-54796))))) (code-54800 (new prop:atom% (value 'button-53829))) (code-54799 (new prop:field-id% (value code-54800) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54805 (new prop:atom% (value '"Button"))) (code-54806 (new prop:code% (value (λ (v) (if (string=? v "") #f v))) (value-code '(λ (v) (if (string=? v "") #f v))))) (code-54804 (new prop:proc% (value code-54805) (prop-code code-54806))) (code-54807 (new prop:boolean% (value '#f) (label '"Image?"))) (code-54809 (new prop:file% (value '#f))) (code-54810 (new prop:code% (value (λ (v) (and v (let ((bmp (make-object bitmap% v))) (and (send bmp ok?) bmp))))) (value-code '(λ (v) (and v (let ((bmp (make-object bitmap% v))) (and (send bmp ok?) bmp))))))) (code-54808 (new prop:proc% (value code-54809) (prop-code code-54810))) (code-54803 (new prop:group% (value (list code-54804 code-54807 code-54808)))) (code-54811 (new prop:code% (value (λ (l) (or (and (second l) (or (third l) "Bad Image")) (first l)))) (value-code '(λ (l) (or (and (second l) (or (third l) "Bad Image")) (first l)))))) (code-54802 (new prop:proc% (value code-54803) (prop-code code-54811))) (code-54801 (new prop:field-id% (value code-54802) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54813 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-54812 (new prop:field-id% (value code-54813) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54815 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-54814 (new prop:field-id% (value code-54815) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54820 (new prop:atom% (value '8))) (code-54821 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54822 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54823 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54824 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54825 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54826 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54819 (new prop:group% (value (list code-54820 code-54821 code-54822 code-54823 code-54824 code-54825 code-54826)))) (code-54818 (new prop:popup% (value code-54819))) (code-54827 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54817 (new prop:proc% (value code-54818) (prop-code code-54827))) (code-54816 (new prop:field-id% (value code-54817) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54829 (new prop:atom% (value '#t))) (code-54828 (new prop:field-id% (value code-54829) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54831 (new prop:atom% (value '2))) (code-54830 (new prop:field-id% (value code-54831) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54833 (new prop:atom% (value '2))) (code-54832 (new prop:field-id% (value code-54833) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54835 (new prop:atom% (value '0))) (code-54834 (new prop:field-id% (value code-54835) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54837 (new prop:atom% (value '0))) (code-54836 (new prop:field-id% (value code-54837) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54839 (new prop:atom% (value '#f))) (code-54838 (new prop:field-id% (value code-54839) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54841 (new prop:atom% (value '#f))) (code-54840 (new prop:field-id% (value code-54841) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54798 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-54725) (properties (list (cons 'id code-54799) (cons 'label code-54801) (cons 'callback code-54812) (cons 'style code-54814) (cons 'font code-54816) (cons 'enabled code-54828) (cons 'vert-margin code-54830) (cons 'horiz-margin code-54832) (cons 'min-width code-54834) (cons 'min-height code-54836) (cons 'stretchable-width code-54838) (cons 'stretchable-height code-54840))))) (code-54844 (new prop:atom% (value 'tab-53800))) (code-54843 (new prop:field-id% (value code-54844) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54846 (new prop:atom% (value '"Tab"))) (code-54845 (new prop:field-id% (value code-54846) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54848 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-54847 (new prop:field-id% (value code-54848) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54850 (new prop:atom% (value '#t))) (code-54849 (new prop:field-id% (value code-54850) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54852 (new prop:atom% (value '0))) (code-54851 (new prop:field-id% (value code-54852) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54854 (new prop:atom% (value '0))) (code-54853 (new prop:field-id% (value code-54854) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54856 (new prop:atom% (value '0))) (code-54855 (new prop:field-id% (value code-54856) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54858 (new prop:atom% (value '0))) (code-54857 (new prop:field-id% (value code-54858) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54861 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-54862 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-54860 (new prop:group% (value (list code-54861 code-54862)))) (code-54859 (new prop:field-id% (value code-54860) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54864 (new prop:atom% (value '0))) (code-54863 (new prop:field-id% (value code-54864) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54866 (new prop:atom% (value '0))) (code-54865 (new prop:field-id% (value code-54866) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54868 (new prop:atom% (value '#t))) (code-54867 (new prop:field-id% (value code-54868) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54870 (new prop:atom% (value '#t))) (code-54869 (new prop:field-id% (value code-54870) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54842 (new mred-id% (plugin (get-widget-plugin 'tab)) (mred-parent code-54694) (properties (list (cons 'id code-54843) (cons 'label code-54845) (cons 'style code-54847) (cons 'enabled code-54849) (cons 'vert-margin code-54851) (cons 'horiz-margin code-54853) (cons 'border code-54855) (cons 'spacing code-54857) (cons 'alignment code-54859) (cons 'min-width code-54863) (cons 'min-height code-54865) (cons 'stretchable-width code-54867) (cons 'stretchable-height code-54869))))) (code-54873 (new prop:atom% (value 'text-field-53854))) (code-54872 (new prop:field-id% (value code-54873) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54875 (new prop:atom% (value '"Text Field"))) (code-54874 (new prop:field-id% (value code-54875) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54877 (new prop:code% (value (lambda (text-field control-event) (void))) (value-code '(lambda (text-field control-event) (void))))) (code-54876 (new prop:field-id% (value code-54877) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54879 (new prop:atom% (value '"Text"))) (code-54878 (new prop:field-id% (value code-54879) (field-id 'init-value) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54883 (new prop:one-of% (value 'single) (choices (list 'single 'multiple)))) (code-54884 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-54885 (new prop:some-of% (value (list)) (choices (list 'hscroll 'password 'deleted)))) (code-54882 (new prop:group% (value (list code-54883 code-54884 code-54885)))) (code-54886 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-54881 (new prop:proc% (value code-54882) (prop-code code-54886))) (code-54880 (new prop:field-id% (value code-54881) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54891 (new prop:atom% (value '8))) (code-54892 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-54893 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-54894 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-54895 (new prop:boolean% (value '#f) (label '"underline?"))) (code-54896 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-54897 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-54890 (new prop:group% (value (list code-54891 code-54892 code-54893 code-54894 code-54895 code-54896 code-54897)))) (code-54889 (new prop:popup% (value code-54890))) (code-54898 (new prop:code% (value (λ (l) (send/apply the-font-list find-or-create-font l))) (value-code '(λ (l) (send/apply the-font-list find-or-create-font l))))) (code-54888 (new prop:proc% (value code-54889) (prop-code code-54898))) (code-54887 (new prop:field-id% (value code-54888) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54900 (new prop:atom% (value '#t))) (code-54899 (new prop:field-id% (value code-54900) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54902 (new prop:atom% (value '2))) (code-54901 (new prop:field-id% (value code-54902) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54904 (new prop:atom% (value '2))) (code-54903 (new prop:field-id% (value code-54904) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54906 (new prop:atom% (value '0))) (code-54905 (new prop:field-id% (value code-54906) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54908 (new prop:atom% (value '0))) (code-54907 (new prop:field-id% (value code-54908) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54910 (new prop:atom% (value '#f))) (code-54909 (new prop:field-id% (value code-54910) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54912 (new prop:atom% (value '#f))) (code-54911 (new prop:field-id% (value code-54912) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54871 (new mred-id% (plugin (get-widget-plugin 'text-field)) (mred-parent code-54842) (properties (list (cons 'id code-54872) (cons 'label code-54874) (cons 'callback code-54876) (cons 'init-value code-54878) (cons 'style code-54880) (cons 'font code-54887) (cons 'enabled code-54899) (cons 'vert-margin code-54901) (cons 'horiz-margin code-54903) (cons 'min-width code-54905) (cons 'min-height code-54907) (cons 'stretchable-width code-54909) (cons 'stretchable-height code-54911))))) (code-54915 (new prop:atom% (value 'canvas-53859))) (code-54914 (new prop:field-id% (value code-54915) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54917 (new prop:some-of% (value (list)) (choices (list 'border 'control-border 'combo 'vscroll 'hscroll 'resize-corner 'gl 'no-autoclear 'transparent 'no-focus 'deleted)))) (code-54916 (new prop:field-id% (value code-54917) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54919 (new prop:code% (value (λ (canvas dc) (void))) (value-code '(λ (canvas dc) (void))))) (code-54918 (new prop:field-id% (value code-54919) (field-id 'paint-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54921 (new prop:atom% (value '"Canvas"))) (code-54920 (new prop:field-id% (value code-54921) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54923 (new prop:atom% (value '#f))) (code-54922 (new prop:field-id% (value code-54923) (field-id 'gl-config) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54925 (new prop:atom% (value '#t))) (code-54924 (new prop:field-id% (value code-54925) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54927 (new prop:atom% (value '2))) (code-54926 (new prop:field-id% (value code-54927) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54929 (new prop:atom% (value '2))) (code-54928 (new prop:field-id% (value code-54929) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54931 (new prop:atom% (value '0))) (code-54930 (new prop:field-id% (value code-54931) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54933 (new prop:atom% (value '0))) (code-54932 (new prop:field-id% (value code-54933) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54935 (new prop:atom% (value '#t))) (code-54934 (new prop:field-id% (value code-54935) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54937 (new prop:atom% (value '#t))) (code-54936 (new prop:field-id% (value code-54937) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54913 (new mred-id% (plugin (get-widget-plugin 'canvas)) (mred-parent code-54842) (properties (list (cons 'id code-54914) (cons 'style code-54916) (cons 'paint-callback code-54918) (cons 'label code-54920) (cons 'gl-config code-54922) (cons 'enabled code-54924) (cons 'vert-margin code-54926) (cons 'horiz-margin code-54928) (cons 'min-width code-54930) (cons 'min-height code-54932) (cons 'stretchable-width code-54934) (cons 'stretchable-height code-54936))))) (code-54940 (new prop:atom% (value 'menu-bar-54028))) (code-54939 (new prop:field-id% (value code-54940) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54942 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-54941 (new prop:field-id% (value code-54942) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54938 (new mred-id% (plugin (get-widget-plugin 'menu-bar)) (mred-parent code-54119) (properties (list (cons 'id code-54939) (cons 'demand-callback code-54941))))) (code-54945 (new prop:atom% (value 'menu-54035))) (code-54944 (new prop:field-id% (value code-54945) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54947 (new prop:atom% (value '"&Menu"))) (code-54946 (new prop:field-id% (value code-54947) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54949 (new prop:atom% (value '"Menu"))) (code-54948 (new prop:field-id% (value code-54949) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54951 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-54950 (new prop:field-id% (value code-54951) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54943 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-54938) (properties (list (cons 'id code-54944) (cons 'label code-54946) (cons 'help-string code-54948) (cons 'demand-callback code-54950))))) (code-54954 (new prop:atom% (value 'menu-item-54050))) (code-54953 (new prop:field-id% (value code-54954) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54956 (new prop:atom% (value '"&Item"))) (code-54955 (new prop:field-id% (value code-54956) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54958 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-54957 (new prop:field-id% (value code-54958) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54960 (new prop:one-of% (value '#f) (choices (list '#f '#\A '#\B (list 'quote 'f1) (list 'quote 'f2))))) (code-54959 (new prop:field-id% (value code-54960) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54962 (new prop:atom% (value '"Item"))) (code-54961 (new prop:field-id% (value code-54962) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54964 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-54963 (new prop:field-id% (value code-54964) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54966 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-54965 (new prop:field-id% (value code-54966) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54952 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-54943) (properties (list (cons 'id code-54953) (cons 'label code-54955) (cons 'callback code-54957) (cons 'shortcut code-54959) (cons 'help-string code-54961) (cons 'demand-callback code-54963) (cons 'shortcut-prefix code-54965))))) (code-54969 (new prop:atom% (value 'menu-item-54054))) (code-54968 (new prop:field-id% (value code-54969) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54971 (new prop:atom% (value '"&Item"))) (code-54970 (new prop:field-id% (value code-54971) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54973 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-54972 (new prop:field-id% (value code-54973) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54975 (new prop:one-of% (value '#f) (choices (list '#f '#\A '#\B (list 'quote 'f1) (list 'quote 'f2))))) (code-54974 (new prop:field-id% (value code-54975) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54977 (new prop:atom% (value '"Item"))) (code-54976 (new prop:field-id% (value code-54977) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54979 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-54978 (new prop:field-id% (value code-54979) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54981 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-54980 (new prop:field-id% (value code-54981) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54967 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-54943) (properties (list (cons 'id code-54968) (cons 'label code-54970) (cons 'callback code-54972) (cons 'shortcut code-54974) (cons 'help-string code-54976) (cons 'demand-callback code-54978) (cons 'shortcut-prefix code-54980))))) (code-54984 (new prop:atom% (value 'separator-menu-item-54058))) (code-54983 (new prop:field-id% (value code-54984) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54982 (new mred-id% (plugin (get-widget-plugin 'separator-menu-item)) (mred-parent code-54943) (properties (list (cons 'id code-54983))))) (code-54987 (new prop:atom% (value 'menu-item-54062))) (code-54986 (new prop:field-id% (value code-54987) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-54989 (new prop:atom% (value '"&Item"))) (code-54988 (new prop:field-id% (value code-54989) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-54991 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-54990 (new prop:field-id% (value code-54991) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54993 (new prop:one-of% (value '#f) (choices (list '#f '#\A '#\B (list 'quote 'f1) (list 'quote 'f2))))) (code-54992 (new prop:field-id% (value code-54993) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54995 (new prop:atom% (value '"Item"))) (code-54994 (new prop:field-id% (value code-54995) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54997 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-54996 (new prop:field-id% (value code-54997) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54999 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-54998 (new prop:field-id% (value code-54999) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-54985 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-54943) (properties (list (cons 'id code-54986) (cons 'label code-54988) (cons 'callback code-54990) (cons 'shortcut code-54992) (cons 'help-string code-54994) (cons 'demand-callback code-54996) (cons 'shortcut-prefix code-54998))))) (code-55002 (new prop:atom% (value 'menu-54039))) (code-55001 (new prop:field-id% (value code-55002) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-55004 (new prop:atom% (value '"&Menu"))) (code-55003 (new prop:field-id% (value code-55004) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-55006 (new prop:atom% (value '"Menu"))) (code-55005 (new prop:field-id% (value code-55006) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55008 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-55007 (new prop:field-id% (value code-55008) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55000 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-54938) (properties (list (cons 'id code-55001) (cons 'label code-55003) (cons 'help-string code-55005) (cons 'demand-callback code-55007))))) (code-55011 (new prop:atom% (value 'menu-item-54073))) (code-55010 (new prop:field-id% (value code-55011) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-55013 (new prop:atom% (value '"&Item"))) (code-55012 (new prop:field-id% (value code-55013) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-55015 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-55014 (new prop:field-id% (value code-55015) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55017 (new prop:one-of% (value '#f) (choices (list '#f '#\A '#\B (list 'quote 'f1) (list 'quote 'f2))))) (code-55016 (new prop:field-id% (value code-55017) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55019 (new prop:atom% (value '"Item"))) (code-55018 (new prop:field-id% (value code-55019) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55021 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-55020 (new prop:field-id% (value code-55021) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55023 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-55022 (new prop:field-id% (value code-55023) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-55009 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-55000) (properties (list (cons 'id code-55010) (cons 'label code-55012) (cons 'callback code-55014) (cons 'shortcut code-55016) (cons 'help-string code-55018) (cons 'demand-callback code-55020) (cons 'shortcut-prefix code-55022)))))) (list code-54107 code-54119 code-54153 code-54176 code-54216 code-54239 code-54283 code-54329 code-54352 code-54395 code-54422 code-54466 code-54493 code-54536 code-54563 code-54605 code-54646 code-54671 code-54694 code-54725 code-54754 code-54798 code-54842 code-54871 code-54913 code-54938 code-54943 code-54952 code-54967 code-54982 code-54985 code-55000 code-55009)))