如何通过箭头键禁用 JSpinner 的键盘控制？

Question

这是一个关于 Java Swing 的 Clojure 问题，因此任何一个阵营的人都可以帮助我。

我正在为我的工作开发一个水文数据可视化程序，我一直在努力解决这个问题。

我的应用程序基于显示图形降水信息。典型用途包括显示美国东南部 24 小时降雨数据等任务，程序的内部状态会跟踪结束时间和累积降雨的小时数。

主用户界面由一个主绘图窗格、几个微调器和一个状态栏（如下所示）组成。微调器及其标签包含在它们自己的 JPanel 中，但包含绘图窗格的 JTextField 和 JPanel 在 contentPane 中是顶级的

键绑定的定义格式如下：

"control S" {:type :function
            :config :configure-shapefiles}
"control Z" {:type :function
             :config :configure-zooms}
"NUMPAD0" {:type :function
          :config :toggle-grids-on}
"VK_DOWN" {:type :function
          :config :prev-day}
"VK_UP" {:type :function
         :config :next-day}
"VK_RIGHT" {:type :function
           :config :next-hour}
"VK_LEFT" {:type :function
           :config :prev-hour}}

此配置映射转换为 JFrame 内容窗格的键绑定，如下所示：

(defn- set-keystroke-shortcuts
  []
  (let [inputmap (.getInputMap (.getContentPane frame) JComponent/WHEN_IN_FOCUSED_WINDOW)
        actionmap (.getActionMap (.getContentPane frame))
        config (merge (read-clj "config/keybindings/site.clj")
                  (if (.exists (File. "config/keybindings/user.clj"))
                    (if-let [my-config ((read-clj "config/keybindings/user.clj") me)]
                       my-config {})))]
    (doseq [[k {shortcut-type :type shortcut-info :config}] config
           :let [sym-name (str (gensym))
                 fun (case shortcut-type
                          :plot #(process-display-config shortcut-info)
                          :function (dealias-keystroke-config-keyword shortcut-info)
                          #{})]]

      (.put inputmap (KeyStroke/getKeyStroke k) sym-name)
      (.put actionmap sym-name (action fun)))))

为了节省空间，我没有包含 dealias-keystroke-config-keyword 和 process-display-config 的代码。我将澄清 :next-day、:prev-day、:next-hour 和 :prev-hour 关键字导致分析的结束时间分别移动 24、-24、1 和 -1 小时。

我遇到的问题是我尝试将这些命令绑定到箭头键不起作用。每当我将它们绑定到其他非箭头键时，一切都会按计划进行。但是当我尝试将它们绑定到箭头键时，“X：”微调器会拦截键事件并且不会触发......相反，UP 和 DOWN 只会导致 X 微调器上下移动。

如果我禁用微调器，键绑定会起作用，但这会破坏微调器的用途。如果我禁用微调器，按箭头键，然后重新启用它们，那么它可以工作，但我必须通过 REPL 手动禁用它们，然后返回应用程序窗口，按箭头键，然后重新启用它们我的 REPL。不是解决方案。

尝试从微调器中删除键绑定不会产生太多效果 - 它说没有键绑定！

(.allKeys (.getInputMap x-panes-spinner)) => nil

在这方面，遍历 spinners 的孩子也没有帮助：

(doseq [comp (.getComponents x-panes-spinner)
        k (.allKeys (.getInputMap comp))]
   (prn [(.getName comp) (.getKeyCode k)]))

  => ["Spinner.nextButton" 32]
  => ["Spinner.nextButton" 32]
  => ["Spinner.nextButton" 10]
  => ["Spinner.nextButton" 10]
  => ["Spinner.previousButton" 32]
  => ["Spinner.previousButton" 32]
  => ["Spinner.previousButton" 10]
  => ["Spinner.previousButton" 10]

32 和 10 对应于空格键和输入键，所以这对我没有帮助。

我相当有信心我可以添加一个 MouseListener 以仅在输入微调器时启用/禁用它们，但我宁愿阻止它们对箭头按钮事件做出反应，而不是让它们动态启用和禁用。

有什么想法吗，StackOverflow？我会在这个方面不知所措。

Answer 1

尝试从微调器中删除键绑定不会产生太多效果 - 它说没有键绑定！

查看Key Bindings 以获取每个 Swing 组件的所有绑定列表。

随后将禁用微调器的绑定：

InputMap im = spinner.getInputMap(JComponent.WHEN_ANCESTOR_OF_FOCUSED_COMPONENT);
im.put(KeyStroke.getKeyStroke( "DOWN"), "none");
im.put(KeyStroke.getKeyStroke( "UP"), "none");