 : apply-background-style ( style gadget -- style gadget )
     background [ <solid> >>interior ] apply-style ;
 
-: style-label ( style gadget -- gadget )
+: apply-character-style ( style gadget -- gadget )
     apply-font-style
     apply-background-style
+    apply-image-style
     apply-presentation-style
-    apply-image-style
     nip ; inline
-
-: <styled-label> ( style text -- gadget )
-    <label> style-label ;
 
 ! Paragraph styles
 

} set-gestures

GENERIC: content-gadget ( object -- gadget/f )
M: object content-gadget drop f ;

    output current input last-line prototype scrolls?
    selection-color caret mark selecting? ;

TUPLE: pane-stream pane parent ;
INSTANCE: pane-stream output-stream

: <pane-stream> ( pane -- pane-stream )
    f pane-stream boa ;

M: pane-stream stream-element-type drop +character+ ;

DEFER: write-gadget

<PRIVATE

