"Clipboard" (list (cons 'name "Clipboard") (cons 'parent-class container-classes) (cons 'code (lambda (parent-7901) (let* ((code-7903 parent-7901) (code-7905 (new prop:atom% (value 'vertical-panel-10845))) (code-7904 (new prop:field-id% (value code-7905) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-7907 (new prop:some-of% (value (list 'border)) (choices (list 'border 'deleted)))) (code-7906 (new prop:field-id% (value code-7907) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7909 (new prop:atom% (value '#t))) (code-7908 (new prop:field-id% (value code-7909) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7911 (new prop:atom% (value '0))) (code-7910 (new prop:field-id% (value code-7911) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7913 (new prop:atom% (value '0))) (code-7912 (new prop:field-id% (value code-7913) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7915 (new prop:atom% (value '0))) (code-7914 (new prop:field-id% (value code-7915) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7917 (new prop:atom% (value '0))) (code-7916 (new prop:field-id% (value code-7917) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7920 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-7921 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-7919 (new prop:group% (value (list code-7920 code-7921)))) (code-7918 (new prop:field-id% (value code-7919) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7923 (new prop:atom% (value '0))) (code-7922 (new prop:field-id% (value code-7923) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7925 (new prop:atom% (value '0))) (code-7924 (new prop:field-id% (value code-7925) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7927 (new prop:atom% (value '#t))) (code-7926 (new prop:field-id% (value code-7927) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7929 (new prop:atom% (value '#t))) (code-7928 (new prop:field-id% (value code-7929) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7902 (new mred-id% (plugin (get-widget-plugin 'vertical-panel)) (mred-parent code-7903) (properties (list (cons 'id code-7904) (cons 'style code-7906) (cons 'enabled code-7908) (cons 'vert-margin code-7910) (cons 'horiz-margin code-7912) (cons 'border code-7914) (cons 'spacing code-7916) (cons 'alignment code-7918) (cons 'min-width code-7922) (cons 'min-height code-7924) (cons 'stretchable-width code-7926) (cons 'stretchable-height code-7928))))) (code-7932 (new prop:atom% (value 'message-player-two-name))) (code-7931 (new prop:field-id% (value code-7932) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-7936 (new prop:atom% (value '"Player Two"))) (code-7937 (new prop:boolean% (value '#f) (label '"Image?"))) (code-7938 (new prop:file% (value '"#f"))) (code-7935 (new prop:group% (value (list code-7936 code-7937 code-7938)))) (code-7939 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-7934 (new prop:proc% (value code-7935) (prop-code code-7939))) (code-7933 (new prop:field-id% (value code-7934) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-7941 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-7940 (new prop:field-id% (value code-7941) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7944 (new prop:atom% (value (list '8 '#f 'default 'normal 'normal '#f 'default '#f)))) (code-7945 (new prop:code% (value list->font) (value-code 'list->font))) (code-7943 (new prop:font% (value code-7944) (prop-code code-7945))) (code-7942 (new prop:field-id% (value code-7943) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7947 (new prop:atom% (value '#t))) (code-7946 (new prop:field-id% (value code-7947) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7949 (new prop:atom% (value '2))) (code-7948 (new prop:field-id% (value code-7949) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7951 (new prop:atom% (value '2))) (code-7950 (new prop:field-id% (value code-7951) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7953 (new prop:atom% (value '0))) (code-7952 (new prop:field-id% (value code-7953) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7955 (new prop:atom% (value '0))) (code-7954 (new prop:field-id% (value code-7955) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7957 (new prop:atom% (value '#f))) (code-7956 (new prop:field-id% (value code-7957) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7959 (new prop:atom% (value '#f))) (code-7958 (new prop:field-id% (value code-7959) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7961 (new prop:atom% (value '#t))) (code-7960 (new prop:field-id% (value code-7961) (field-id 'auto-resize) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7930 (new mred-id% (plugin (get-widget-plugin 'message)) (mred-parent code-7902) (properties (list (cons 'id code-7931) (cons 'label code-7933) (cons 'style code-7940) (cons 'font code-7942) (cons 'enabled code-7946) (cons 'vert-margin code-7948) (cons 'horiz-margin code-7950) (cons 'min-width code-7952) (cons 'min-height code-7954) (cons 'stretchable-width code-7956) (cons 'stretchable-height code-7958) (cons 'auto-resize code-7960))))) (code-7964 (new prop:atom% (value 'canvas-reserve-two))) (code-7963 (new prop:field-id% (value code-7964) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-7966 (new prop:some-of% (value (list 'border)) (choices (list 'border 'control-border 'combo 'vscroll 'hscroll 'resize-corner 'gl 'no-autoclear 'transparent 'no-focus 'deleted)))) (code-7965 (new prop:field-id% (value code-7966) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7968 (new prop:code% (value (λ (canvas dc) (void))) (value-code '(λ (canvas dc) (void))))) (code-7967 (new prop:field-id% (value code-7968) (field-id 'paint-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7970 (new prop:atom% (value '"Canvas"))) (code-7969 (new prop:field-id% (value code-7970) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7972 (new prop:atom% (value '#f))) (code-7971 (new prop:field-id% (value code-7972) (field-id 'gl-config) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7974 (new prop:atom% (value '#t))) (code-7973 (new prop:field-id% (value code-7974) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7976 (new prop:atom% (value '0))) (code-7975 (new prop:field-id% (value code-7976) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7978 (new prop:atom% (value '0))) (code-7977 (new prop:field-id% (value code-7978) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7980 (new prop:atom% (value '48))) (code-7979 (new prop:field-id% (value code-7980) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7982 (new prop:atom% (value '48))) (code-7981 (new prop:field-id% (value code-7982) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7984 (new prop:atom% (value '#t))) (code-7983 (new prop:field-id% (value code-7984) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7986 (new prop:atom% (value '#f))) (code-7985 (new prop:field-id% (value code-7986) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7962 (new mred-id% (plugin (get-widget-plugin 'canvas)) (mred-parent code-7902) (properties (list (cons 'id code-7963) (cons 'style code-7965) (cons 'paint-callback code-7967) (cons 'label code-7969) (cons 'gl-config code-7971) (cons 'enabled code-7973) (cons 'vert-margin code-7975) (cons 'horiz-margin code-7977) (cons 'min-width code-7979) (cons 'min-height code-7981) (cons 'stretchable-width code-7983) (cons 'stretchable-height code-7985))))) (code-7989 (new prop:atom% (value 'pane-board))) (code-7988 (new prop:field-id% (value code-7989) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-7991 (new prop:atom% (value '0))) (code-7990 (new prop:field-id% (value code-7991) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7993 (new prop:atom% (value '0))) (code-7992 (new prop:field-id% (value code-7993) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7995 (new prop:atom% (value '0))) (code-7994 (new prop:field-id% (value code-7995) (field-id 'border) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7997 (new prop:atom% (value '0))) (code-7996 (new prop:field-id% (value code-7997) (field-id 'spacing) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8000 (new prop:one-of% (value 'center) (choices (list 'left 'center 'right)))) (code-8001 (new prop:one-of% (value 'top) (choices (list 'top 'center 'bottom)))) (code-7999 (new prop:group% (value (list code-8000 code-8001)))) (code-7998 (new prop:field-id% (value code-7999) (field-id 'alignment) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8003 (new prop:atom% (value '0))) (code-8002 (new prop:field-id% (value code-8003) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8005 (new prop:atom% (value '0))) (code-8004 (new prop:field-id% (value code-8005) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8007 (new prop:atom% (value '#t))) (code-8006 (new prop:field-id% (value code-8007) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8009 (new prop:atom% (value '#t))) (code-8008 (new prop:field-id% (value code-8009) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-7987 (new mred-id% (plugin (get-widget-plugin 'pane)) (mred-parent code-7902) (properties (list (cons 'id code-7988) (cons 'vert-margin code-7990) (cons 'horiz-margin code-7992) (cons 'border code-7994) (cons 'spacing code-7996) (cons 'alignment code-7998) (cons 'min-width code-8002) (cons 'min-height code-8004) (cons 'stretchable-width code-8006) (cons 'stretchable-height code-8008))))) (code-8012 (new prop:atom% (value 'canvas-reserve-one))) (code-8011 (new prop:field-id% (value code-8012) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-8014 (new prop:some-of% (value (list 'border)) (choices (list 'border 'control-border 'combo 'vscroll 'hscroll 'resize-corner 'gl 'no-autoclear 'transparent 'no-focus 'deleted)))) (code-8013 (new prop:field-id% (value code-8014) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8016 (new prop:code% (value (λ (canvas dc) (void))) (value-code '(λ (canvas dc) (void))))) (code-8015 (new prop:field-id% (value code-8016) (field-id 'paint-callback) (option '#t) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8018 (new prop:atom% (value '"Canvas"))) (code-8017 (new prop:field-id% (value code-8018) (field-id 'label) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8020 (new prop:atom% (value '#f))) (code-8019 (new prop:field-id% (value code-8020) (field-id 'gl-config) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8022 (new prop:atom% (value '#t))) (code-8021 (new prop:field-id% (value code-8022) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8024 (new prop:atom% (value '0))) (code-8023 (new prop:field-id% (value code-8024) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8026 (new prop:atom% (value '0))) (code-8025 (new prop:field-id% (value code-8026) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8028 (new prop:atom% (value '48))) (code-8027 (new prop:field-id% (value code-8028) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8030 (new prop:atom% (value '48))) (code-8029 (new prop:field-id% (value code-8030) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8032 (new prop:atom% (value '#t))) (code-8031 (new prop:field-id% (value code-8032) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8034 (new prop:atom% (value '#f))) (code-8033 (new prop:field-id% (value code-8034) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8010 (new mred-id% (plugin (get-widget-plugin 'canvas)) (mred-parent code-7902) (properties (list (cons 'id code-8011) (cons 'style code-8013) (cons 'paint-callback code-8015) (cons 'label code-8017) (cons 'gl-config code-8019) (cons 'enabled code-8021) (cons 'vert-margin code-8023) (cons 'horiz-margin code-8025) (cons 'min-width code-8027) (cons 'min-height code-8029) (cons 'stretchable-width code-8031) (cons 'stretchable-height code-8033))))) (code-8037 (new prop:atom% (value 'message-player-one-name))) (code-8036 (new prop:field-id% (value code-8037) (field-id 'id) (option '#t) (necessary '#f) (no-code '#t) (hidden '#f))) (code-8041 (new prop:atom% (value '"Player One"))) (code-8042 (new prop:boolean% (value '#f) (label '"Image?"))) (code-8043 (new prop:file% (value '#f))) (code-8040 (new prop:group% (value (list code-8041 code-8042 code-8043)))) (code-8044 (new prop:code% (value label-bitmap-proc) (value-code 'label-bitmap-proc))) (code-8039 (new prop:proc% (value code-8040) (prop-code code-8044))) (code-8038 (new prop:field-id% (value code-8039) (field-id 'label) (option '#f) (necessary '#t) (no-code '#f) (hidden '#f))) (code-8046 (new prop:some-of% (value (list)) (choices (list 'deleted)))) (code-8045 (new prop:field-id% (value code-8046) (field-id 'style) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8049 (new prop:atom% (value (list '8 'default 'normal 'normal '#f 'default '#f)))) (code-8050 (new prop:code% (value list->font) (value-code 'list->font))) (code-8048 (new prop:font% (value code-8049) (prop-code code-8050))) (code-8047 (new prop:field-id% (value code-8048) (field-id 'font) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8052 (new prop:atom% (value '#t))) (code-8051 (new prop:field-id% (value code-8052) (field-id 'enabled) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8054 (new prop:atom% (value '2))) (code-8053 (new prop:field-id% (value code-8054) (field-id 'vert-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8056 (new prop:atom% (value '2))) (code-8055 (new prop:field-id% (value code-8056) (field-id 'horiz-margin) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8058 (new prop:atom% (value '0))) (code-8057 (new prop:field-id% (value code-8058) (field-id 'min-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8060 (new prop:atom% (value '0))) (code-8059 (new prop:field-id% (value code-8060) (field-id 'min-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8062 (new prop:atom% (value '#f))) (code-8061 (new prop:field-id% (value code-8062) (field-id 'stretchable-width) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8064 (new prop:atom% (value '#f))) (code-8063 (new prop:field-id% (value code-8064) (field-id 'stretchable-height) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8066 (new prop:atom% (value '#t))) (code-8065 (new prop:field-id% (value code-8066) (field-id 'auto-resize) (option '#f) (necessary '#f) (no-code '#f) (hidden '#f))) (code-8035 (new mred-id% (plugin (get-widget-plugin 'message)) (mred-parent code-7902) (properties (list (cons 'id code-8036) (cons 'label code-8038) (cons 'style code-8045) (cons 'font code-8047) (cons 'enabled code-8051) (cons 'vert-margin code-8053) (cons 'horiz-margin code-8055) (cons 'min-width code-8057) (cons 'min-height code-8059) (cons 'stretchable-width code-8061) (cons 'stretchable-height code-8063) (cons 'auto-resize code-8065)))))) (list code-7902 code-7930 code-7962 code-7987 code-8010 code-8035)))))