ui.gadgets.flex-border: new vocab

diff --git a/extra/ui/gadgets/flex-borders/authors.txt b/extra/ui/gadgets/flex-borders/authors.txt
new file mode 100644 (file)
index 0000000..8e1955f
--- /dev/null
+++ b/extra/ui/gadgets/flex-borders/authors.txt
@@ -0,0 +1 @@
+Alexander Ilin

diff --git a/extra/ui/gadgets/flex-borders/flex-borders.factor b/extra/ui/gadgets/flex-borders/flex-borders.factor
new file mode 100644 (file)
index 0000000..97f2bf8
--- /dev/null
+++ b/extra/ui/gadgets/flex-borders/flex-borders.factor
@@ -0,0 +1,20 @@
+! Copyright (C) 2019 Alexander Ilin.
+USING: accessors arrays kernel locals math sequences
+ui.gadgets ui.gadgets.tracks ;
+IN: ui.gadgets.flex-borders
+
+<PRIVATE
+
+:: border ( gadget dim orientation -- gadget' )
+    orientation <track>
+        <gadget> dim >>dim f track-add
+        gadget             1 track-add
+        <gadget> dim >>dim f track-add ;
+
+PRIVATE>
+
+: <flex-border> ( gadget gaps -- gadget' )
+    first2 [| w h |
+        w 0 > [ w 0 2array horizontal border ] when
+        h 0 > [ 0 h 2array vertical   border ] when
+    ] call ;

diff --git a/extra/ui/gadgets/flex-borders/summary.txt b/extra/ui/gadgets/flex-borders/summary.txt
new file mode 100644 (file)
index 0000000..7218ae4
--- /dev/null
+++ b/extra/ui/gadgets/flex-borders/summary.txt
@@ -0,0 +1 @@
+A border implementation that doesn't fixate the contained gadget size