Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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
Andy Fingerhut 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
View
@@ -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.