"Clipboard" (list (cons 'name "Clipboard") (cons 'parent-class container-classes) (cons 'code (lambda (parent-6423) (let* ((code-6425 parent-6423) (code-6427 (new prop:atom% (value 'horizontal-pane-5055))) (code-6426 (new prop:field-id% (value code-6427) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-6429 (new prop:atom% (value '0))) (code-6428 (new prop:field-id% (value code-6429) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6431 (new prop:atom% (value '0))) (code-6430 (new prop:field-id% (value code-6431) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6433 (new prop:atom% (value '0))) (code-6432 (new prop:field-id% (value code-6433) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6435 (new prop:atom% (value '0))) (code-6434 (new prop:field-id% (value code-6435) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6438 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-6439 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-6437 (new prop:group% (value (list code-6438 code-6439)))) (code-6436 (new prop:field-id% (value code-6437) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6441 (new prop:atom% (value '0))) (code-6440 (new prop:field-id% (value code-6441) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6443 (new prop:atom% (value '0))) (code-6442 (new prop:field-id% (value code-6443) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6445 (new prop:atom% (value '#t))) (code-6444 (new prop:field-id% (value code-6445) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6447 (new prop:atom% (value '#f))) (code-6446 (new prop:field-id% (value code-6447) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6424 (new mred-id% (plugin (get-widget-plugin 'horizontal-pane)) (mred-parent code-6425) (properties (list (cons 'id code-6426) (cons 'vert-margin code-6428) (cons 'horiz-margin code-6430) (cons 'border code-6432) (cons 'spacing code-6434) (cons 'alignment code-6436) (cons 'min-width code-6440) (cons 'min-height code-6442) (cons 'stretchable-width code-6444) (cons 'stretchable-height code-6446))))) (code-6450 (new prop:atom% (value 'button-network-new-game-ok))) (code-6449 (new prop:field-id% (value code-6450) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-6454 (new prop:atom% (value '"Next"))) (code-6455 (new prop:boolean% (value '#f) (label '"Image?"))) (code-6456 (new prop:file% (value '#f))) (code-6453 (new prop:group% (value (list code-6454 code-6455 code-6456)))) (code-6457 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-6452 (new prop:proc% (value code-6453) (prop-code code-6457))) (code-6451 (new prop:field-id% (value code-6452) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-6459 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-6458 (new prop:field-id% (value code-6459) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-6461 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-6460 (new prop:field-id% (value code-6461) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6464 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-6465 (new prop:code% (value list->font) (value-code 'list->font))) (code-6463 (new prop:font% (value code-6464) (prop-code code-6465))) (code-6462 (new prop:field-id% (value code-6463) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6467 (new prop:atom% (value '#t))) (code-6466 (new prop:field-id% (value code-6467) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6469 (new prop:atom% (value '2))) (code-6468 (new prop:field-id% (value code-6469) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6471 (new prop:atom% (value '2))) (code-6470 (new prop:field-id% (value code-6471) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6473 (new prop:atom% (value '0))) (code-6472 (new prop:field-id% (value code-6473) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6475 (new prop:atom% (value '0))) (code-6474 (new prop:field-id% (value code-6475) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6477 (new prop:atom% (value '#f))) (code-6476 (new prop:field-id% (value code-6477) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6479 (new prop:atom% (value '#f))) (code-6478 (new prop:field-id% (value code-6479) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6448 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-6424) (properties (list (cons 'id code-6449) (cons 'label code-6451) (cons 'callback code-6458) (cons 'style code-6460) (cons 'font code-6462) (cons 'enabled code-6466) (cons 'vert-margin code-6468) (cons 'horiz-margin code-6470) (cons 'min-width code-6472) (cons 'min-height code-6474) (cons 'stretchable-width code-6476) (cons 'stretchable-height code-6478))))) (code-6482 (new prop:atom% (value 'button-network-new-game-cancel))) (code-6481 (new prop:field-id% (value code-6482) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-6486 (new prop:atom% (value '"Cancel"))) (code-6487 (new prop:boolean% (value '#f) (label '"Image?"))) (code-6488 (new prop:file% (value '#f))) (code-6485 (new prop:group% (value (list code-6486 code-6487 code-6488)))) (code-6489 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-6484 (new prop:proc% (value code-6485) (prop-code code-6489))) (code-6483 (new prop:field-id% (value code-6484) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-6491 (new prop:code% (value (lambda (button control-event) (void))) (value-code '(lambda (button control-event) (void))))) (code-6490 (new prop:field-id% (value code-6491) (field-id 'callback) (option '#t) (necessary '#t) (no-code '#f) (hidden '#f))) (code-6493 (new prop:some-of% (value (list)) (choices (list 'border 'deleted)))) (code-6492 (new prop:field-id% (value code-6493) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6496 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-6497 (new prop:code% (value list->font) (value-code 'list->font))) (code-6495 (new prop:font% (value code-6496) (prop-code code-6497))) (code-6494 (new prop:field-id% (value code-6495) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6499 (new prop:atom% (value '#t))) (code-6498 (new prop:field-id% (value code-6499) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6501 (new prop:atom% (value '2))) (code-6500 (new prop:field-id% (value code-6501) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6503 (new prop:atom% (value '2))) (code-6502 (new prop:field-id% (value code-6503) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6505 (new prop:atom% (value '0))) (code-6504 (new prop:field-id% (value code-6505) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6507 (new prop:atom% (value '0))) (code-6506 (new prop:field-id% (value code-6507) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6509 (new prop:atom% (value '#f))) (code-6508 (new prop:field-id% (value code-6509) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6511 (new prop:atom% (value '#f))) (code-6510 (new prop:field-id% (value code-6511) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-6480 (new mred-id% (plugin (get-widget-plugin 'button)) (mred-parent code-6424) (properties (list (cons 'id code-6481) (cons 'label code-6483) (cons 'callback code-6490) (cons 'style code-6492) (cons 'font code-6494) (cons 'enabled code-6498) (cons 'vert-margin code-6500) (cons 'horiz-margin code-6502) (cons 'min-width code-6504) (cons 'min-height code-6506) (cons 'stretchable-width code-6508) (cons 'stretchable-height code-6510)))))) (list code-6424 code-6448 code-6480)))))