Archive for 12月 15th, 2012

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

    Posted on 12月 15th, 2012 by cx20

    SWT(Tcl/Java)

    SWT(Standard Widget Toolkit) は Java で GUI を扱うためのライブラリである。
    IBM により AWT や Swing を置き換える目的で作成された。
    以下は Tcl/Java による SWT の使用例となっている。

    ソースコード

    package require java
     
    java::import org.eclipse.swt.SWT
    java::import org.eclipse.swt.widgets.Display
    java::import org.eclipse.swt.widgets.Shell
    java::import org.eclipse.swt.widgets.Label
    java::import org.eclipse.swt.layout.FillLayout
     
    set display [java::new Display]
    set shell [java::new Shell $display]
    $shell setText "Hello, World"
     
    set layout [java::new FillLayout [java::field SWT VERTICAL]]
    $shell setLayout $layout
     
    set label [java::new Label $shell [java::field SWT BORDER]]
    $label setText "Hello, SWT World!"
     
    $shell setSize 640 480
    $shell open
     
    while { ![$shell isDisposed] } {
        if { ![$display readAndDispatch] } {
            $display sleep
        }
    }
     
    $display dispose

    実行方法

    C:¥> SET CLASSPATH=bsh-2.0b4.jar;org.eclipse.swt.win32.win32.x86_3.6.1.v3655c.jar;%CLASSPATH%
    C:¥> jaclsh hello.bsh

    実行結果

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