ɥozɐʞıɥ

_ 昨夜

呑み過ぎたー

_ [モフ太] 朝散歩

二日酔いでフラフラ

先日散髪しました。ヲレも明日あたり散髪かのぉ

モフ太さんぽ posted by (C)ひかぞぉ

_ [買物][本][Design] カリグラフィーと装飾模様の素材集

ひかぞーが最近デザインに凝っています。

_ [モフ太] 夕方散歩

夕方は涼しい

モフ太さんぽ posted by (C)ひかぞぉ

_ [買物][本] 坂の上の雲（六）

この日から２週間ですね。通勤と今日のような二日酔いの日で読みました。

_ [Clojure] Swingなサンプル

core.clj

(ns swingsample.core
 (:gen-class)
 (:require [swingsample.sample :as sample]))
(defn -main[& args]
 (sample/show))

んでもってかーんたんなサンプル　

(ns swingsample.sample
 (:import [javax.swing JFrame JButton JPanel JOptionPane JLabel]
          [java.awt.event ActionListener]
          [java.awt Container BorderLayout]))
(defn show[]
 (let [frame (JFrame. "Title")
       button (JButton. "Push me")
       panel (JPanel.)]
   (.setBounds frame 100 100 500 500)
   (.setDefaultCloseOperation frame JFrame/EXIT_ON_CLOSE)
   (.add panel button)
   (.addActionListener button
    (reify ActionListener
      (actionPerformed [this e]
                       (let [label (JLabel. "Pushed")]
                         (JOptionPane/showMessageDialog frame label)))))
   (.. frame getContentPane (add panel BorderLayout/CENTER))
   (.setVisible frame true)))