From 8c0fbca3604f484aaafee34750d97a5a91ff4982 Mon Sep 17 00:00:00 2001
From: nicolas-p <z.nicolas@gmail.com>
Date: Sun, 19 Jul 2015 21:34:29 +0200
Subject: [PATCH] New lines dictionary

To draw 1-px grey lines between panes
---
 basis/ui/gadgets/lines/lines.factor | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 basis/ui/gadgets/lines/lines.factor

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
+
+<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 ;