 { $class-description "Class of input text presentations. Instances can be used passed to " { $link write-object } " to output a clickable piece of input. Input text presentations are created by calling " { $link <input> } "." }
 { $examples
     "This presentation class is used for the code examples you see in the online help:"
-    { $code "\"2 3 + .\" dup <input> write-object nl" }
+    { $code
+        "USING: io io.styles kernel ;"
+        "\"2 3 + .\" dup <input> write-object nl"
+    }
 } ;
 
 HELP: <input>

{ $link make-span-stream } ", "
{ $link make-block-stream } " and "
{ $link make-cell-stream } "."
{ $subsections plain-writer } ;
{ $description "Character style. Font style, one of " { $link plain } ", " { $link bold } ", " { $link italic } ", or " { $link bold-italic } "." }
{ $examples
    "This example outputs text in all three styles:"
    { $code
        "USING: accessors hashtables io io.styles kernel sequences ;"
        "{ plain bold italic bold-italic }"
        "[ [ name>> ] keep font-style associate format nl ] each"
    }
}  ;

HELP: presented
{ $description "Character and paragraph style. An object associated with the text. In the Factor UI, this is shown as a clickable presentation of the object; left-clicking invokes a default command, and right-clicking shows a menu of commands." } ;

HELP: page-color
{ $description "Paragraph style. An instance of " { $link color } ". See " { $link "colors" } "." }
{ $examples
    { $code
        "USING: colors io io.styles ;"
        "H{ { page-color T{ rgba f 1 0.8 0.5 1 } } }"
        "[ \"A background\" write ] with-nesting nl"
    }
} ;

HELP: border-color
{ $description "Paragraph style. An instance of " { $link color } ". See " { $link "colors" } "." }
{ $examples
    { $code
        "USING: colors io io.styles ;"
        "H{ { border-color T{ rgba f 1 0 0 1 } } }"
        "[ \"A border\" write ] with-nesting nl"
    }
} ;

HELP: inset
{ $description "Paragraph style. A pair of integers representing the number of pixels that the content should be inset from the border. The first number is the horizontal inset, and the second is the vertical inset." }
{ $examples
    { $code
        "USING: io io.styles ;"
        "H{ { inset { 10 10 } } }"
        "[ \"Some inset text\" write ] with-nesting nl"
    }
} ;

HELP: wrap-margin
