From 2babb53776bc76a50b2621a02750fe0c389bf644 Mon Sep 17 00:00:00 2001
From: Kimo Knowles <kimo.knowles@day8.com.au>
Date: Fri, 9 Aug 2024 01:39:15 +0200
Subject: [PATCH] [single-dropdown] Fix ref fn

---
 CHANGELOG.md             | 5 +++++
 src/re_com/dropdown.cljs | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index c5e770cf..cb6f9ca0 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,11 @@
 
 > Committed but unreleased changes are put here, at the top. Older releases are detailed chronologically below. 
 
+## 2.21.18 (2024-08-09)
+
+#### Fixed
+- `single-dropdown` - `:can-drop-above?` now works again.
+
 ## 2.21.17 (2024-08-07)
 
 #### Added
diff --git a/src/re_com/dropdown.cljs b/src/re_com/dropdown.cljs
index 6c1fb76a..f7b58699 100644
--- a/src/re_com/dropdown.cljs
+++ b/src/re_com/dropdown.cljs
@@ -858,6 +858,7 @@
          free-text-sel-range (reagent/atom nil)
          focus-free-text     #(when @free-text-input (.focus @free-text-input))
          node                (reagent/atom nil)
+         ref-callback        #(reset! node %)
          focus-anchor        #(some-> @node (.getElementsByClassName "chosen-single") (.item 0) (.focus))]
      (load-choices "" regex-filter? false)
      (fn single-dropdown-render
@@ -1017,12 +1018,11 @@
                                   :style (merge (flex-child-style (if width "0 0 auto" "auto"))
                                                 (align-style :align-self :start)
                                                 {:width width}
-                                                style)
-                                  :ref   #(reset! node %)}
+                                                style)}
                                  (when tooltip
                                    {:on-mouse-over (handler-fn (reset! over? true))
                                     :on-mouse-out (handler-fn (reset! over? false))})
-                                 (->attr args)
+                                 (->attr (assoc-in args [:attr :ref] ref-callback))
                                  attr)
                                 anchor
                                 (when (and @drop-showing? (not disabled?))