   (if-let [coord-map (get-property [] :coord-map)]
     (if-let [coord ((:id component) coord-map)]
       (let [ps (get-property [] :clip-size)
-            btop (+ 0.375 (awt/px) (awt/px)) ;TODO see 0.375 - window border
-            bbtm (+ (awt/px) (awt/px))
-            bleft (+ (awt/px) (awt/px))
-            bright(+ (awt/px) (awt/px))]
+            btop (+ 0.375 gap) ;TODO see 0.375 - window border
+            bbtm gap
+            bleft gap
+            bright gap]
         (m/translation
           (d/round-granular (+ bleft gap (* (:x coord) (- (m/x ps) bleft bright))) (awt/px))
           (d/round-granular (+ btop gap (* (:y coord) (- (m/y ps) btop bbtm))) (awt/px))))

  (:import (java.util.regex Pattern)))


(def gap (* (awt/px) 2))

(def component-min-size (m/defpoint 0.375 0.375))


  (if-let [coord-map (get-property [] :coord-map)]
    (if-let [coord ((:id component) coord-map)]
      (let [ps (get-property [] :clip-size)
            btop (+ 0.375 gap) ;TODO see 0.375 - window border
            bbtm gap
            bleft gap
            bright gap]
        (m/defpoint
          (d/round-granular (- (* (:w coord) (- (m/x ps) bleft bright)) gap gap) (awt/px))
          (d/round-granular (- (* (:h coord) (- (m/y ps) btop bbtm)) gap gap) (awt/px))))
