diff --git a/basis/ui/gadgets/lines/lines.factor b/basis/ui/gadgets/lines/lines.factor new file mode 100644 index 0000000000..4fce5b8396 --- /dev/null +++ b/basis/ui/gadgets/lines/lines.factor @@ -0,0 +1,17 @@ +! Copyright (C) 2015 Nicolas PĂ©net. +! See http://factorcode.org/license.txt for BSD license. +USING: accessors colors.constants kernel ui.pens.solid ; +IN: ui.gadgets.lines + + + +: with-lines ( track -- track ) + dup orientation>> >>gap + line-color >>interior ; + +: white-interior ( track -- track ) + COLOR: white >>interior ;