; This file was generated with MrEd Designer 3.0 (lambda (parent-1277) (let* ((code-1279 parent-1277) (code-1281 (new prop:atom% (value 'project-1230))) (code-1280 (new prop:field-id% (value code-1281) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-1283 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\project-1230.med"))) (code-1282 (new prop:field-id% (value code-1283) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-1285 (new prop:atom% (value '#f))) (code-1284 (new prop:field-id% (value code-1285) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-1287 (new prop:atom% (value (list '"framework")))) (code-1286 (new prop:field-id% (value code-1287) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-1278 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-1279) (properties (list (cons 'id code-1280) (cons 'file code-1282) (cons 'code-file code-1284) (cons 'code-requires code-1286))))) (code-1290 (new prop:atom% (value 'frame-1238))) (code-1289 (new prop:field-id% (value code-1290) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-1292 (new prop:atom% (value '"Frame"))) (code-1291 (new prop:field-id% (value code-1292) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1294 (new prop:atom% (value '#f))) (code-1293 (new prop:field-id% (value code-1294) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1296 (new prop:atom% (value '#f))) (code-1295 (new prop:field-id% (value code-1296) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1298 (new prop:atom% (value '371))) (code-1297 (new prop:field-id% (value code-1298) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1300 (new prop:atom% (value '345))) (code-1299 (new prop:field-id% (value code-1300) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1303 (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-1302 (new prop:popup% (value code-1303))) (code-1301 (new prop:field-id% (value code-1302) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1305 (new prop:atom% (value '#t))) (code-1304 (new prop:field-id% (value code-1305) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1307 (new prop:atom% (value '0))) (code-1306 (new prop:field-id% (value code-1307) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1309 (new prop:atom% (value '0))) (code-1308 (new prop:field-id% (value code-1309) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1312 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-1313 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-1311 (new prop:group% (value (list code-1312 code-1313)))) (code-1310 (new prop:field-id% (value code-1311) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1315 (new prop:atom% (value '70))) (code-1314 (new prop:field-id% (value code-1315) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1317 (new prop:atom% (value '30))) (code-1316 (new prop:field-id% (value code-1317) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1319 (new prop:atom% (value '#t))) (code-1318 (new prop:field-id% (value code-1319) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1321 (new prop:atom% (value '#t))) (code-1320 (new prop:field-id% (value code-1321) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1288 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-1278) (properties (list (cons 'id code-1289) (cons 'label code-1291) (cons 'width code-1293) (cons 'height code-1295) (cons 'x code-1297) (cons 'y code-1299) (cons 'style code-1301) (cons 'enabled code-1304) (cons 'border code-1306) (cons 'spacing code-1308) (cons 'alignment code-1310) (cons 'min-width code-1314) (cons 'min-height code-1316) (cons 'stretchable-width code-1318) (cons 'stretchable-height code-1320))))) (code-1324 (new prop:atom% (value 'radio-box-1265))) (code-1323 (new prop:field-id% (value code-1324) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-1326 (new prop:atom% (value '"Radio Box"))) (code-1325 (new prop:field-id% (value code-1326) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1328 (new prop:atom% (value (list '"&First" '"&Second")))) (code-1327 (new prop:field-id% (value code-1328) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1330 (new prop:code% (value (lambda (radio-box control-event) (void))) (value-code '(lambda (radio-box control-event) (void))))) (code-1329 (new prop:field-id% (value code-1330) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1334 (new prop:one-of% (value 'vertical) (choices (list 'vertical 'horizontal)))) (code-1335 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-1336 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-1333 (new prop:group% (value (list code-1334 code-1335 code-1336)))) (code-1337 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-1332 (new prop:proc% (value code-1333) (prop-code code-1337))) (code-1331 (new prop:field-id% (value code-1332) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1342 (new prop:atom% (value '8))) (code-1343 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-1344 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-1345 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-1346 (new prop:boolean% (value '#f) (label '"underline?"))) (code-1347 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-1348 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-1341 (new prop:group% (value (list code-1342 code-1343 code-1344 code-1345 code-1346 code-1347 code-1348)))) (code-1340 (new prop:popup% (value code-1341))) (code-1349 (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-1339 (new prop:proc% (value code-1340) (prop-code code-1349))) (code-1338 (new prop:field-id% (value code-1339) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1351 (new prop:atom% (value '0))) (code-1350 (new prop:field-id% (value code-1351) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1353 (new prop:atom% (value '#t))) (code-1352 (new prop:field-id% (value code-1353) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1355 (new prop:atom% (value '2))) (code-1354 (new prop:field-id% (value code-1355) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1357 (new prop:atom% (value '2))) (code-1356 (new prop:field-id% (value code-1357) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1359 (new prop:atom% (value '0))) (code-1358 (new prop:field-id% (value code-1359) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1361 (new prop:atom% (value '0))) (code-1360 (new prop:field-id% (value code-1361) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1363 (new prop:atom% (value '#f))) (code-1362 (new prop:field-id% (value code-1363) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1365 (new prop:atom% (value '#f))) (code-1364 (new prop:field-id% (value code-1365) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1322 (new mred-id% (plugin (get-widget-plugin 'radio-box)) (mred-parent code-1288) (properties (list (cons 'id code-1323) (cons 'label code-1325) (cons 'choices code-1327) (cons 'callback code-1329) (cons 'style code-1331) (cons 'font code-1338) (cons 'selection code-1350) (cons 'enabled code-1352) (cons 'vert-margin code-1354) (cons 'horiz-margin code-1356) (cons 'min-width code-1358) (cons 'min-height code-1360) (cons 'stretchable-width code-1362) (cons 'stretchable-height code-1364))))) (code-1368 (new prop:atom% (value 'list-box-1269))) (code-1367 (new prop:field-id% (value code-1368) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-1370 (new prop:atom% (value '"List Box"))) (code-1369 (new prop:field-id% (value code-1370) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1372 (new prop:atom% (value (list '"First" '"Second")))) (code-1371 (new prop:field-id% (value code-1372) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1374 (new prop:code% (value (lambda (list-box control-event) (void))) (value-code '(lambda (list-box control-event) (void))))) (code-1373 (new prop:field-id% (value code-1374) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1378 (new prop:one-of% (value 'single) (choices (list 'single 'multiple 'extended)))) (code-1379 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-1380 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-1377 (new prop:group% (value (list code-1378 code-1379 code-1380)))) (code-1381 (new prop:code% (value (λ (l) (list* (first l) (second l) (third l)))) (value-code '(λ (l) (list* (first l) (second l) (third l)))))) (code-1376 (new prop:proc% (value code-1377) (prop-code code-1381))) (code-1375 (new prop:field-id% (value code-1376) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1386 (new prop:atom% (value '8))) (code-1387 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-1388 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-1389 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-1390 (new prop:boolean% (value '#f) (label '"underline?"))) (code-1391 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-1392 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-1385 (new prop:group% (value (list code-1386 code-1387 code-1388 code-1389 code-1390 code-1391 code-1392)))) (code-1384 (new prop:popup% (value code-1385))) (code-1393 (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-1383 (new prop:proc% (value code-1384) (prop-code code-1393))) (code-1382 (new prop:field-id% (value code-1383) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1395 (new prop:atom% (value '0))) (code-1394 (new prop:field-id% (value code-1395) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1397 (new prop:atom% (value '#t))) (code-1396 (new prop:field-id% (value code-1397) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1399 (new prop:atom% (value '2))) (code-1398 (new prop:field-id% (value code-1399) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1401 (new prop:atom% (value '2))) (code-1400 (new prop:field-id% (value code-1401) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1403 (new prop:atom% (value '0))) (code-1402 (new prop:field-id% (value code-1403) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1405 (new prop:atom% (value '0))) (code-1404 (new prop:field-id% (value code-1405) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1407 (new prop:atom% (value '#f))) (code-1406 (new prop:field-id% (value code-1407) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1409 (new prop:atom% (value '#f))) (code-1408 (new prop:field-id% (value code-1409) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1366 (new mred-id% (plugin (get-widget-plugin 'list-box)) (mred-parent code-1288) (properties (list (cons 'id code-1367) (cons 'label code-1369) (cons 'choices code-1371) (cons 'callback code-1373) (cons 'style code-1375) (cons 'font code-1382) (cons 'selection code-1394) (cons 'enabled code-1396) (cons 'vert-margin code-1398) (cons 'horiz-margin code-1400) (cons 'min-width code-1402) (cons 'min-height code-1404) (cons 'stretchable-width code-1406) (cons 'stretchable-height code-1408))))) (code-1412 (new prop:atom% (value 'choice-1273))) (code-1411 (new prop:field-id% (value code-1412) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-1414 (new prop:atom% (value '"Choice"))) (code-1413 (new prop:field-id% (value code-1414) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1416 (new prop:atom% (value (list '"First" '"Second")))) (code-1415 (new prop:field-id% (value code-1416) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-1418 (new prop:code% (value (lambda (choice control-event) (void))) (value-code '(lambda (choice control-event) (void))))) (code-1417 (new prop:field-id% (value code-1418) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1422 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-1423 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-1421 (new prop:group% (value (list code-1422 code-1423)))) (code-1424 (new prop:code% (value (λ (l) (list* (first l) (second l)))) (value-code '(λ (l) (list* (first l) (second l)))))) (code-1420 (new prop:proc% (value code-1421) (prop-code code-1424))) (code-1419 (new prop:field-id% (value code-1420) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1429 (new prop:atom% (value '8))) (code-1430 (new prop:one-of% (value 'default) (choices (list 'default 'decorative 'roman 'script 'swiss 'modern 'symbol 'system)))) (code-1431 (new prop:one-of% (value 'normal) (choices (list 'normal 'italic 'slant)))) (code-1432 (new prop:one-of% (value 'normal) (choices (list 'normal 'bold 'light)))) (code-1433 (new prop:boolean% (value '#f) (label '"underline?"))) (code-1434 (new prop:one-of% (value 'default) (choices (list 'default 'partly-smoothed 'smoothed 'unsmoothed)))) (code-1435 (new prop:boolean% (value '#f) (label '"size in pixels?"))) (code-1428 (new prop:group% (value (list code-1429 code-1430 code-1431 code-1432 code-1433 code-1434 code-1435)))) (code-1427 (new prop:popup% (value code-1428))) (code-1436 (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-1426 (new prop:proc% (value code-1427) (prop-code code-1436))) (code-1425 (new prop:field-id% (value code-1426) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1438 (new prop:atom% (value '0))) (code-1437 (new prop:field-id% (value code-1438) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1440 (new prop:atom% (value '#t))) (code-1439 (new prop:field-id% (value code-1440) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1442 (new prop:atom% (value '2))) (code-1441 (new prop:field-id% (value code-1442) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1444 (new prop:atom% (value '2))) (code-1443 (new prop:field-id% (value code-1444) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1446 (new prop:atom% (value '0))) (code-1445 (new prop:field-id% (value code-1446) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1448 (new prop:atom% (value '0))) (code-1447 (new prop:field-id% (value code-1448) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1450 (new prop:atom% (value '#f))) (code-1449 (new prop:field-id% (value code-1450) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1452 (new prop:atom% (value '#f))) (code-1451 (new prop:field-id% (value code-1452) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-1410 (new mred-id% (plugin (get-widget-plugin 'choice)) (mred-parent code-1288) (properties (list (cons 'id code-1411) (cons 'label code-1413) (cons 'choices code-1415) (cons 'callback code-1417) (cons 'style code-1419) (cons 'font code-1425) (cons 'selection code-1437) (cons 'enabled code-1439) (cons 'vert-margin code-1441) (cons 'horiz-margin code-1443) (cons 'min-width code-1445) (cons 'min-height code-1447) (cons 'stretchable-width code-1449) (cons 'stretchable-height code-1451)))))) (list code-1278 code-1288 code-1322 code-1366 code-1410)))