Hello, Swing(Tcl/Java) World!

Posted on 12月 14th, 2012 by cx20

Swing(Tcl/Java)

Swing は AWT(Abstract Window Toolkit) を拡張したものであり Java で GUI を扱うためのライブラリである。
J2SE 1.2 以降は AWT よりも Swing が使われることが多くなっている。
以下は Tcl/Java による Swing の使用例となっている。

ソースコード

package require java
 
java::import javax.swing.JFrame
java::import javax.swing.JLabel
 
set frame [java::new JFrame] 
$frame setDefaultCloseOperation [java::field JFrame EXIT_ON_CLOSE]
$frame setTitle "Hello, World"
$frame setSize 640 480
set label [java::new JLabel "Hello, Swing World!"] 
$label setVerticalAlignment [java::field JLabel TOP]
$frame add $label
$frame setVisible true
 
vwait done

実行方法

C:¥> jaclsh Hello.tcl

実行結果

+------------------------------------------+
|Hello, World!                    [_][~][X]|
+------------------------------------------+
|Hello, Swing World!                       |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+

Tags:

Categories: Jacl, Java, Swing, Tcl/Java

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

WP-SpamFree by Pole Position Marketing