Archive for 12月 14th, 2012

  1. 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!                       |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    |                                          |
    +------------------------------------------+