; This file was generated with MrEd Designer 3.0 (list (cons 'name "mred-designer") (cons 'parent-class #f) (cons 'code (lambda (parent-9351) (let* ((code-9353 parent-9351) (code-9355 (new prop:atom% (value 'mred-designer))) (code-9354 (new prop:field-id% (value code-9355) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9357 (new prop:atom% (value '"E:\\Projets\\Scheme\\mred-designer\\tests\\mred-designer.med"))) (code-9356 (new prop:field-id% (value code-9357) (field-id 'file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-9359 (new prop:atom% (value '#f))) (code-9358 (new prop:field-id% (value code-9359) (field-id 'code-file) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-9361 (new prop:atom% (value '#t))) (code-9360 (new prop:field-id% (value code-9361) (field-id 'changed) (option '#f) (necessary '#f) (no-code '#t) (hidden '#t))) (code-9363 (new prop:atom% (value (list '"framework")))) (code-9362 (new prop:field-id% (value code-9363) (field-id 'code-requires) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9352 (new mred-id% (plugin (get-widget-plugin 'project)) (mred-parent code-9353) (properties (list (cons 'id code-9354) (cons 'file code-9356) (cons 'code-file code-9358) (cons 'changed code-9360) (cons 'code-requires code-9362))))) (code-9366 (new prop:atom% (value 'frame-toolbox))) (code-9365 (new prop:field-id% (value code-9366) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9368 (new prop:atom% (value '"MrEd Designer"))) (code-9367 (new prop:field-id% (value code-9368) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9370 (new prop:atom% (value '421))) (code-9369 (new prop:field-id% (value code-9370) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9372 (new prop:atom% (value '338))) (code-9371 (new prop:field-id% (value code-9372) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9374 (new prop:atom% (value '425))) (code-9373 (new prop:field-id% (value code-9374) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9376 (new prop:atom% (value '5))) (code-9375 (new prop:field-id% (value code-9376) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9379 (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-9378 (new prop:popup% (value code-9379))) (code-9377 (new prop:field-id% (value code-9378) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9381 (new prop:atom% (value '#t))) (code-9380 (new prop:field-id% (value code-9381) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9383 (new prop:atom% (value '0))) (code-9382 (new prop:field-id% (value code-9383) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9385 (new prop:atom% (value '0))) (code-9384 (new prop:field-id% (value code-9385) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9388 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-9389 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9387 (new prop:group% (value (list code-9388 code-9389)))) (code-9386 (new prop:field-id% (value code-9387) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9391 (new prop:atom% (value '70))) (code-9390 (new prop:field-id% (value code-9391) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9393 (new prop:atom% (value '30))) (code-9392 (new prop:field-id% (value code-9393) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9395 (new prop:atom% (value '#t))) (code-9394 (new prop:field-id% (value code-9395) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9397 (new prop:atom% (value '#t))) (code-9396 (new prop:field-id% (value code-9397) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9364 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-9352) (properties (list (cons 'id code-9365) (cons 'label code-9367) (cons 'width code-9369) (cons 'height code-9371) (cons 'x code-9373) (cons 'y code-9375) (cons 'style code-9377) (cons 'enabled code-9380) (cons 'border code-9382) (cons 'spacing code-9384) (cons 'alignment code-9386) (cons 'min-width code-9390) (cons 'min-height code-9392) (cons 'stretchable-width code-9394) (cons 'stretchable-height code-9396))))) (code-9400 (new prop:atom% (value 'vertical-panel-5143))) (code-9399 (new prop:field-id% (value code-9400) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9402 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9401 (new prop:field-id% (value code-9402) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9404 (new prop:atom% (value '#t))) (code-9403 (new prop:field-id% (value code-9404) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9406 (new prop:atom% (value '0))) (code-9405 (new prop:field-id% (value code-9406) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9408 (new prop:atom% (value '0))) (code-9407 (new prop:field-id% (value code-9408) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9410 (new prop:atom% (value '0))) (code-9409 (new prop:field-id% (value code-9410) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9412 (new prop:atom% (value '0))) (code-9411 (new prop:field-id% (value code-9412) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9415 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-9416 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9414 (new prop:group% (value (list code-9415 code-9416)))) (code-9413 (new prop:field-id% (value code-9414) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9418 (new prop:atom% (value '0))) (code-9417 (new prop:field-id% (value code-9418) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9420 (new prop:atom% (value '0))) (code-9419 (new prop:field-id% (value code-9420) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9422 (new prop:atom% (value '#t))) (code-9421 (new prop:field-id% (value code-9422) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9424 (new prop:atom% (value '#t))) (code-9423 (new prop:field-id% (value code-9424) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9398 (new mred-id% (plugin (get-widget-plugin 'vertical-panel)) (mred-parent code-9364) (properties (list (cons 'id code-9399) (cons 'style code-9401) (cons 'enabled code-9403) (cons 'vert-margin code-9405) (cons 'horiz-margin code-9407) (cons 'border code-9409) (cons 'spacing code-9411) (cons 'alignment code-9413) (cons 'min-width code-9417) (cons 'min-height code-9419) (cons 'stretchable-width code-9421) (cons 'stretchable-height code-9423))))) (code-9427 (new prop:atom% (value 'group-box-panel-containers))) (code-9426 (new prop:field-id% (value code-9427) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9429 (new prop:atom% (value '"Containers"))) (code-9428 (new prop:field-id% (value code-9429) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9431 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-9430 (new prop:field-id% (value code-9431) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9434 (new prop:atom% (value (list '8 '"Arial" 'default 'normal 'normal '#f 'default '#f)))) (code-9435 (new prop:code% (value list->font) (value-code 'list->font))) (code-9433 (new prop:font% (value code-9434) (prop-code code-9435))) (code-9432 (new prop:field-id% (value code-9433) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9437 (new prop:atom% (value '#t))) (code-9436 (new prop:field-id% (value code-9437) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9439 (new prop:atom% (value '2))) (code-9438 (new prop:field-id% (value code-9439) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9441 (new prop:atom% (value '2))) (code-9440 (new prop:field-id% (value code-9441) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9443 (new prop:atom% (value '0))) (code-9442 (new prop:field-id% (value code-9443) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9445 (new prop:atom% (value '0))) (code-9444 (new prop:field-id% (value code-9445) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9448 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-9449 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9447 (new prop:group% (value (list code-9448 code-9449)))) (code-9446 (new prop:field-id% (value code-9447) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9451 (new prop:atom% (value '0))) (code-9450 (new prop:field-id% (value code-9451) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9453 (new prop:atom% (value '0))) (code-9452 (new prop:field-id% (value code-9453) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9455 (new prop:atom% (value '#t))) (code-9454 (new prop:field-id% (value code-9455) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9457 (new prop:atom% (value '#f))) (code-9456 (new prop:field-id% (value code-9457) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9425 (new mred-id% (plugin (get-widget-plugin 'group-box-panel)) (mred-parent code-9398) (properties (list (cons 'id code-9426) (cons 'label code-9428) (cons 'style code-9430) (cons 'font code-9432) (cons 'enabled code-9436) (cons 'vert-margin code-9438) (cons 'horiz-margin code-9440) (cons 'border code-9442) (cons 'spacing code-9444) (cons 'alignment code-9446) (cons 'min-width code-9450) (cons 'min-height code-9452) (cons 'stretchable-width code-9454) (cons 'stretchable-height code-9456))))) (code-9460 (new prop:atom% (value 'button-5192))) (code-9459 (new prop:field-id% (value code-9460) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9464 (new prop:atom% (value '"Button"))) (code-9465 (new prop:boolean% (value '#t) (label '"Image?"))) (code-9466 (new prop:file% (value '"E:\\Projets\\Scheme\\mred-designer\\widgets\\frame\\icons\\24x24.png"))) (code-9463 (new prop:group% (value (list code-9464 code-9465 code-9466)))) (code-9467 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9462 (new prop:proc% (value code-9463) (prop-code code-9467))) (code-9461 (new prop:field-id% (value code-9462) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9469 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9468 (new prop:field-id% (value code-9469) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9471 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9470 (new prop:field-id% (value code-9471) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9474 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9475 (new prop:code% (value list->font) (value-code 'list->font))) (code-9473 (new prop:font% (value code-9474) (prop-code code-9475))) (code-9472 (new prop:field-id% (value code-9473) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9477 (new prop:atom% (value '#t))) (code-9476 (new prop:field-id% (value code-9477) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9479 (new prop:atom% (value '2))) (code-9478 (new prop:field-id% (value code-9479) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9481 (new prop:atom% (value '2))) (code-9480 (new prop:field-id% (value code-9481) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9483 (new prop:atom% (value '0))) (code-9482 (new prop:field-id% (value code-9483) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9485 (new prop:atom% (value '0))) (code-9484 (new prop:field-id% (value code-9485) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9487 (new prop:atom% (value '#f))) (code-9486 (new prop:field-id% (value code-9487) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9489 (new prop:atom% (value '#f))) (code-9488 (new prop:field-id% (value code-9489) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9458 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9425) (properties (list (cons 'id code-9459) (cons 'label code-9461) (cons 'callback code-9468) (cons 'style code-9470) (cons 'font code-9472) (cons 'enabled code-9476) (cons 'vert-margin code-9478) (cons 'horiz-margin code-9480) (cons 'min-width code-9482) (cons 'min-height code-9484) (cons 'stretchable-width code-9486) (cons 'stretchable-height code-9488))))) (code-9492 (new prop:atom% (value 'group-box-panel-controls))) (code-9491 (new prop:field-id% (value code-9492) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9494 (new prop:atom% (value '"Controls"))) (code-9493 (new prop:field-id% (value code-9494) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9496 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-9495 (new prop:field-id% (value code-9496) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9499 (new prop:atom% (value (list '8 '"Arial" 'default 'normal 'normal '#f 'default '#f)))) (code-9500 (new prop:code% (value list->font) (value-code 'list->font))) (code-9498 (new prop:font% (value code-9499) (prop-code code-9500))) (code-9497 (new prop:field-id% (value code-9498) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9502 (new prop:atom% (value '#t))) (code-9501 (new prop:field-id% (value code-9502) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9504 (new prop:atom% (value '2))) (code-9503 (new prop:field-id% (value code-9504) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9506 (new prop:atom% (value '2))) (code-9505 (new prop:field-id% (value code-9506) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9508 (new prop:atom% (value '0))) (code-9507 (new prop:field-id% (value code-9508) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9510 (new prop:atom% (value '0))) (code-9509 (new prop:field-id% (value code-9510) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9513 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-9514 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9512 (new prop:group% (value (list code-9513 code-9514)))) (code-9511 (new prop:field-id% (value code-9512) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9516 (new prop:atom% (value '0))) (code-9515 (new prop:field-id% (value code-9516) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9518 (new prop:atom% (value '0))) (code-9517 (new prop:field-id% (value code-9518) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9520 (new prop:atom% (value '#t))) (code-9519 (new prop:field-id% (value code-9520) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9522 (new prop:atom% (value '#f))) (code-9521 (new prop:field-id% (value code-9522) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9490 (new mred-id% (plugin (get-widget-plugin 'group-box-panel)) (mred-parent code-9398) (properties (list (cons 'id code-9491) (cons 'label code-9493) (cons 'style code-9495) (cons 'font code-9497) (cons 'enabled code-9501) (cons 'vert-margin code-9503) (cons 'horiz-margin code-9505) (cons 'border code-9507) (cons 'spacing code-9509) (cons 'alignment code-9511) (cons 'min-width code-9515) (cons 'min-height code-9517) (cons 'stretchable-width code-9519) (cons 'stretchable-height code-9521))))) (code-9525 (new prop:atom% (value 'button-5282))) (code-9524 (new prop:field-id% (value code-9525) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9529 (new prop:atom% (value '"Button"))) (code-9530 (new prop:boolean% (value '#t) (label '"Image?"))) (code-9531 (new prop:file% (value '"E:\\Projets\\Scheme\\mred-designer\\widgets\\button\\icons\\24x24.png"))) (code-9528 (new prop:group% (value (list code-9529 code-9530 code-9531)))) (code-9532 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9527 (new prop:proc% (value code-9528) (prop-code code-9532))) (code-9526 (new prop:field-id% (value code-9527) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9534 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9533 (new prop:field-id% (value code-9534) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9536 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9535 (new prop:field-id% (value code-9536) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9539 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9540 (new prop:code% (value list->font) (value-code 'list->font))) (code-9538 (new prop:font% (value code-9539) (prop-code code-9540))) (code-9537 (new prop:field-id% (value code-9538) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9542 (new prop:atom% (value '#t))) (code-9541 (new prop:field-id% (value code-9542) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9544 (new prop:atom% (value '2))) (code-9543 (new prop:field-id% (value code-9544) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9546 (new prop:atom% (value '2))) (code-9545 (new prop:field-id% (value code-9546) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9548 (new prop:atom% (value '0))) (code-9547 (new prop:field-id% (value code-9548) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9550 (new prop:atom% (value '0))) (code-9549 (new prop:field-id% (value code-9550) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9552 (new prop:atom% (value '#f))) (code-9551 (new prop:field-id% (value code-9552) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9554 (new prop:atom% (value '#f))) (code-9553 (new prop:field-id% (value code-9554) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9523 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9490) (properties (list (cons 'id code-9524) (cons 'label code-9526) (cons 'callback code-9533) (cons 'style code-9535) (cons 'font code-9537) (cons 'enabled code-9541) (cons 'vert-margin code-9543) (cons 'horiz-margin code-9545) (cons 'min-width code-9547) (cons 'min-height code-9549) (cons 'stretchable-width code-9551) (cons 'stretchable-height code-9553))))) (code-9557 (new prop:atom% (value 'group-box-panel-menu))) (code-9556 (new prop:field-id% (value code-9557) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9559 (new prop:atom% (value '"Menu"))) (code-9558 (new prop:field-id% (value code-9559) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9561 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-9560 (new prop:field-id% (value code-9561) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9564 (new prop:atom% (value (list '8 '"Arial" 'default 'normal 'normal '#f 'default '#f)))) (code-9565 (new prop:code% (value list->font) (value-code 'list->font))) (code-9563 (new prop:font% (value code-9564) (prop-code code-9565))) (code-9562 (new prop:field-id% (value code-9563) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9567 (new prop:atom% (value '#t))) (code-9566 (new prop:field-id% (value code-9567) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9569 (new prop:atom% (value '2))) (code-9568 (new prop:field-id% (value code-9569) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9571 (new prop:atom% (value '2))) (code-9570 (new prop:field-id% (value code-9571) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9573 (new prop:atom% (value '0))) (code-9572 (new prop:field-id% (value code-9573) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9575 (new prop:atom% (value '0))) (code-9574 (new prop:field-id% (value code-9575) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9578 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-9579 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9577 (new prop:group% (value (list code-9578 code-9579)))) (code-9576 (new prop:field-id% (value code-9577) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9581 (new prop:atom% (value '0))) (code-9580 (new prop:field-id% (value code-9581) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9583 (new prop:atom% (value '0))) (code-9582 (new prop:field-id% (value code-9583) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9585 (new prop:atom% (value '#t))) (code-9584 (new prop:field-id% (value code-9585) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9587 (new prop:atom% (value '#f))) (code-9586 (new prop:field-id% (value code-9587) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9555 (new mred-id% (plugin (get-widget-plugin 'group-box-panel)) (mred-parent code-9398) (properties (list (cons 'id code-9556) (cons 'label code-9558) (cons 'style code-9560) (cons 'font code-9562) (cons 'enabled code-9566) (cons 'vert-margin code-9568) (cons 'horiz-margin code-9570) (cons 'border code-9572) (cons 'spacing code-9574) (cons 'alignment code-9576) (cons 'min-width code-9580) (cons 'min-height code-9582) (cons 'stretchable-width code-9584) (cons 'stretchable-height code-9586))))) (code-9590 (new prop:atom% (value 'button-5290))) (code-9589 (new prop:field-id% (value code-9590) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9594 (new prop:atom% (value '"Button"))) (code-9595 (new prop:boolean% (value '#t) (label '"Image?"))) (code-9596 (new prop:file% (value '"E:\\Projets\\Scheme\\mred-designer\\widgets\\menu\\icons\\24x24.png"))) (code-9593 (new prop:group% (value (list code-9594 code-9595 code-9596)))) (code-9597 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9592 (new prop:proc% (value code-9593) (prop-code code-9597))) (code-9591 (new prop:field-id% (value code-9592) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9599 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9598 (new prop:field-id% (value code-9599) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9601 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9600 (new prop:field-id% (value code-9601) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9604 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9605 (new prop:code% (value list->font) (value-code 'list->font))) (code-9603 (new prop:font% (value code-9604) (prop-code code-9605))) (code-9602 (new prop:field-id% (value code-9603) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9607 (new prop:atom% (value '#t))) (code-9606 (new prop:field-id% (value code-9607) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9609 (new prop:atom% (value '2))) (code-9608 (new prop:field-id% (value code-9609) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9611 (new prop:atom% (value '2))) (code-9610 (new prop:field-id% (value code-9611) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9613 (new prop:atom% (value '0))) (code-9612 (new prop:field-id% (value code-9613) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9615 (new prop:atom% (value '0))) (code-9614 (new prop:field-id% (value code-9615) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9617 (new prop:atom% (value '#f))) (code-9616 (new prop:field-id% (value code-9617) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9619 (new prop:atom% (value '#f))) (code-9618 (new prop:field-id% (value code-9619) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9588 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9555) (properties (list (cons 'id code-9589) (cons 'label code-9591) (cons 'callback code-9598) (cons 'style code-9600) (cons 'font code-9602) (cons 'enabled code-9606) (cons 'vert-margin code-9608) (cons 'horiz-margin code-9610) (cons 'min-width code-9612) (cons 'min-height code-9614) (cons 'stretchable-width code-9616) (cons 'stretchable-height code-9618))))) (code-9622 (new prop:atom% (value 'group-box-panel-templates))) (code-9621 (new prop:field-id% (value code-9622) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9624 (new prop:atom% (value '"Templates"))) (code-9623 (new prop:field-id% (value code-9624) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9626 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-9625 (new prop:field-id% (value code-9626) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9629 (new prop:atom% (value (list '8 '"Arial" 'default 'normal 'normal '#f 'default '#f)))) (code-9630 (new prop:code% (value list->font) (value-code 'list->font))) (code-9628 (new prop:font% (value code-9629) (prop-code code-9630))) (code-9627 (new prop:field-id% (value code-9628) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9632 (new prop:atom% (value '#t))) (code-9631 (new prop:field-id% (value code-9632) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9634 (new prop:atom% (value '2))) (code-9633 (new prop:field-id% (value code-9634) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9636 (new prop:atom% (value '2))) (code-9635 (new prop:field-id% (value code-9636) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9638 (new prop:atom% (value '0))) (code-9637 (new prop:field-id% (value code-9638) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9640 (new prop:atom% (value '0))) (code-9639 (new prop:field-id% (value code-9640) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9643 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-9644 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9642 (new prop:group% (value (list code-9643 code-9644)))) (code-9641 (new prop:field-id% (value code-9642) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9646 (new prop:atom% (value '0))) (code-9645 (new prop:field-id% (value code-9646) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9648 (new prop:atom% (value '0))) (code-9647 (new prop:field-id% (value code-9648) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9650 (new prop:atom% (value '#t))) (code-9649 (new prop:field-id% (value code-9650) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9652 (new prop:atom% (value '#f))) (code-9651 (new prop:field-id% (value code-9652) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9620 (new mred-id% (plugin (get-widget-plugin 'group-box-panel)) (mred-parent code-9398) (properties (list (cons 'id code-9621) (cons 'label code-9623) (cons 'style code-9625) (cons 'font code-9627) (cons 'enabled code-9631) (cons 'vert-margin code-9633) (cons 'horiz-margin code-9635) (cons 'border code-9637) (cons 'spacing code-9639) (cons 'alignment code-9641) (cons 'min-width code-9645) (cons 'min-height code-9647) (cons 'stretchable-width code-9649) (cons 'stretchable-height code-9651))))) (code-9655 (new prop:atom% (value 'horizontal-panel-5381))) (code-9654 (new prop:field-id% (value code-9655) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9657 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9656 (new prop:field-id% (value code-9657) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9659 (new prop:atom% (value '#t))) (code-9658 (new prop:field-id% (value code-9659) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9661 (new prop:atom% (value '0))) (code-9660 (new prop:field-id% (value code-9661) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9663 (new prop:atom% (value '0))) (code-9662 (new prop:field-id% (value code-9663) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9665 (new prop:atom% (value '0))) (code-9664 (new prop:field-id% (value code-9665) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9667 (new prop:atom% (value '0))) (code-9666 (new prop:field-id% (value code-9667) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9670 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-9671 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-9669 (new prop:group% (value (list code-9670 code-9671)))) (code-9668 (new prop:field-id% (value code-9669) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9673 (new prop:atom% (value '0))) (code-9672 (new prop:field-id% (value code-9673) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9675 (new prop:atom% (value '0))) (code-9674 (new prop:field-id% (value code-9675) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9677 (new prop:atom% (value '#t))) (code-9676 (new prop:field-id% (value code-9677) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9679 (new prop:atom% (value '#t))) (code-9678 (new prop:field-id% (value code-9679) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9653 (new mred-id% (plugin (get-widget-plugin 'horizontal-panel)) (mred-parent code-9620) (properties (list (cons 'id code-9654) (cons 'style code-9656) (cons 'enabled code-9658) (cons 'vert-margin code-9660) (cons 'horiz-margin code-9662) (cons 'border code-9664) (cons 'spacing code-9666) (cons 'alignment code-9668) (cons 'min-width code-9672) (cons 'min-height code-9674) (cons 'stretchable-width code-9676) (cons 'stretchable-height code-9678))))) (code-9682 (new prop:atom% (value 'choice-5385))) (code-9681 (new prop:field-id% (value code-9682) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9684 (new prop:atom% (value '""))) (code-9683 (new prop:field-id% (value code-9684) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9686 (new prop:atom% (value (list '"First" '"Second")))) (code-9685 (new prop:field-id% (value code-9686) (field-id 'choices) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9688 (new prop:code% (value (lambda (choice control-event) (void))) (value-code '(lambda (choice control-event) (void))))) (code-9687 (new prop:field-id% (value code-9688) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9692 (new prop:one-of% (value 'horizontal-label) (choices (list 'vertical-label 'horizontal-label)))) (code-9693 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-9691 (new prop:group% (value (list code-9692 code-9693)))) (code-9694 (new prop:code% (value (λ (l) (list* (first l) (second l)))) (value-code '(λ (l) (list* (first l) (second l)))))) (code-9690 (new prop:proc% (value code-9691) (prop-code code-9694))) (code-9689 (new prop:field-id% (value code-9690) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9697 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9698 (new prop:code% (value list->font) (value-code 'list->font))) (code-9696 (new prop:font% (value code-9697) (prop-code code-9698))) (code-9695 (new prop:field-id% (value code-9696) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9700 (new prop:atom% (value '0))) (code-9699 (new prop:field-id% (value code-9700) (field-id 'selection) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9702 (new prop:atom% (value '#t))) (code-9701 (new prop:field-id% (value code-9702) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9704 (new prop:atom% (value '2))) (code-9703 (new prop:field-id% (value code-9704) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9706 (new prop:atom% (value '2))) (code-9705 (new prop:field-id% (value code-9706) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9708 (new prop:atom% (value '0))) (code-9707 (new prop:field-id% (value code-9708) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9710 (new prop:atom% (value '0))) (code-9709 (new prop:field-id% (value code-9710) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9712 (new prop:atom% (value '#t))) (code-9711 (new prop:field-id% (value code-9712) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9714 (new prop:atom% (value '#f))) (code-9713 (new prop:field-id% (value code-9714) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9680 (new mred-id% (plugin (get-widget-plugin 'choice)) (mred-parent code-9653) (properties (list (cons 'id code-9681) (cons 'label code-9683) (cons 'choices code-9685) (cons 'callback code-9687) (cons 'style code-9689) (cons 'font code-9695) (cons 'selection code-9699) (cons 'enabled code-9701) (cons 'vert-margin code-9703) (cons 'horiz-margin code-9705) (cons 'min-width code-9707) (cons 'min-height code-9709) (cons 'stretchable-width code-9711) (cons 'stretchable-height code-9713))))) (code-9717 (new prop:atom% (value 'button-template-insert))) (code-9716 (new prop:field-id% (value code-9717) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9721 (new prop:atom% (value '"Insert"))) (code-9722 (new prop:boolean% (value '#f) (label '"Image?"))) (code-9723 (new prop:file% (value '#f))) (code-9720 (new prop:group% (value (list code-9721 code-9722 code-9723)))) (code-9724 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9719 (new prop:proc% (value code-9720) (prop-code code-9724))) (code-9718 (new prop:field-id% (value code-9719) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9726 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9725 (new prop:field-id% (value code-9726) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9728 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9727 (new prop:field-id% (value code-9728) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9731 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9732 (new prop:code% (value list->font) (value-code 'list->font))) (code-9730 (new prop:font% (value code-9731) (prop-code code-9732))) (code-9729 (new prop:field-id% (value code-9730) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9734 (new prop:atom% (value '#t))) (code-9733 (new prop:field-id% (value code-9734) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9736 (new prop:atom% (value '2))) (code-9735 (new prop:field-id% (value code-9736) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9738 (new prop:atom% (value '2))) (code-9737 (new prop:field-id% (value code-9738) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9740 (new prop:atom% (value '0))) (code-9739 (new prop:field-id% (value code-9740) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9742 (new prop:atom% (value '0))) (code-9741 (new prop:field-id% (value code-9742) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9744 (new prop:atom% (value '#f))) (code-9743 (new prop:field-id% (value code-9744) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9746 (new prop:atom% (value '#f))) (code-9745 (new prop:field-id% (value code-9746) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9715 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9653) (properties (list (cons 'id code-9716) (cons 'label code-9718) (cons 'callback code-9725) (cons 'style code-9727) (cons 'font code-9729) (cons 'enabled code-9733) (cons 'vert-margin code-9735) (cons 'horiz-margin code-9737) (cons 'min-width code-9739) (cons 'min-height code-9741) (cons 'stretchable-width code-9743) (cons 'stretchable-height code-9745))))) (code-9749 (new prop:atom% (value 'horizontal-panel-5514))) (code-9748 (new prop:field-id% (value code-9749) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9751 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9750 (new prop:field-id% (value code-9751) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9753 (new prop:atom% (value '#t))) (code-9752 (new prop:field-id% (value code-9753) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9755 (new prop:atom% (value '0))) (code-9754 (new prop:field-id% (value code-9755) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9757 (new prop:atom% (value '0))) (code-9756 (new prop:field-id% (value code-9757) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9759 (new prop:atom% (value '0))) (code-9758 (new prop:field-id% (value code-9759) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9761 (new prop:atom% (value '0))) (code-9760 (new prop:field-id% (value code-9761) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9764 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-9765 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-9763 (new prop:group% (value (list code-9764 code-9765)))) (code-9762 (new prop:field-id% (value code-9763) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9767 (new prop:atom% (value '0))) (code-9766 (new prop:field-id% (value code-9767) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9769 (new prop:atom% (value '0))) (code-9768 (new prop:field-id% (value code-9769) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9771 (new prop:atom% (value '#t))) (code-9770 (new prop:field-id% (value code-9771) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9773 (new prop:atom% (value '#t))) (code-9772 (new prop:field-id% (value code-9773) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9747 (new mred-id% (plugin (get-widget-plugin 'horizontal-panel)) (mred-parent code-9620) (properties (list (cons 'id code-9748) (cons 'style code-9750) (cons 'enabled code-9752) (cons 'vert-margin code-9754) (cons 'horiz-margin code-9756) (cons 'border code-9758) (cons 'spacing code-9760) (cons 'alignment code-9762) (cons 'min-width code-9766) (cons 'min-height code-9768) (cons 'stretchable-width code-9770) (cons 'stretchable-height code-9772))))) (code-9776 (new prop:atom% (value 'button-template-save))) (code-9775 (new prop:field-id% (value code-9776) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9780 (new prop:atom% (value '"Save"))) (code-9781 (new prop:boolean% (value '#f) (label '"Image?"))) (code-9782 (new prop:file% (value '#f))) (code-9779 (new prop:group% (value (list code-9780 code-9781 code-9782)))) (code-9783 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9778 (new prop:proc% (value code-9779) (prop-code code-9783))) (code-9777 (new prop:field-id% (value code-9778) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9785 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9784 (new prop:field-id% (value code-9785) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9787 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9786 (new prop:field-id% (value code-9787) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9790 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9791 (new prop:code% (value list->font) (value-code 'list->font))) (code-9789 (new prop:font% (value code-9790) (prop-code code-9791))) (code-9788 (new prop:field-id% (value code-9789) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9793 (new prop:atom% (value '#t))) (code-9792 (new prop:field-id% (value code-9793) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9795 (new prop:atom% (value '2))) (code-9794 (new prop:field-id% (value code-9795) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9797 (new prop:atom% (value '2))) (code-9796 (new prop:field-id% (value code-9797) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9799 (new prop:atom% (value '0))) (code-9798 (new prop:field-id% (value code-9799) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9801 (new prop:atom% (value '0))) (code-9800 (new prop:field-id% (value code-9801) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9803 (new prop:atom% (value '#f))) (code-9802 (new prop:field-id% (value code-9803) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9805 (new prop:atom% (value '#f))) (code-9804 (new prop:field-id% (value code-9805) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9774 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9747) (properties (list (cons 'id code-9775) (cons 'label code-9777) (cons 'callback code-9784) (cons 'style code-9786) (cons 'font code-9788) (cons 'enabled code-9792) (cons 'vert-margin code-9794) (cons 'horiz-margin code-9796) (cons 'min-width code-9798) (cons 'min-height code-9800) (cons 'stretchable-width code-9802) (cons 'stretchable-height code-9804))))) (code-9808 (new prop:atom% (value 'button-template-replace))) (code-9807 (new prop:field-id% (value code-9808) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9812 (new prop:atom% (value '"Replace"))) (code-9813 (new prop:boolean% (value '#f) (label '"Image?"))) (code-9814 (new prop:file% (value '#f))) (code-9811 (new prop:group% (value (list code-9812 code-9813 code-9814)))) (code-9815 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9810 (new prop:proc% (value code-9811) (prop-code code-9815))) (code-9809 (new prop:field-id% (value code-9810) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9817 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9816 (new prop:field-id% (value code-9817) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9819 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9818 (new prop:field-id% (value code-9819) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9822 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9823 (new prop:code% (value list->font) (value-code 'list->font))) (code-9821 (new prop:font% (value code-9822) (prop-code code-9823))) (code-9820 (new prop:field-id% (value code-9821) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9825 (new prop:atom% (value '#t))) (code-9824 (new prop:field-id% (value code-9825) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9827 (new prop:atom% (value '2))) (code-9826 (new prop:field-id% (value code-9827) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9829 (new prop:atom% (value '2))) (code-9828 (new prop:field-id% (value code-9829) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9831 (new prop:atom% (value '0))) (code-9830 (new prop:field-id% (value code-9831) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9833 (new prop:atom% (value '0))) (code-9832 (new prop:field-id% (value code-9833) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9835 (new prop:atom% (value '#f))) (code-9834 (new prop:field-id% (value code-9835) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9837 (new prop:atom% (value '#f))) (code-9836 (new prop:field-id% (value code-9837) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9806 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9747) (properties (list (cons 'id code-9807) (cons 'label code-9809) (cons 'callback code-9816) (cons 'style code-9818) (cons 'font code-9820) (cons 'enabled code-9824) (cons 'vert-margin code-9826) (cons 'horiz-margin code-9828) (cons 'min-width code-9830) (cons 'min-height code-9832) (cons 'stretchable-width code-9834) (cons 'stretchable-height code-9836))))) (code-9840 (new prop:atom% (value 'button-template-delete))) (code-9839 (new prop:field-id% (value code-9840) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9844 (new prop:atom% (value '"Delete"))) (code-9845 (new prop:boolean% (value '#f) (label '"Image?"))) (code-9846 (new prop:file% (value '#f))) (code-9843 (new prop:group% (value (list code-9844 code-9845 code-9846)))) (code-9847 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9842 (new prop:proc% (value code-9843) (prop-code code-9847))) (code-9841 (new prop:field-id% (value code-9842) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9849 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9848 (new prop:field-id% (value code-9849) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9851 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9850 (new prop:field-id% (value code-9851) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9854 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9855 (new prop:code% (value list->font) (value-code 'list->font))) (code-9853 (new prop:font% (value code-9854) (prop-code code-9855))) (code-9852 (new prop:field-id% (value code-9853) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9857 (new prop:atom% (value '#t))) (code-9856 (new prop:field-id% (value code-9857) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9859 (new prop:atom% (value '2))) (code-9858 (new prop:field-id% (value code-9859) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9861 (new prop:atom% (value '2))) (code-9860 (new prop:field-id% (value code-9861) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9863 (new prop:atom% (value '0))) (code-9862 (new prop:field-id% (value code-9863) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9865 (new prop:atom% (value '0))) (code-9864 (new prop:field-id% (value code-9865) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9867 (new prop:atom% (value '#f))) (code-9866 (new prop:field-id% (value code-9867) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9869 (new prop:atom% (value '#f))) (code-9868 (new prop:field-id% (value code-9869) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9838 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9747) (properties (list (cons 'id code-9839) (cons 'label code-9841) (cons 'callback code-9848) (cons 'style code-9850) (cons 'font code-9852) (cons 'enabled code-9856) (cons 'vert-margin code-9858) (cons 'horiz-margin code-9860) (cons 'min-width code-9862) (cons 'min-height code-9864) (cons 'stretchable-width code-9866) (cons 'stretchable-height code-9868))))) (code-9872 (new prop:atom% (value 'group-box-panel-generate-code))) (code-9871 (new prop:field-id% (value code-9872) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9874 (new prop:atom% (value '"Generate code..."))) (code-9873 (new prop:field-id% (value code-9874) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9876 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-9875 (new prop:field-id% (value code-9876) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9879 (new prop:atom% (value (list '8 '"Arial" 'default 'normal 'normal '#f 'default '#f)))) (code-9880 (new prop:code% (value list->font) (value-code 'list->font))) (code-9878 (new prop:font% (value code-9879) (prop-code code-9880))) (code-9877 (new prop:field-id% (value code-9878) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9882 (new prop:atom% (value '#t))) (code-9881 (new prop:field-id% (value code-9882) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9884 (new prop:atom% (value '2))) (code-9883 (new prop:field-id% (value code-9884) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9886 (new prop:atom% (value '2))) (code-9885 (new prop:field-id% (value code-9886) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9888 (new prop:atom% (value '0))) (code-9887 (new prop:field-id% (value code-9888) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9890 (new prop:atom% (value '0))) (code-9889 (new prop:field-id% (value code-9890) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9893 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-9894 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-9892 (new prop:group% (value (list code-9893 code-9894)))) (code-9891 (new prop:field-id% (value code-9892) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9896 (new prop:atom% (value '0))) (code-9895 (new prop:field-id% (value code-9896) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9898 (new prop:atom% (value '0))) (code-9897 (new prop:field-id% (value code-9898) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9900 (new prop:atom% (value '#t))) (code-9899 (new prop:field-id% (value code-9900) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9902 (new prop:atom% (value '#f))) (code-9901 (new prop:field-id% (value code-9902) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9870 (new mred-id% (plugin (get-widget-plugin 'group-box-panel)) (mred-parent code-9398) (properties (list (cons 'id code-9871) (cons 'label code-9873) (cons 'style code-9875) (cons 'font code-9877) (cons 'enabled code-9881) (cons 'vert-margin code-9883) (cons 'horiz-margin code-9885) (cons 'border code-9887) (cons 'spacing code-9889) (cons 'alignment code-9891) (cons 'min-width code-9895) (cons 'min-height code-9897) (cons 'stretchable-width code-9899) (cons 'stretchable-height code-9901))))) (code-9905 (new prop:atom% (value 'horizontal-panel-5941))) (code-9904 (new prop:field-id% (value code-9905) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9907 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9906 (new prop:field-id% (value code-9907) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9909 (new prop:atom% (value '#t))) (code-9908 (new prop:field-id% (value code-9909) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9911 (new prop:atom% (value '0))) (code-9910 (new prop:field-id% (value code-9911) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9913 (new prop:atom% (value '0))) (code-9912 (new prop:field-id% (value code-9913) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9915 (new prop:atom% (value '0))) (code-9914 (new prop:field-id% (value code-9915) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9917 (new prop:atom% (value '0))) (code-9916 (new prop:field-id% (value code-9917) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9920 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-9921 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-9919 (new prop:group% (value (list code-9920 code-9921)))) (code-9918 (new prop:field-id% (value code-9919) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9923 (new prop:atom% (value '0))) (code-9922 (new prop:field-id% (value code-9923) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9925 (new prop:atom% (value '0))) (code-9924 (new prop:field-id% (value code-9925) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9927 (new prop:atom% (value '#t))) (code-9926 (new prop:field-id% (value code-9927) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9929 (new prop:atom% (value '#t))) (code-9928 (new prop:field-id% (value code-9929) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9903 (new mred-id% (plugin (get-widget-plugin 'horizontal-panel)) (mred-parent code-9870) (properties (list (cons 'id code-9904) (cons 'style code-9906) (cons 'enabled code-9908) (cons 'vert-margin code-9910) (cons 'horiz-margin code-9912) (cons 'border code-9914) (cons 'spacing code-9916) (cons 'alignment code-9918) (cons 'min-width code-9922) (cons 'min-height code-9924) (cons 'stretchable-width code-9926) (cons 'stretchable-height code-9928))))) (code-9932 (new prop:atom% (value 'button-console))) (code-9931 (new prop:field-id% (value code-9932) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9936 (new prop:atom% (value '"To console"))) (code-9937 (new prop:boolean% (value '#f) (label '"Image?"))) (code-9938 (new prop:file% (value '#f))) (code-9935 (new prop:group% (value (list code-9936 code-9937 code-9938)))) (code-9939 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9934 (new prop:proc% (value code-9935) (prop-code code-9939))) (code-9933 (new prop:field-id% (value code-9934) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9941 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9940 (new prop:field-id% (value code-9941) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9943 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9942 (new prop:field-id% (value code-9943) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9946 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9947 (new prop:code% (value list->font) (value-code 'list->font))) (code-9945 (new prop:font% (value code-9946) (prop-code code-9947))) (code-9944 (new prop:field-id% (value code-9945) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9949 (new prop:atom% (value '#t))) (code-9948 (new prop:field-id% (value code-9949) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9951 (new prop:atom% (value '2))) (code-9950 (new prop:field-id% (value code-9951) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9953 (new prop:atom% (value '2))) (code-9952 (new prop:field-id% (value code-9953) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9955 (new prop:atom% (value '110))) (code-9954 (new prop:field-id% (value code-9955) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9957 (new prop:atom% (value '0))) (code-9956 (new prop:field-id% (value code-9957) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9959 (new prop:atom% (value '#f))) (code-9958 (new prop:field-id% (value code-9959) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9961 (new prop:atom% (value '#f))) (code-9960 (new prop:field-id% (value code-9961) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9930 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9903) (properties (list (cons 'id code-9931) (cons 'label code-9933) (cons 'callback code-9940) (cons 'style code-9942) (cons 'font code-9944) (cons 'enabled code-9948) (cons 'vert-margin code-9950) (cons 'horiz-margin code-9952) (cons 'min-width code-9954) (cons 'min-height code-9956) (cons 'stretchable-width code-9958) (cons 'stretchable-height code-9960))))) (code-9964 (new prop:atom% (value 'button-code-file))) (code-9963 (new prop:field-id% (value code-9964) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9968 (new prop:atom% (value '"To file..."))) (code-9969 (new prop:boolean% (value '#f) (label '"Image?"))) (code-9970 (new prop:file% (value '#f))) (code-9967 (new prop:group% (value (list code-9968 code-9969 code-9970)))) (code-9971 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-9966 (new prop:proc% (value code-9967) (prop-code code-9971))) (code-9965 (new prop:field-id% (value code-9966) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9973 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-9972 (new prop:field-id% (value code-9973) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-9975 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-9974 (new prop:field-id% (value code-9975) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9978 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-9979 (new prop:code% (value list->font) (value-code 'list->font))) (code-9977 (new prop:font% (value code-9978) (prop-code code-9979))) (code-9976 (new prop:field-id% (value code-9977) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9981 (new prop:atom% (value '#t))) (code-9980 (new prop:field-id% (value code-9981) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9983 (new prop:atom% (value '2))) (code-9982 (new prop:field-id% (value code-9983) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9985 (new prop:atom% (value '2))) (code-9984 (new prop:field-id% (value code-9985) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9987 (new prop:atom% (value '110))) (code-9986 (new prop:field-id% (value code-9987) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9989 (new prop:atom% (value '0))) (code-9988 (new prop:field-id% (value code-9989) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9991 (new prop:atom% (value '#f))) (code-9990 (new prop:field-id% (value code-9991) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9993 (new prop:atom% (value '#f))) (code-9992 (new prop:field-id% (value code-9993) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9962 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-9903) (properties (list (cons 'id code-9963) (cons 'label code-9965) (cons 'callback code-9972) (cons 'style code-9974) (cons 'font code-9976) (cons 'enabled code-9980) (cons 'vert-margin code-9982) (cons 'horiz-margin code-9984) (cons 'min-width code-9986) (cons 'min-height code-9988) (cons 'stretchable-width code-9990) (cons 'stretchable-height code-9992))))) (code-9996 (new prop:atom% (value 'menu-bar-99582))) (code-9995 (new prop:field-id% (value code-9996) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-9998 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-9997 (new prop:field-id% (value code-9998) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9994 (new mred-id% (plugin (get-widget-plugin 'menu-bar)) (mred-parent code-9364) (properties (list (cons 'id code-9995) (cons 'demand-callback code-9997))))) (code-10001 (new prop:atom% (value 'menu-file))) (code-10000 (new prop:field-id% (value code-10001) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10003 (new prop:atom% (value '"&File"))) (code-10002 (new prop:field-id% (value code-10003) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10005 (new prop:atom% (value '"File"))) (code-10004 (new prop:field-id% (value code-10005) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10007 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-10006 (new prop:field-id% (value code-10007) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-9999 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-9994) (properties (list (cons 'id code-10000) (cons 'label code-10002) (cons 'help-string code-10004) (cons 'demand-callback code-10006))))) (code-10010 (new prop:atom% (value 'menu-item-open))) (code-10009 (new prop:field-id% (value code-10010) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10012 (new prop:atom% (value '"&Open..."))) (code-10011 (new prop:field-id% (value code-10012) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10014 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10013 (new prop:field-id% (value code-10014) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10016 (shortcut-values '#\O)) (code-10015 (new prop:field-id% (value code-10016) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10018 (new prop:atom% (value '"Open"))) (code-10017 (new prop:field-id% (value code-10018) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10020 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10019 (new prop:field-id% (value code-10020) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10022 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10021 (new prop:field-id% (value code-10022) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10008 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-9999) (properties (list (cons 'id code-10009) (cons 'label code-10011) (cons 'callback code-10013) (cons 'shortcut code-10015) (cons 'help-string code-10017) (cons 'demand-callback code-10019) (cons 'shortcut-prefix code-10021))))) (code-10025 (new prop:atom% (value 'menu-item-save))) (code-10024 (new prop:field-id% (value code-10025) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10027 (new prop:atom% (value '"&Save"))) (code-10026 (new prop:field-id% (value code-10027) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10029 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10028 (new prop:field-id% (value code-10029) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10031 (shortcut-values '#\S)) (code-10030 (new prop:field-id% (value code-10031) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10033 (new prop:atom% (value '"Save"))) (code-10032 (new prop:field-id% (value code-10033) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10035 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10034 (new prop:field-id% (value code-10035) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10037 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10036 (new prop:field-id% (value code-10037) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10023 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-9999) (properties (list (cons 'id code-10024) (cons 'label code-10026) (cons 'callback code-10028) (cons 'shortcut code-10030) (cons 'help-string code-10032) (cons 'demand-callback code-10034) (cons 'shortcut-prefix code-10036))))) (code-10040 (new prop:atom% (value 'menu-item-save-as))) (code-10039 (new prop:field-id% (value code-10040) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10042 (new prop:atom% (value '"&Save as..."))) (code-10041 (new prop:field-id% (value code-10042) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10044 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10043 (new prop:field-id% (value code-10044) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10046 (shortcut-values '#f)) (code-10045 (new prop:field-id% (value code-10046) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10048 (new prop:atom% (value '"Save as"))) (code-10047 (new prop:field-id% (value code-10048) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10050 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10049 (new prop:field-id% (value code-10050) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10052 (new prop:some-of% (value (list 'ctl 'shift)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10051 (new prop:field-id% (value code-10052) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10038 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-9999) (properties (list (cons 'id code-10039) (cons 'label code-10041) (cons 'callback code-10043) (cons 'shortcut code-10045) (cons 'help-string code-10047) (cons 'demand-callback code-10049) (cons 'shortcut-prefix code-10051))))) (code-10055 (new prop:atom% (value 'separator-menu-item-99622))) (code-10054 (new prop:field-id% (value code-10055) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10053 (new mred-id% (plugin (get-widget-plugin 'separator-menu-item)) (mred-parent code-9999) (properties (list (cons 'id code-10054))))) (code-10058 (new prop:atom% (value 'menu-item-exit))) (code-10057 (new prop:field-id% (value code-10058) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10060 (new prop:atom% (value '"E&xit"))) (code-10059 (new prop:field-id% (value code-10060) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10062 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10061 (new prop:field-id% (value code-10062) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10064 (shortcut-values '#\Q)) (code-10063 (new prop:field-id% (value code-10064) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10066 (new prop:atom% (value '"Exit Application"))) (code-10065 (new prop:field-id% (value code-10066) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10068 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10067 (new prop:field-id% (value code-10068) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10070 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10069 (new prop:field-id% (value code-10070) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10056 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-9999) (properties (list (cons 'id code-10057) (cons 'label code-10059) (cons 'callback code-10061) (cons 'shortcut code-10063) (cons 'help-string code-10065) (cons 'demand-callback code-10067) (cons 'shortcut-prefix code-10069))))) (code-10073 (new prop:atom% (value 'menu-edit))) (code-10072 (new prop:field-id% (value code-10073) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10075 (new prop:atom% (value '"&Edit"))) (code-10074 (new prop:field-id% (value code-10075) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10077 (new prop:atom% (value '"Edit"))) (code-10076 (new prop:field-id% (value code-10077) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10079 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-10078 (new prop:field-id% (value code-10079) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10071 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-9994) (properties (list (cons 'id code-10072) (cons 'label code-10074) (cons 'help-string code-10076) (cons 'demand-callback code-10078))))) (code-10082 (new prop:atom% (value 'menu-item-cut))) (code-10081 (new prop:field-id% (value code-10082) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10084 (new prop:atom% (value '"&Cut"))) (code-10083 (new prop:field-id% (value code-10084) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10086 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10085 (new prop:field-id% (value code-10086) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10088 (shortcut-values '#\X)) (code-10087 (new prop:field-id% (value code-10088) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10090 (new prop:atom% (value '"Cut"))) (code-10089 (new prop:field-id% (value code-10090) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10092 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10091 (new prop:field-id% (value code-10092) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10094 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10093 (new prop:field-id% (value code-10094) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10080 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10071) (properties (list (cons 'id code-10081) (cons 'label code-10083) (cons 'callback code-10085) (cons 'shortcut code-10087) (cons 'help-string code-10089) (cons 'demand-callback code-10091) (cons 'shortcut-prefix code-10093))))) (code-10097 (new prop:atom% (value 'menu-item-copy))) (code-10096 (new prop:field-id% (value code-10097) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10099 (new prop:atom% (value '"&Copy"))) (code-10098 (new prop:field-id% (value code-10099) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10101 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10100 (new prop:field-id% (value code-10101) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10103 (shortcut-values '#\C)) (code-10102 (new prop:field-id% (value code-10103) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10105 (new prop:atom% (value '"Copy"))) (code-10104 (new prop:field-id% (value code-10105) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10107 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10106 (new prop:field-id% (value code-10107) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10109 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10108 (new prop:field-id% (value code-10109) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10095 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10071) (properties (list (cons 'id code-10096) (cons 'label code-10098) (cons 'callback code-10100) (cons 'shortcut code-10102) (cons 'help-string code-10104) (cons 'demand-callback code-10106) (cons 'shortcut-prefix code-10108))))) (code-10112 (new prop:atom% (value 'menu-item-paste))) (code-10111 (new prop:field-id% (value code-10112) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10114 (new prop:atom% (value '"&Paste"))) (code-10113 (new prop:field-id% (value code-10114) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10116 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10115 (new prop:field-id% (value code-10116) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10118 (shortcut-values '#\V)) (code-10117 (new prop:field-id% (value code-10118) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10120 (new prop:atom% (value '"Paste"))) (code-10119 (new prop:field-id% (value code-10120) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10122 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10121 (new prop:field-id% (value code-10122) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10124 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10123 (new prop:field-id% (value code-10124) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10110 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10071) (properties (list (cons 'id code-10111) (cons 'label code-10113) (cons 'callback code-10115) (cons 'shortcut code-10117) (cons 'help-string code-10119) (cons 'demand-callback code-10121) (cons 'shortcut-prefix code-10123))))) (code-10127 (new prop:atom% (value 'separator-menu-item-99686))) (code-10126 (new prop:field-id% (value code-10127) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10125 (new mred-id% (plugin (get-widget-plugin 'separator-menu-item)) (mred-parent code-10071) (properties (list (cons 'id code-10126))))) (code-10130 (new prop:atom% (value 'menu-item-pref))) (code-10129 (new prop:field-id% (value code-10130) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10132 (new prop:atom% (value '"&Preferences..."))) (code-10131 (new prop:field-id% (value code-10132) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10134 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10133 (new prop:field-id% (value code-10134) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10136 (shortcut-values 'f1)) (code-10135 (new prop:field-id% (value code-10136) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10138 (new prop:atom% (value '"Preferences"))) (code-10137 (new prop:field-id% (value code-10138) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10140 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10139 (new prop:field-id% (value code-10140) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10142 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10141 (new prop:field-id% (value code-10142) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10128 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10071) (properties (list (cons 'id code-10129) (cons 'label code-10131) (cons 'callback code-10133) (cons 'shortcut code-10135) (cons 'help-string code-10137) (cons 'demand-callback code-10139) (cons 'shortcut-prefix code-10141))))) (code-10145 (new prop:atom% (value 'menu-windows))) (code-10144 (new prop:field-id% (value code-10145) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10147 (new prop:atom% (value '"Windows"))) (code-10146 (new prop:field-id% (value code-10147) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10149 (new prop:atom% (value '"Windows Management"))) (code-10148 (new prop:field-id% (value code-10149) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10151 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-10150 (new prop:field-id% (value code-10151) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10143 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-9994) (properties (list (cons 'id code-10144) (cons 'label code-10146) (cons 'help-string code-10148) (cons 'demand-callback code-10150))))) (code-10154 (new prop:atom% (value 'menu-item-windows-properties))) (code-10153 (new prop:field-id% (value code-10154) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10156 (new prop:atom% (value '"Show/Hide Properties"))) (code-10155 (new prop:field-id% (value code-10156) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10158 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10157 (new prop:field-id% (value code-10158) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10160 (shortcut-values '#f)) (code-10159 (new prop:field-id% (value code-10160) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10162 (new prop:atom% (value '"Item"))) (code-10161 (new prop:field-id% (value code-10162) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10164 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10163 (new prop:field-id% (value code-10164) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10166 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10165 (new prop:field-id% (value code-10166) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10152 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10143) (properties (list (cons 'id code-10153) (cons 'label code-10155) (cons 'callback code-10157) (cons 'shortcut code-10159) (cons 'help-string code-10161) (cons 'demand-callback code-10163) (cons 'shortcut-prefix code-10165))))) (code-10169 (new prop:atom% (value 'menu-item-5901))) (code-10168 (new prop:field-id% (value code-10169) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10171 (new prop:atom% (value '"Show/Hide Hierarchy"))) (code-10170 (new prop:field-id% (value code-10171) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10173 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10172 (new prop:field-id% (value code-10173) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10175 (shortcut-values '#f)) (code-10174 (new prop:field-id% (value code-10175) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10177 (new prop:atom% (value '"Item"))) (code-10176 (new prop:field-id% (value code-10177) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10179 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10178 (new prop:field-id% (value code-10179) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10181 (new prop:some-of% (value (list 'ctl)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10180 (new prop:field-id% (value code-10181) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10167 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10143) (properties (list (cons 'id code-10168) (cons 'label code-10170) (cons 'callback code-10172) (cons 'shortcut code-10174) (cons 'help-string code-10176) (cons 'demand-callback code-10178) (cons 'shortcut-prefix code-10180))))) (code-10184 (new prop:atom% (value 'menu-help))) (code-10183 (new prop:field-id% (value code-10184) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10186 (new prop:atom% (value '"&Help"))) (code-10185 (new prop:field-id% (value code-10186) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10188 (new prop:atom% (value '"Help"))) (code-10187 (new prop:field-id% (value code-10188) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10190 (new prop:code% (value (lambda (m) (void))) (value-code '(lambda (m) (void))))) (code-10189 (new prop:field-id% (value code-10190) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10182 (new mred-id% (plugin (get-widget-plugin 'menu)) (mred-parent code-9994) (properties (list (cons 'id code-10183) (cons 'label code-10185) (cons 'help-string code-10187) (cons 'demand-callback code-10189))))) (code-10193 (new prop:atom% (value 'menu-item-about))) (code-10192 (new prop:field-id% (value code-10193) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10195 (new prop:atom% (value '"&About..."))) (code-10194 (new prop:field-id% (value code-10195) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10197 (new prop:code% (value (lambda (item event) (void))) (value-code '(lambda (item event) (void))))) (code-10196 (new prop:field-id% (value code-10197) (field-id 'callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10199 (shortcut-values 'f1)) (code-10198 (new prop:field-id% (value code-10199) (field-id 'shortcut) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10201 (new prop:atom% (value '"About"))) (code-10200 (new prop:field-id% (value code-10201) (field-id 'help-string) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10203 (new prop:code% (value (lambda (item) (void))) (value-code '(lambda (item) (void))))) (code-10202 (new prop:field-id% (value code-10203) (field-id 'demand-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10205 (new prop:some-of% (value (list)) (choices (list 'alt 'cmd 'meta 'ctl 'shift 'option)))) (code-10204 (new prop:field-id% (value code-10205) (field-id 'shortcut-prefix) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10191 (new mred-id% (plugin (get-widget-plugin 'menu-item)) (mred-parent code-10182) (properties (list (cons 'id code-10192) (cons 'label code-10194) (cons 'callback code-10196) (cons 'shortcut code-10198) (cons 'help-string code-10200) (cons 'demand-callback code-10202) (cons 'shortcut-prefix code-10204))))) (code-10208 (new prop:atom% (value 'frame-hierarchy))) (code-10207 (new prop:field-id% (value code-10208) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10210 (new prop:atom% (value '"Hierarchy"))) (code-10209 (new prop:field-id% (value code-10210) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10212 (new prop:atom% (value '349))) (code-10211 (new prop:field-id% (value code-10212) (field-id 'width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10214 (new prop:atom% (value '528))) (code-10213 (new prop:field-id% (value code-10214) (field-id 'height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10216 (new prop:atom% (value '439))) (code-10215 (new prop:field-id% (value code-10216) (field-id 'x) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10218 (new prop:atom% (value '389))) (code-10217 (new prop:field-id% (value code-10218) (field-id 'y) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10221 (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-10220 (new prop:popup% (value code-10221))) (code-10219 (new prop:field-id% (value code-10220) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10223 (new prop:atom% (value '#t))) (code-10222 (new prop:field-id% (value code-10223) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10225 (new prop:atom% (value '0))) (code-10224 (new prop:field-id% (value code-10225) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10227 (new prop:atom% (value '0))) (code-10226 (new prop:field-id% (value code-10227) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10230 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-10231 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-10229 (new prop:group% (value (list code-10230 code-10231)))) (code-10228 (new prop:field-id% (value code-10229) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10233 (new prop:atom% (value '70))) (code-10232 (new prop:field-id% (value code-10233) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10235 (new prop:atom% (value '30))) (code-10234 (new prop:field-id% (value code-10235) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10237 (new prop:atom% (value '#t))) (code-10236 (new prop:field-id% (value code-10237) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10239 (new prop:atom% (value '#t))) (code-10238 (new prop:field-id% (value code-10239) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10206 (new mred-id% (plugin (get-widget-plugin 'frame)) (mred-parent code-9352) (properties (list (cons 'id code-10207) (cons 'label code-10209) (cons 'width code-10211) (cons 'height code-10213) (cons 'x code-10215) (cons 'y code-10217) (cons 'style code-10219) (cons 'enabled code-10222) (cons 'border code-10224) (cons 'spacing code-10226) (cons 'alignment code-10228) (cons 'min-width code-10232) (cons 'min-height code-10234) (cons 'stretchable-width code-10236) (cons 'stretchable-height code-10238))))) (code-10242 (new prop:atom% (value 'horizontal-panel-6948))) (code-10241 (new prop:field-id% (value code-10242) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10244 (new prop:some-of% (value (list 'border)) (choices (list 'border 'deleted)))) (code-10243 (new prop:field-id% (value code-10244) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10246 (new prop:atom% (value '#t))) (code-10245 (new prop:field-id% (value code-10246) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10248 (new prop:atom% (value '0))) (code-10247 (new prop:field-id% (value code-10248) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10250 (new prop:atom% (value '0))) (code-10249 (new prop:field-id% (value code-10250) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10252 (new prop:atom% (value '0))) (code-10251 (new prop:field-id% (value code-10252) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10254 (new prop:atom% (value '0))) (code-10253 (new prop:field-id% (value code-10254) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10257 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-10258 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-10256 (new prop:group% (value (list code-10257 code-10258)))) (code-10255 (new prop:field-id% (value code-10256) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10260 (new prop:atom% (value '0))) (code-10259 (new prop:field-id% (value code-10260) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10262 (new prop:atom% (value '0))) (code-10261 (new prop:field-id% (value code-10262) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10264 (new prop:atom% (value '#t))) (code-10263 (new prop:field-id% (value code-10264) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10266 (new prop:atom% (value '#f))) (code-10265 (new prop:field-id% (value code-10266) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10240 (new mred-id% (plugin (get-widget-plugin 'horizontal-panel)) (mred-parent code-10206) (properties (list (cons 'id code-10241) (cons 'style code-10243) (cons 'enabled code-10245) (cons 'vert-margin code-10247) (cons 'horiz-margin code-10249) (cons 'border code-10251) (cons 'spacing code-10253) (cons 'alignment code-10255) (cons 'min-width code-10259) (cons 'min-height code-10261) (cons 'stretchable-width code-10263) (cons 'stretchable-height code-10265))))) (code-10269 (new prop:atom% (value 'button-hierarchy-delete))) (code-10268 (new prop:field-id% (value code-10269) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10273 (new prop:atom% (value '"Delete"))) (code-10274 (new prop:boolean% (value '#f) (label '"Image?"))) (code-10275 (new prop:file% (value '#f))) (code-10272 (new prop:group% (value (list code-10273 code-10274 code-10275)))) (code-10276 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-10271 (new prop:proc% (value code-10272) (prop-code code-10276))) (code-10270 (new prop:field-id% (value code-10271) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10278 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-10277 (new prop:field-id% (value code-10278) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10280 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-10279 (new prop:field-id% (value code-10280) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10283 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-10284 (new prop:code% (value list->font) (value-code 'list->font))) (code-10282 (new prop:font% (value code-10283) (prop-code code-10284))) (code-10281 (new prop:field-id% (value code-10282) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10286 (new prop:atom% (value '#t))) (code-10285 (new prop:field-id% (value code-10286) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10288 (new prop:atom% (value '2))) (code-10287 (new prop:field-id% (value code-10288) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10290 (new prop:atom% (value '2))) (code-10289 (new prop:field-id% (value code-10290) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10292 (new prop:atom% (value '0))) (code-10291 (new prop:field-id% (value code-10292) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10294 (new prop:atom% (value '0))) (code-10293 (new prop:field-id% (value code-10294) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10296 (new prop:atom% (value '#f))) (code-10295 (new prop:field-id% (value code-10296) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10298 (new prop:atom% (value '#f))) (code-10297 (new prop:field-id% (value code-10298) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10267 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-10240) (properties (list (cons 'id code-10268) (cons 'label code-10270) (cons 'callback code-10277) (cons 'style code-10279) (cons 'font code-10281) (cons 'enabled code-10285) (cons 'vert-margin code-10287) (cons 'horiz-margin code-10289) (cons 'min-width code-10291) (cons 'min-height code-10293) (cons 'stretchable-width code-10295) (cons 'stretchable-height code-10297))))) (code-10301 (new prop:atom% (value 'button-hierarchy-cut))) (code-10300 (new prop:field-id% (value code-10301) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10305 (new prop:atom% (value '"Cut"))) (code-10306 (new prop:boolean% (value '#f) (label '"Image?"))) (code-10307 (new prop:file% (value '#f))) (code-10304 (new prop:group% (value (list code-10305 code-10306 code-10307)))) (code-10308 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-10303 (new prop:proc% (value code-10304) (prop-code code-10308))) (code-10302 (new prop:field-id% (value code-10303) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10310 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-10309 (new prop:field-id% (value code-10310) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10312 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-10311 (new prop:field-id% (value code-10312) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10315 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-10316 (new prop:code% (value list->font) (value-code 'list->font))) (code-10314 (new prop:font% (value code-10315) (prop-code code-10316))) (code-10313 (new prop:field-id% (value code-10314) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10318 (new prop:atom% (value '#t))) (code-10317 (new prop:field-id% (value code-10318) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10320 (new prop:atom% (value '2))) (code-10319 (new prop:field-id% (value code-10320) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10322 (new prop:atom% (value '2))) (code-10321 (new prop:field-id% (value code-10322) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10324 (new prop:atom% (value '0))) (code-10323 (new prop:field-id% (value code-10324) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10326 (new prop:atom% (value '0))) (code-10325 (new prop:field-id% (value code-10326) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10328 (new prop:atom% (value '#f))) (code-10327 (new prop:field-id% (value code-10328) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10330 (new prop:atom% (value '#f))) (code-10329 (new prop:field-id% (value code-10330) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10299 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-10240) (properties (list (cons 'id code-10300) (cons 'label code-10302) (cons 'callback code-10309) (cons 'style code-10311) (cons 'font code-10313) (cons 'enabled code-10317) (cons 'vert-margin code-10319) (cons 'horiz-margin code-10321) (cons 'min-width code-10323) (cons 'min-height code-10325) (cons 'stretchable-width code-10327) (cons 'stretchable-height code-10329))))) (code-10333 (new prop:atom% (value 'button-hierarchy-copy))) (code-10332 (new prop:field-id% (value code-10333) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10337 (new prop:atom% (value '"Copy"))) (code-10338 (new prop:boolean% (value '#f) (label '"Image?"))) (code-10339 (new prop:file% (value '#f))) (code-10336 (new prop:group% (value (list code-10337 code-10338 code-10339)))) (code-10340 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-10335 (new prop:proc% (value code-10336) (prop-code code-10340))) (code-10334 (new prop:field-id% (value code-10335) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10342 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-10341 (new prop:field-id% (value code-10342) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10344 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-10343 (new prop:field-id% (value code-10344) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10347 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-10348 (new prop:code% (value list->font) (value-code 'list->font))) (code-10346 (new prop:font% (value code-10347) (prop-code code-10348))) (code-10345 (new prop:field-id% (value code-10346) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10350 (new prop:atom% (value '#t))) (code-10349 (new prop:field-id% (value code-10350) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10352 (new prop:atom% (value '2))) (code-10351 (new prop:field-id% (value code-10352) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10354 (new prop:atom% (value '2))) (code-10353 (new prop:field-id% (value code-10354) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10356 (new prop:atom% (value '0))) (code-10355 (new prop:field-id% (value code-10356) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10358 (new prop:atom% (value '0))) (code-10357 (new prop:field-id% (value code-10358) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10360 (new prop:atom% (value '#f))) (code-10359 (new prop:field-id% (value code-10360) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10362 (new prop:atom% (value '#f))) (code-10361 (new prop:field-id% (value code-10362) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10331 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-10240) (properties (list (cons 'id code-10332) (cons 'label code-10334) (cons 'callback code-10341) (cons 'style code-10343) (cons 'font code-10345) (cons 'enabled code-10349) (cons 'vert-margin code-10351) (cons 'horiz-margin code-10353) (cons 'min-width code-10355) (cons 'min-height code-10357) (cons 'stretchable-width code-10359) (cons 'stretchable-height code-10361))))) (code-10365 (new prop:atom% (value 'button-hierarchy-paste))) (code-10364 (new prop:field-id% (value code-10365) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10369 (new prop:atom% (value '"Paste"))) (code-10370 (new prop:boolean% (value '#f) (label '"Image?"))) (code-10371 (new prop:file% (value '#f))) (code-10368 (new prop:group% (value (list code-10369 code-10370 code-10371)))) (code-10372 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-10367 (new prop:proc% (value code-10368) (prop-code code-10372))) (code-10366 (new prop:field-id% (value code-10367) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10374 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-10373 (new prop:field-id% (value code-10374) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10376 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-10375 (new prop:field-id% (value code-10376) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10379 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-10380 (new prop:code% (value list->font) (value-code 'list->font))) (code-10378 (new prop:font% (value code-10379) (prop-code code-10380))) (code-10377 (new prop:field-id% (value code-10378) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10382 (new prop:atom% (value '#t))) (code-10381 (new prop:field-id% (value code-10382) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10384 (new prop:atom% (value '2))) (code-10383 (new prop:field-id% (value code-10384) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10386 (new prop:atom% (value '2))) (code-10385 (new prop:field-id% (value code-10386) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10388 (new prop:atom% (value '0))) (code-10387 (new prop:field-id% (value code-10388) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10390 (new prop:atom% (value '0))) (code-10389 (new prop:field-id% (value code-10390) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10392 (new prop:atom% (value '#f))) (code-10391 (new prop:field-id% (value code-10392) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10394 (new prop:atom% (value '#f))) (code-10393 (new prop:field-id% (value code-10394) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10363 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-10240) (properties (list (cons 'id code-10364) (cons 'label code-10366) (cons 'callback code-10373) (cons 'style code-10375) (cons 'font code-10377) (cons 'enabled code-10381) (cons 'vert-margin code-10383) (cons 'horiz-margin code-10385) (cons 'min-width code-10387) (cons 'min-height code-10389) (cons 'stretchable-width code-10391) (cons 'stretchable-height code-10393))))) (code-10397 (new prop:atom% (value 'button-hierarchy-up))) (code-10396 (new prop:field-id% (value code-10397) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10401 (new prop:atom% (value '"Up"))) (code-10402 (new prop:boolean% (value '#t) (label '"Image?"))) (code-10403 (new prop:file% (value '"E:\\Projets\\Scheme\\mred-designer\\images\\hierarchy-up.png"))) (code-10400 (new prop:group% (value (list code-10401 code-10402 code-10403)))) (code-10404 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-10399 (new prop:proc% (value code-10400) (prop-code code-10404))) (code-10398 (new prop:field-id% (value code-10399) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10406 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-10405 (new prop:field-id% (value code-10406) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10408 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-10407 (new prop:field-id% (value code-10408) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10411 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-10412 (new prop:code% (value list->font) (value-code 'list->font))) (code-10410 (new prop:font% (value code-10411) (prop-code code-10412))) (code-10409 (new prop:field-id% (value code-10410) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10414 (new prop:atom% (value '#t))) (code-10413 (new prop:field-id% (value code-10414) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10416 (new prop:atom% (value '2))) (code-10415 (new prop:field-id% (value code-10416) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10418 (new prop:atom% (value '2))) (code-10417 (new prop:field-id% (value code-10418) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10420 (new prop:atom% (value '0))) (code-10419 (new prop:field-id% (value code-10420) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10422 (new prop:atom% (value '0))) (code-10421 (new prop:field-id% (value code-10422) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10424 (new prop:atom% (value '#f))) (code-10423 (new prop:field-id% (value code-10424) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10426 (new prop:atom% (value '#f))) (code-10425 (new prop:field-id% (value code-10426) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10395 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-10240) (properties (list (cons 'id code-10396) (cons 'label code-10398) (cons 'callback code-10405) (cons 'style code-10407) (cons 'font code-10409) (cons 'enabled code-10413) (cons 'vert-margin code-10415) (cons 'horiz-margin code-10417) (cons 'min-width code-10419) (cons 'min-height code-10421) (cons 'stretchable-width code-10423) (cons 'stretchable-height code-10425))))) (code-10429 (new prop:atom% (value 'button-hierarchy-down))) (code-10428 (new prop:field-id% (value code-10429) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10433 (new prop:atom% (value '"Down"))) (code-10434 (new prop:boolean% (value '#t) (label '"Image?"))) (code-10435 (new prop:file% (value '"E:\\Projets\\Scheme\\mred-designer\\images\\hierarchy-down.png"))) (code-10432 (new prop:group% (value (list code-10433 code-10434 code-10435)))) (code-10436 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-10431 (new prop:proc% (value code-10432) (prop-code code-10436))) (code-10430 (new prop:field-id% (value code-10431) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10438 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-10437 (new prop:field-id% (value code-10438) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-10440 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-10439 (new prop:field-id% (value code-10440) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10443 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-10444 (new prop:code% (value list->font) (value-code 'list->font))) (code-10442 (new prop:font% (value code-10443) (prop-code code-10444))) (code-10441 (new prop:field-id% (value code-10442) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10446 (new prop:atom% (value '#t))) (code-10445 (new prop:field-id% (value code-10446) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10448 (new prop:atom% (value '2))) (code-10447 (new prop:field-id% (value code-10448) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10450 (new prop:atom% (value '2))) (code-10449 (new prop:field-id% (value code-10450) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10452 (new prop:atom% (value '0))) (code-10451 (new prop:field-id% (value code-10452) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10454 (new prop:atom% (value '0))) (code-10453 (new prop:field-id% (value code-10454) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10456 (new prop:atom% (value '#f))) (code-10455 (new prop:field-id% (value code-10456) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10458 (new prop:atom% (value '#f))) (code-10457 (new prop:field-id% (value code-10458) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10427 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-10240) (properties (list (cons 'id code-10428) (cons 'label code-10430) (cons 'callback code-10437) (cons 'style code-10439) (cons 'font code-10441) (cons 'enabled code-10445) (cons 'vert-margin code-10447) (cons 'horiz-margin code-10449) (cons 'min-width code-10451) (cons 'min-height code-10453) (cons 'stretchable-width code-10455) (cons 'stretchable-height code-10457))))) (code-10461 (new prop:atom% (value 'canvas-9346))) (code-10460 (new prop:field-id% (value code-10461) (field-id 'id) (option '#f) (necessary '#f) (no-code '#t) (hidden '#f))) (code-10463 (new prop:some-of% (value (list)) (choices (list 'border 'control-border 'combo 'vscroll 'hscroll 'resize-corner 'gl 'no-autoclear 'transparent 'no-focus 'deleted)))) (code-10462 (new prop:field-id% (value code-10463) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10465 (new prop:code% (value (λ (canvas dc) (void))) (value-code '(λ (canvas dc) (void))))) (code-10464 (new prop:field-id% (value code-10465) (field-id 'paint-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10467 (new prop:atom% (value '"Canvas"))) (code-10466 (new prop:field-id% (value code-10467) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10469 (new prop:atom% (value '#f))) (code-10468 (new prop:field-id% (value code-10469) (field-id 'gl-config) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10471 (new prop:atom% (value '#t))) (code-10470 (new prop:field-id% (value code-10471) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10473 (new prop:atom% (value '2))) (code-10472 (new prop:field-id% (value code-10473) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10475 (new prop:atom% (value '2))) (code-10474 (new prop:field-id% (value code-10475) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10477 (new prop:atom% (value '0))) (code-10476 (new prop:field-id% (value code-10477) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10479 (new prop:atom% (value '0))) (code-10478 (new prop:field-id% (value code-10479) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10481 (new prop:atom% (value '#t))) (code-10480 (new prop:field-id% (value code-10481) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10483 (new prop:atom% (value '#t))) (code-10482 (new prop:field-id% (value code-10483) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-10459 (new mred-id% (plugin (get-widget-plugin 'canvas)) (mred-parent code-10206) (properties (list (cons 'id code-10460) (cons 'style code-10462) (cons 'paint-callback code-10464) (cons 'label code-10466) (cons 'gl-config code-10468) (cons 'enabled code-10470) (cons 'vert-margin code-10472) (cons 'horiz-margin code-10474) (cons 'min-width code-10476) (cons 'min-height code-10478) (cons 'stretchable-width code-10480) (cons 'stretchable-height code-10482)))))) (list code-9352 code-9364 code-9398 code-9425 code-9458 code-9490 code-9523 code-9555 code-9588 code-9620 code-9653 code-9680 code-9715 code-9747 code-9774 code-9806 code-9838 code-9870 code-9903 code-9930 code-9962 code-9994 code-9999 code-10008 code-10023 code-10038 code-10053 code-10056 code-10071 code-10080 code-10095 code-10110 code-10125 code-10128 code-10143 code-10152 code-10167 code-10182 code-10191 code-10206 code-10240 code-10267 code-10299 code-10331 code-10363 code-10395 code-10427 code-10459)))))