                           :background bg-color
                           :items [search-input search-button] )]
                 :background bg-color)
-            (ss/horizontal-panel :items [ results result-properties ])]))
+            (ss/horizontal-panel :items [ wine-results wine-properties-table ])]))
 
 (show-window)
-;;
+
 (display container)
 
+;; (merge-with + wine-properties-size wine-results-size) ; only if inputs are maps
 
+;; (ss/config! wine-properties :visible? true)
 
 ;; (ss/listen window
 ;;   :component-resized (fn [event] (println event)))

(defn display [content]
  (ss/config! window :content content)   ; config! used to configuer frame, lbls etc
  content)

(def tool-bar (ss/toolbar :items ["File" "About"]))

(def title-lbl (ss/label "Catalog Search"))


   :class :label-input))


(def wine-results (ss/scrollable (ss/listbox :model results-model
                         :id :results
                         :background :white
                         :foreground :black
                         :border nil
                         ; todo: change color when selecting items form box,
;;                          using renderer/ :listen :selection
                         :listen [:selection
                                  (fn [event]
                                    (println "You selected " (ss/selection event)))]
;;                           :renderer (fn [item ev] (:Name item) )
                         )
                            :size wine-results-size
                            :border [2 "Results" 10]
                            ))


(defn render-property [item {:keys [value]}]
  ; todo clean this keys / value implementation
  (ss/config! item :background :white :foreground :black :border nil))

(def wine-properties-list
  (ss/scrollable
    (ss/listbox
      :id :wine-properties
      :model ["Description: Hello World" "Location: left right"]
      :border [1 14]
;;       :size [(- 400 20) :by (- max-height 30)]
      :background :white
      :renderer render-property)
    :size wine-properties-size
    :border nil))

(def wine-properties-table
  (ss/scrollable
    (ss/table
      :model [
               :columns ["prop-name" "value"]
               :rows [
                       ["desc" "it is"]
                       ["location" "PR"]
                       ]
               ]
;;       :border [1 14]
;;       :size [(- 400 20) :by (- max-height 30)]
      :background :white
;;       :renderer render-property
      )
    :size wine-properties-size
    :border nil))


(def container
