Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

Doc listbox basically works, without flexible ordering. Poor layout.

You can select an arbitrary set of things to enable showing, rather
than only one!
  • Loading branch information...
commit 674e34f9da151b4b6ea349456ae1a1c7b31dbc67 1 parent 262ac2b
@jafingerhut jafingerhut authored
Showing with 1 addition and 21 deletions.
  1. +1 −21 src/clj_ns_browser/browser.clj
22 src/clj_ns_browser/browser.clj
@@ -601,27 +601,7 @@
(config! (id :ns-lb) :selection-mode :multi-interval) ;; experimental...
(config! (id :vars-lb) :model [])
(config! (id :ns-entries-lbl) :text "0")
- (config! (id :doc-lb)
- :model doc-lb-value-list
- :drag-enabled? true
- :drop-mode :insert
- :transfer-handler
- (seesaw.dnd/default-transfer-handler
- :import [seesaw.dnd/string-flavor
- (fn [{:keys [target data drop? drop-location] :as m}]
- ;; Ignore anything dropped onto the list that is
- ;; not in the original set of list elements.
- (if (and drop?
- (:insert? drop-location)
- (:index drop-location)
- (doc-lb-value-set data))
- (let [new-order (list-with-elem-at-index
- @doc-lb-cur-order data
- (:index drop-location))]
- (reset! doc-lb-cur-order new-order)
- (config! target :model new-order))))]
- :export {:actions (constantly :copy)
- :start (fn [c] [seesaw.dnd/string-flavor (selection c)])}))
+ (config! (id :doc-lb) :model doc-lb-value-list)
(config! (id :edit-btn) :enabled? false)
(config! (id :browse-btn) :enabled? false)
(config! (id :clojuredocs-online-rb) :selected? true)
Please sign in to comment.
Something went wrong with that request. Please try again.