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 の使用例となっている。

    ソースコード

    Hello.tcl
    raw download
    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!                         |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
|                                          |
+------------------------------------------+