Skip to content
This repository
Browse code

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 44051d2ccead60dbd34c1288e96b56ffa05eac11 1 parent 80a7d14
Andy Fingerhut jafingerhut authored

Showing 1 changed file with 1 addition and 21 deletions. Show diff stats Hide diff stats

  1. +1 21 src/clj_ns_browser/browser.clj
22 src/clj_ns_browser/browser.clj
@@ -602,27 +602,7 @@
602 602 (config! (id :ns-lb) :selection-mode :multi-interval) ;; experimental...
603 603 (config! (id :vars-lb) :model [])
604 604 (config! (id :ns-entries-lbl) :text "0")
605   - (config! (id :doc-lb)
606   - :model doc-lb-value-list
607   - :drag-enabled? true
608   - :drop-mode :insert
609   - :transfer-handler
610   - (seesaw.dnd/default-transfer-handler
611   - :import [seesaw.dnd/string-flavor
612   - (fn [{:keys [target data drop? drop-location] :as m}]
613   - ;; Ignore anything dropped onto the list that is
614   - ;; not in the original set of list elements.
615   - (if (and drop?
616   - (:insert? drop-location)
617   - (:index drop-location)
618   - (doc-lb-value-set data))
619   - (let [new-order (list-with-elem-at-index
620   - @doc-lb-cur-order data
621   - (:index drop-location))]
622   - (reset! doc-lb-cur-order new-order)
623   - (config! target :model new-order))))]
624   - :export {:actions (constantly :copy)
625   - :start (fn [c] [seesaw.dnd/string-flavor (selection c)])}))
  605 + (config! (id :doc-lb) :model doc-lb-value-list)
626 606 (config! (id :edit-btn) :enabled? false)
627 607 (config! (id :browse-btn) :enabled? false)
628 608 (config! (id :clojuredocs-online-rb) :selected? true)

0 comments on commit 44051d2

Please sign in to comment.
Something went wrong with that request. Please try again.