New lines dictionary

To draw 1-px grey lines between panes
2015-07-19 21:34:29 +02:00 · 2015-07-19 21:34:29 +02:00 · 8c0fbca360
parent c75f6155cf
commit 8c0fbca360
1 changed files with 17 additions and 0 deletions
--- a/basis/ui/gadgets/lines/lines.factor
+++ 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
+
+<PRIVATE
+
+CONSTANT: line-color COLOR: grey75
+
+PRIVATE>
+
+: with-lines ( track -- track )
+    dup orientation>> >>gap 
+    line-color <solid> >>interior ;
+
+: white-interior ( track -- track )
+    COLOR: white <solid> >>interior ;