Archive for 12月 13th, 2012

  1. Hello, AWT(Tcl/Java) World!

    Posted on 12月 13th, 2012 by cx20

    AWT(Tcl/Java)

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

    ソースコード

    Hello.tcl
    raw download
    package require java
 
java::import java.awt.Frame
java::import java.awt.Label
java::import java.awt.FlowLayout
 
set frame [java::new Frame] 
java::bind $frame windowClosing exit
$frame setTitle "Hello, World"
$frame setSize 640 480
$frame setLayout [java::new FlowLayout [java::field FlowLayout LEFT]]
set label [java::new Label "Hello, AWT World!"] 
$frame add $label
$frame setVisible true
 
vwait done

    実行方法

    C:¥> jaclsh hello.tcl

    実行結果

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