ホーム > Uncategorized > 32. Clojure: javax.swing.JList を使う

32. Clojure: javax.swing.JList を使う

Swingの部品を使う練習 その1

;; javax.swing.JList sample
(import '(javax.swing JFrame JPanel JOptionPane JScrollPane JList))
(import '(javax.swing.event ListSelectionListener))
(import '(java.awt Dimension BorderLayout))

(defn msgbox [frame msg]
  (JOptionPane/showMessageDialog frame msg "Info" JOptionPane/INFORMATION_MESSAGE))

(let [data ["Blue" "Green" "Red" "White" "Black"]
      list (JList. (into-array data))
      frame (JFrame.)
      scrollpane (JScrollPane.)
      panel (JPanel.)]
  (.addListSelectionListener
   list
   (proxy [ListSelectionListener] []
     (valueChanged [e]
                   (let [idx (.getSelectedIndex list)]
                     (msgbox frame idx)))))
  (.setView (.getViewport scrollpane) list)
  (.setPreferredSize scrollpane (Dimension. 200 80))
  (.add panel scrollpane)
  (.add (.getContentPane frame) panel BorderLayout/CENTER)
  (.setDefaultCloseOperation frame JFrame/DISPOSE_ON_CLOSE) ; for running on SLIME
  ;;  (.setDefaultCloseOperation frame JFrame/EXIT_ON_CLOSE)
  (.setTitle frame "javax.swing.JList sample")
  (.setBounds frame 10 10 250 130)
  (.setVisible frame true))
広告
タグ:
  1. まだコメントはありません。
  1. No trackbacks yet.

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト /  変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト /  変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト /  変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト /  変更 )

%s と連携中

%d人のブロガーが「いいね」をつけました。