 
 (def bg-color "#fdfdfd")
 
+(def max-height 550)
+(def app-height 600)
+
 (ss/native!)
 
 (def window (ss/frame :title "Wine Finder",
 ;;            :on-close :exit,    ; add this when done...?
 ;;                       :minimum-size [800 :by 400]
-;;                       :resizable? false
-                      :size [900 :by 500]
+                      :resizable? false
+                      :size [950 :by app-height]
               ))
 
 (defn display [content]

    :id :result-properties
    :model ["Description: Hello World" "Location: left right"]
    :border [2 "Properties" 10]
    :minimum-size [600 :by 100]
    )
  )

(def container
  (ss/border-panel
    :west (ss/flow-panel
            :size [200 :by 300]
            :items [(ss/flow-panel
                      :size [98 :by 110]
                      :items [wine-com-img title-lbl]
                      :background bg-color
                      )
                    (ss/grid-panel
                      :rows 2
                      :vgap 3
                      :background bg-color
                      :items [search-input search-button]
                      )]
            :background bg-color)
    :center results
    :east result-properties
    ))

(show-window)


                         :border [2 "Results" 10]
                         :background :white
                         :foreground :black
                         :size [300 :by max-height]
                         ))

(def result-properties
