0

我想打开一个对话框，并在对话框返回正常后处理数据。问题是提交对话框后没有调用 :success-fn 。这与按钮的侦听器有关。如果在没有监听器的情况下调用 connectDialog，则调用 :success-fn 的函数。

代码：

(def dbConnectionForm
  (grid-panel :columns 2
              :items ["Database Driver" (combobox :id :dbdriver :model ["postgresql" "mysql"])
                      "Database"        (text :id :dbname :text "postgres")
                      "Port"            (text :id :dbport :text "32768")
                      "Username"        (text :id :username :text "postgres")
                      "Password"        (text :id :password :text "postgres")]))

(defn connectionDialog []
  (print (-> (dialog
    :content dbConnectionForm
    :option-type :ok-cancel
    :type :plain
    :success-fn (fn [e] (print (value dbConnectionForm)))
    )pack! show!))
  )

(def connectButton (button :text "Connect"
                           :listen [:action (fn [e] (connectionDialog))]))
4

1 回答 1

1

这可能是因为您正在使用print. 将其更改为println或flush在print.

如果(value dbConnectionForm)返回一个较小的值（如转换为字符串时只有几个字符），并且不包含换行符，它可能不会提示 outstream 自动刷新，因此文本会卡在缓冲区中。

于 2018-01-03T14:17:40.157 回答