 ;;;          - either equally if nothing else specified
 ;;;          - or according to specified weights (may be specified with digits or
 ;;;            with smile lengths like :--- or :|||)
-
-
-
-;(fg/defevolverfn :position-matrix)
-;
-;(fg/defevolverfn :clip-size)
-

;  ([cfg stcher bgner sfn ])
;  ([cfg] (map-direction cfg \- \< m/x)))

(fg/defaccessorfn map-direction [component cfg stcher bgner sfn]
  (let [stretches? (fn [element] (true? (and (:flags element) (.contains (:flags element) (str stcher)))))
        flags (map #(assoc % :stch-weight (count (filter (fn [f] (= f stcher)) (:flags %)))) (cfg->flags cfg))
        total-stch-weight (reduce + (map #(:stch-weight %) flags))
        dir (mapv #(assoc %
                         :min (get-child-minimum-size component (:element %))


(ns ^{:doc    "Utilities for arranging container component layout."
      :author "Denys Lebediev"}
  flatgui.layout
    (:require [flatgui.base :as fg]
      [flatgui.awt :as awt]
      [flatgui.util.matrix :as m])
  (:import (java.util.regex Pattern)))


