Paste: how to set the size?

Author: Erich Ocean
Mode: factor
Date: Sat, 21 May 2011 04:54:13
Plain Text | 
 <pile>
    "Hello" <label> add-gadget
    "Click me" [ drop beep ] <border-button> add-gadget
    <shelf>
        "A" <label>
            COLOR: red <solid> >>interior
            { 100 400 } >>dim ! DOES NOT WORK
        add-gadget
        "B" <label>
            COLOR: green <solid> >>interior
        add-gadget
        "C" <label>
            COLOR: blue <solid> >>interior
        add-gadget
    add-gadget
15 iota <border>
    COLOR: red <solid> >>boundary
"Test" open-window

Annotation: Fix

Author: Erich Ocean
Mode: factor
Date: Sat, 28 May 2011 20:57:45
Plain Text | 
<pile>
    "Hello" <label> add-gadget
    "Click me" [ drop beep ] <border-button> add-gadget
    <shelf>
        "A" <label>
            COLOR: red <solid> >>interior
            { 100 400 } >>pref-dim ! WORKS, thanks to Bei on IRC
        add-gadget
        "B" <label>
            COLOR: green <solid> >>interior
        add-gadget
        "C" <label>
            COLOR: blue <solid> >>interior
        add-gadget
    add-gadget
15 iota <border>
    COLOR: red <solid> >>boundary
"Test" open-window

Annotation: use a transparent background behind the text

Author: Erich Ocean
Mode: factor
Date: Sat, 28 May 2011 21:16:16
Plain Text | 
<pile>
    "Hello" <label> add-gadget
    "Click me" [ drop beep ] <border-button> add-gadget
    <shelf>
        "A" <label>
            COLOR: red <solid> >>interior
            { 100 400 } >>pref-dim
            dup font>> 0 0 0 0 <rgba> >>background drop ! (courtesy Blei)
            add-gadget
        "B" <label>
            COLOR: green <solid> >>interior
        add-gadget
        "C" <label>
            COLOR: blue <solid> >>interior
        add-gadget
    add-gadget
15 iota <border>
    COLOR: red <solid> >>boundary
"Test" open-window

New Annotation

Summary:
Author:
Mode:
Body: