Permalink
Browse files

Reduce the button above the documentation pane a bit.

  • Loading branch information...
1 parent f9f0481 commit 81fb831dbdcbf61384fd909e19f8c7a361db1828 @jafingerhut jafingerhut committed Sep 7, 2012
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/clj_ns_browser/toggle_listbox.clj
@@ -44,6 +44,9 @@
buttons))
max-height (apply max (map #(-> % :button-sel .getPreferredSize .height)
buttons))
+ ;; Reduce the sizes a bit.
+ max-width (int (* 0.85 max-width))
+ max-height (int (* 0.85 max-height))
label-to-icon-sel (into {}
(map (fn [{:keys [label button-sel]}]
[label

0 comments on commit 81fb831

Please sign in to comment.