From 8a1c75fbed5e7826e819a9bfc3ae4c76d7592dcd Mon Sep 17 00:00:00 2001
From: nicolas-p <z.nicolas@gmail.com>
Date: Sat, 18 Jul 2015 13:15:42 +0200
Subject: [PATCH] solid-underlined

New pen that acts like solid but only draws the bottom border
---
 basis/ui/pens/solid/solid.factor | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/basis/ui/pens/solid/solid.factor b/basis/ui/pens/solid/solid.factor
index 0cfc48edc1..3e3f1a040b 100644
--- a/basis/ui/pens/solid/solid.factor
+++ b/basis/ui/pens/solid/solid.factor
@@ -30,3 +30,18 @@ M: solid draw-boundary
 
 M: solid pen-background
     nip color>> dup alpha>> 1 number= [ drop transparent ] unless ;
+
+TUPLE: solid-underlined < solid ;
+
+: <solid-underlined> ( color -- solid-underlined ) 
+    solid-underlined new swap >>color ;
+
+<PRIVATE
+
+: bottom-vertices-only ( vertices -- bottom-vertices )
+    { 6 7 4 5 4 5 6 7 6 7 } swap nths ;
+
+PRIVATE>
+
+M: solid-underlined boundary-vertices>>
+    call-next-method bottom-vertices-only ;