"Clipboard"
(list
 (cons 'name "Clipboard")
 (cons 'parent-class container-classes)
 (cons
  'code
  (lambda (parent-4785)
    (let* ((code-4787 parent-4785)
           (code-4789 (new prop:atom% (value 'msg-erreur)))
           (code-4788
            (new
             prop:field-id%
             (value code-4789)
             (field-id 'id)
             (option '#t)
             (necessary '#f)
             (no-code '#t)
             (hidden '#f)))
           (code-4791 (new prop:code% (value message%) (value-code 'message%)))
           (code-4790
            (new
             prop:field-id%
             (value code-4791)
             (field-id 'code-gen-class)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4795 (new prop:atom% (value '"")))
           (code-4796 (new prop:boolean% (value '#f) (label '"Image?")))
           (code-4797 (new prop:file% (value '#f)))
           (code-4794
            (new prop:group% (value (list code-4795 code-4796 code-4797))))
           (code-4798
            (new
             prop:code%
             (value label-bitmap-proc)
             (value-code 'label-bitmap-proc)))
           (code-4793
            (new
             prop:proc%
             (value code-4794)
             (prop-code code-4798)
             (generate-quoted-code '#t)))
           (code-4792
            (new
             prop:field-id%
             (value code-4793)
             (field-id 'label)
             (option '#f)
             (necessary '#t)
             (no-code '#f)
             (hidden '#f)))
           (code-4800
            (new prop:some-of% (value (list)) (choices (list 'deleted))))
           (code-4799
            (new
             prop:field-id%
             (value code-4800)
             (field-id 'style)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4803
            (new
             prop:atom%
             (value
              (list
               '16
               '"Monospace"
               'default
               'normal
               'bold
               '#f
               'default
               '#f))))
           (code-4804
            (new prop:code% (value list->font) (value-code 'list->font)))
           (code-4802
            (new
             prop:font%
             (value code-4803)
             (prop-code code-4804)
             (generate-quoted-code '#t)))
           (code-4801
            (new
             prop:field-id%
             (value code-4802)
             (field-id 'font)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4806 (new prop:atom% (value '#t)))
           (code-4805
            (new
             prop:field-id%
             (value code-4806)
             (field-id 'enabled)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4808 (new prop:atom% (value '2)))
           (code-4807
            (new
             prop:field-id%
             (value code-4808)
             (field-id 'vert-margin)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4810 (new prop:atom% (value '2)))
           (code-4809
            (new
             prop:field-id%
             (value code-4810)
             (field-id 'horiz-margin)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4812 (new prop:atom% (value '0)))
           (code-4811
            (new
             prop:field-id%
             (value code-4812)
             (field-id 'min-width)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4814 (new prop:atom% (value '20)))
           (code-4813
            (new
             prop:field-id%
             (value code-4814)
             (field-id 'min-height)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4816 (new prop:atom% (value '#f)))
           (code-4815
            (new
             prop:field-id%
             (value code-4816)
             (field-id 'stretchable-width)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4818 (new prop:atom% (value '#f)))
           (code-4817
            (new
             prop:field-id%
             (value code-4818)
             (field-id 'stretchable-height)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4820 (new prop:atom% (value '#t)))
           (code-4819
            (new
             prop:field-id%
             (value code-4820)
             (field-id 'auto-resize)
             (option '#f)
             (necessary '#f)
             (no-code '#f)
             (hidden '#f)))
           (code-4786
            (new
             mred-id%
             (plugin (get-widget-plugin 'message))
             (mred-parent code-4787)
             (properties
              (list
               (cons 'id code-4788)
               (cons 'code-gen-class code-4790)
               (cons 'label code-4792)
               (cons 'style code-4799)
               (cons 'font code-4801)
               (cons 'enabled code-4805)
               (cons 'vert-margin code-4807)
               (cons 'horiz-margin code-4809)
               (cons 'min-width code-4811)
               (cons 'min-height code-4813)
               (cons 'stretchable-width code-4815)
               (cons 'stretchable-height code-4817)
               (cons 'auto-resize code-4819))))))
      (list code-4786)))))