help.syntax help.topics inspector io io.streams.string io.styles
kernel literals math models namespaces prettyprint see sequences
tools.test ui.gadgets ui.gadgets.debug ui.gadgets.panes
-ui.gadgets.panes.private ;
+ui.gadgets.panes.private ui.theme ;
IN: ui.gadgets.panes.tests
: #children ( -- n ) "pane" get children>> length ;
T{ font
{ name $[ default-sans-serif-font-name ] }
{ size $[ default-font-size ] }
- { foreground
- T{ rgba
- { red 0.0 }
- { green 0.0 }
- { blue 0.0 }
- { alpha 1.0 }
- }
- }
- { background
- T{ rgba
- { red 1.0 }
- { green 1.0 }
- { blue 1.0 }
- { alpha 1.0 }
- }
- }
+ { foreground $[ text-color ] }
+ { background $[ content-background ] }
}
} [
<pane> current>> smash-line [ text>> ] [ font>> ] bi