0

私は clojure を初めて使用します (さらにシーソーを使用するのも初めてです) が、多くの Java の経験とかなりの量の Swing の経験があります。

いくつかのドロップダウン テキスト ボックスとスライダーを含むウィンドウを作成しようとしています。ただし、すべてのピースを (一度に 1 つではなく) 1 つのウィンドウに表示するのに問題があり、何らかの理由でスライダーが表示されません。

これに関する多くのチュートリアルを実際に見つけることができないため、明らかな何かが欠けている可能性があります。

これが私がやろうとしていることです...

    (defn window [cuisine-input rating-input location-slider]
        (seesaw/frame
        :title "Resturant Selector"
        :content (cuisine-input rating-input location-slider)
        :width 200
        :height 50
        :on-close :exit))


    (defn -main
    [& args]

        (def cuisine (seesaw/input "Please choose a type of cuisine: "
                           :choices ["Indian" "Japanese" "Chinese"
                                     "Burgers"]))

        (def rating (seesaw/input "Please choose the ideal rating: "
                        :choices ["1 star" "2 stars" "3 stars" "4 stars" 
                                  "5 stars"]))
        (def location (seesaw/slider 
                             :value 5 :min 0 :max 20 
                             :minor-tick-spacing 1 :major-tick-spacing 2 
                             :snap-to-ticks? true 
                             :paint-ticks? true :paint-labels? true))

        (def main-window (window cuisine rating location))
        (seesaw/pack! (window main-window))
        (seesaw/show! (window main-window))

)

私も次のようなことを試しました：

    (seesaw/frame :title "Resturant Selector" :on-close :exit
            :content (:items [ 
                     (seesaw/input "Please choose a type of cuisine: "
                           :choices ["Indian" "Japanese" "Chinese"
                                    "Burgers"])

                     (seesaw/input "Please choose the ideal rating: "
                        :choices ["1 star" "2 stars" "3 stars" "4 stars" 
                                  "5 stars"])

                     (seesaw/slider
                       :value 5 :min 0 :max 20
                       :minor-tick-spacing 1 :major-tick-spacing 2
                       :snap-to-ticks? true
                       :paint-ticks? true :paint-labels? true)]
                              )
            )
4

1 に答える 1

1

seesaw/inputは入力ダイアログを作成しますが、JComboBoxを作成します。ウィキには、ウィジェットの作成方法に関する便利なヘルプがあり、利用可能なウィジェットのリストはAPI docにあります。

フレームに複数のウィジェットを含めるには、コンテナが必要です。

したがって、特定の例では、次のようなものが必要になります。

(defn window [content]
  (seesaw/frame
    :title "Resturant Selector"
    :content content
    :width 200
    :height 50
    :on-close :close))

(defn -main
  [& args]
  (let [rating-label (seesaw/label :text "Please choose rating:")
        rating (seesaw/combobox :model ["1 star" "2 star"])
        location (seesaw/slider
                   :value 5 :min 0 :max 20
                   :minor-tick-spacing 1 :major-tick-spacing 2
                   :snap-to-ticks? true
                   :paint-ticks? true :paint-labels? true)

        main-window (window (seesaw/vertical-panel :items [rating-label rating location]))]
    (seesaw/invoke-later
      (seesaw/pack! main-window)
      (seesaw/show! main-window))))
于 2016-02-19T12:20:05.147 に答える