Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

slightly smaller button for Andy's widget

increased size of new window to fit all those buttons on one row
bumped all dependencies in project.clj to the respective latest and greatest
  • Loading branch information...
commit 12b6d923b36c47cfc114609c36b56b8ffad93c88 1 parent 0684276
@franks42 authored
View
13 project.clj
@@ -3,17 +3,18 @@
:url "https://github.com/franks42/clj-ns-browser"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}
- :dependencies [[org.clojure/clojure "1.3.0"]
- [franks42/seesaw "1.4.2-SNAPSHOT"]
- [org.clojure/tools.namespace "0.1.2"]
+ :dependencies [[org.clojure/clojure "1.4.0"]
+ [seesaw "1.4.2"]
+ ;;[franks42/seesaw "1.4.2-SNAPSHOT"]
+ [org.clojure/tools.namespace "0.1.3"]
[clj-info "0.2.3"]
[org.clojure/tools.trace "0.7.3"]
[clojure-complete "0.2.1" :exclusions [org.clojure/clojure]]
;;[org.fife.ui/rsyntaxtextarea "2.0.3"]
- [org.thnetos/cd-client "0.3.4"]]
- :dev-dependencies [[lein-marginalia "0.6.0"]
+ [org.thnetos/cd-client "0.3.5"]]
+ :dev-dependencies [[lein-marginalia "0.7.1"]
;[franks42/debug-repl "0.3.1-FS"]
- [codox "0.5.0"]]
+ [codox "0.6.1"]]
:jvm-opts ~(if (= (System/getProperty "os.name") "Mac OS X") ["-Xdock:name=Clj-NS-Browser"] [])
:java-source-paths ["src"]
:java-source-path "src"
View
2  src/clj_ns_browser/browser.clj
@@ -622,7 +622,7 @@
(config! (id :vars-entries-lbl) :text "0")
;; doc
(config! (id :doc-tf) :text "")
- (config! (id :doc-ta) :text " ")
+ (config! (id :doc-ta) :text " ")
(selection! (id :ns-cbx) "loaded")
(selection! (id :vars-cbx) "Vars - public")
(selection! (id :doc-lb) "Doc")))
View
3  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
Please sign in to comment.
Something went wrong with that request. Please try again.