"Clipboard" (list (cons 'name "Clipboard") (cons 'parent-class container-classes) (cons 'code (lambda (parent-3848) (let* ((code-3850 parent-3848) (code-3852 (new prop:atom% (value 'horizontal-panel-3606))) (code-3851 (new prop:field-id% (value code-3852) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-3854 (new prop:some-of% (value (list 'border)) (choices (list 'border 'deleted)))) (code-3853 (new prop:field-id% (value code-3854) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3856 (new prop:atom% (value '#t))) (code-3855 (new prop:field-id% (value code-3856) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3858 (new prop:atom% (value '0))) (code-3857 (new prop:field-id% (value code-3858) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3860 (new prop:atom% (value '0))) (code-3859 (new prop:field-id% (value code-3860) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3862 (new prop:atom% (value '0))) (code-3861 (new prop:field-id% (value code-3862) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3864 (new prop:atom% (value '0))) (code-3863 (new prop:field-id% (value code-3864) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3867 (new prop:one-of% (value 'left) (choices (list 'left 'center 'right)))) (code-3868 (new prop:one-of% (value 'center) (choices (list 'top 'center 'bottom)))) (code-3866 (new prop:group% (value (list code-3867 code-3868)))) (code-3865 (new prop:field-id% (value code-3866) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3870 (new prop:atom% (value '0))) (code-3869 (new prop:field-id% (value code-3870) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3872 (new prop:atom% (value '0))) (code-3871 (new prop:field-id% (value code-3872) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3874 (new prop:atom% (value '#t))) (code-3873 (new prop:field-id% (value code-3874) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3876 (new prop:atom% (value '#f))) (code-3875 (new prop:field-id% (value code-3876) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3849 (new mred-id% (plugin (get-widget-plugin 'horizontal-panel)) (mred-parent code-3850) (properties (list (cons 'id code-3851) (cons 'style code-3853) (cons 'enabled code-3855) (cons 'vert-margin code-3857) (cons 'horiz-margin code-3859) (cons 'border code-3861) (cons 'spacing code-3863) (cons 'alignment code-3865) (cons 'min-width code-3869) (cons 'min-height code-3871) (cons 'stretchable-width code-3873) (cons 'stretchable-height code-3875))))) (code-3879 (new prop:atom% (value 'message-3629))) (code-3878 (new prop:field-id% (value code-3879) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-3883 (new prop:atom% (value '"Message"))) (code-3884 (new prop:boolean% (value '#f) (label '"Image?"))) (code-3885 (new prop:file% (value '#f))) (code-3882 (new prop:group% (value (list code-3883 code-3884 code-3885)))) (code-3886 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-3881 (new prop:proc% (value code-3882) (prop-code code-3886))) (code-3880 (new prop:field-id% (value code-3881) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-3888 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-3887 (new prop:field-id% (value code-3888) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3891 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-3892 (new prop:code% (value list->font) (value-code 'list->font))) (code-3890 (new prop:font% (value code-3891) (prop-code code-3892))) (code-3889 (new prop:field-id% (value code-3890) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3894 (new prop:atom% (value '#t))) (code-3893 (new prop:field-id% (value code-3894) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3896 (new prop:atom% (value '2))) (code-3895 (new prop:field-id% (value code-3896) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3898 (new prop:atom% (value '2))) (code-3897 (new prop:field-id% (value code-3898) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3900 (new prop:atom% (value '0))) (code-3899 (new prop:field-id% (value code-3900) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3902 (new prop:atom% (value '0))) (code-3901 (new prop:field-id% (value code-3902) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3904 (new prop:atom% (value '#f))) (code-3903 (new prop:field-id% (value code-3904) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3906 (new prop:atom% (value '#f))) (code-3905 (new prop:field-id% (value code-3906) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3908 (new prop:atom% (value '#f))) (code-3907 (new prop:field-id% (value code-3908) (field-id 'auto-resize) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-3877 (new mred-id% (plugin (get-widget-plugin 'message)) (mred-parent code-3849) (properties (list (cons 'id code-3878) (cons 'label code-3880) (cons 'style code-3887) (cons 'font code-3889) (cons 'enabled code-3893) (cons 'vert-margin code-3895) (cons 'horiz-margin code-3897) (cons 'min-width code-3899) (cons 'min-height code-3901) (cons 'stretchable-width code-3903) (cons 'stretchable-height code-3905) (cons 'auto-resize code-3907)))))) (list code-3849 code-3877)))))