«前の日記(2017-05-22) 最新 次の日記(2017-05-28)» 編集

ɥozɐʞıɥ


2017-05-27 昨夜呑み過ぎ [長年日記]

_ 昨夜

呑み過ぎたー

_ [モフ太] 朝散歩

二日酔いでフラフラ

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

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

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

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

_ [モフ太] 夕方散歩

夕方は涼しい

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

_ [買物][] 坂の上の雲(六)

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

_ [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)))



2002|09|10|11|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|07|08|09|10|11|
«前の日記(2017-05-22) 最新 次の日記(2017-05-28)» 編集