ステップ 1: 作業ディレクトリを作成します。Windows コマンド プロンプトを開きます。これはおそらく、スタート メニュー、[アクセサリ]、[コマンド プロンプト] の下にあります。コマンド「mkdir temp」を入力し、「cd temp」でこのディレクトリに移動します。
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\Owner>mkdir temp
C:\Documents and Settings\Owner>cd temp
C:\Documents and Settings\Owner\temp>
このディレクトリの場所をメモしておいてください。プロンプトですぐに教えてくれるはずです。
ステップ 2: 必要なファイルをダウンロードします。Tk (ラップされたアプリケーションの一部になる) を含むベース キット、 sdx.kit (ラップを実行するコマンドを含む tclkit)、および tclkit のコマンド ライン バージョン(そこからsdx.kit を作成) の3 つが必要です。実行されます)。
3 つのファイルをダウンロードし、作成した一時ディレクトリに配置します。厳密に言えば、これは必須ではありませんが、このチュートリアルをより簡単にします。このチュートリアルを簡単にするために、コマンド ライン tclkit の名前を変更します。
C:\Documents and Settings\Owner\temp>dir
Volume in drive C has no label.
Volume Serial Number is F434-9FD3
Directory of C:\Documents and Settings\Owner\temp
09/05/2009 04:32 PM <DIR> .
09/05/2009 04:32 PM <DIR> ..
09/05/2009 04:21 PM 105,528 sdx.kit
09/05/2009 04:31 PM 1,268,686 tclkit-win32.upx.exe
09/05/2009 04:27 PM 668,142 tclkitsh-win32.upx.exe
3 File(s) 2,042,356 bytes
2 Dir(s) 13,232,046,080 bytes free
C:\Documents and Settings\Owner\temp>rename tclkitsh-win32.upx.exe tclkit.exe
ステップ 3: すべてが機能していることを確認します。他の引数を指定せずに sdx.kit を実行します。少しのヘルプ情報が出力されます。
C:\Documents and Settings\Owner\temp>tclkit sdx.kit
Specify one of the following commands:
addtoc eval fetch ftpd httpd httpdist ls lsk
md5sum mkinfo mkpack mkshow mksplit qwrap ratarx rexecd
starsync sync tgz2kit treetime unwrap update version wrap
For more information, type: sdx.kit help ?command?
C:\Documents and Settings\Owner\temp>
ステップ 4: コード用のディレクトリを作成します。sdx は、「myapp」という名前のアプリケーションに「myapp.vfs」という名前のディレクトリが存在することを前提としています。
C:\Documents and Settings\Owner\temp>mkdir myapp.vfs
C:\Documents and Settings\Owner\temp>dir
Volume in drive C has no label.
Volume Serial Number is F434-9FD3
Directory of C:\Documents and Settings\Owner\temp
09/05/2009 04:37 PM <DIR> .
09/05/2009 04:37 PM <DIR> ..
09/05/2009 04:37 PM <DIR> myapp.vfs
09/05/2009 04:21 PM 105,528 sdx.kit
09/05/2009 04:31 PM 1,268,686 tclkit-win32.upx.exe
09/05/2009 04:27 PM 668,142 tclkit.exe
3 File(s) 2,042,356 bytes
3 Dir(s) 13,231,599,616 bytes free
C:\Documents and Settings\Owner\temp>
ステップ 5: コードを作成します。「main.tcl」という名前のファイルを作成し、myapp.vfs ディレクトリに配置します。メモ帳または選択したテキスト エディタを使用します。ファイルに次の内容を指定します。
package require Tk
label .l -text "Hello, world"
pack .l
myapp.vfs が次のようになっていることを確認します。
C:\Documents and Settings\Owner\temp>dir myapp.vfs
Volume in drive C has no label.
Volume Serial Number is F434-9FD3
Directory of C:\Documents and Settings\Owner\temp\myapp.vfs
09/05/2009 04:40 PM <DIR> .
09/05/2009 04:40 PM <DIR> ..
09/05/2009 04:40 PM 60 main.tcl
1 File(s) 60 bytes
2 Dir(s) 13,231,456,256 bytes free
ステップ 6: sdx を使用してコードをラップします。作業ディレクトリを元の一時ディレクトリに置き、次のコマンドを発行してコードをラップします。
C:\Documents and Settings\Owner\temp>tclkit sdx.kit wrap myapp -runtime tclkit-w
in32.upx.exe
1 updates applied
C:\Documents and Settings\Owner\temp>dir
Volume in drive C has no label.
Volume Serial Number is F434-9FD3
Directory of C:\Documents and Settings\Owner\temp
09/05/2009 04:43 PM <DIR> .
09/05/2009 04:43 PM <DIR> ..
09/05/2009 04:44 PM 1,272,604 myapp
09/05/2009 04:40 PM <DIR> myapp.vfs
09/05/2009 04:21 PM 105,528 sdx.kit
09/05/2009 04:31 PM 1,268,686 tclkit-win32.upx.exe
09/05/2009 04:27 PM 668,142 tclkit.exe
5 File(s) 3,315,000 bytes
3 Dir(s) 13,229,654,016 bytes free
ステップ 7: ラップされたファイルの名前を変更して、.exe サフィックスを付けます。sdx.kit により、「myapp」という名前のファイルが作成されているはずです。これを実行するには、名前を「myapp.exe」に変更する必要があります。これを実行したら、コマンド「myapp」を入力するか、エクスプローラ ウィンドウからアイコンをダブルクリックして実行できます。
C:\Documents and Settings\Owner\temp>rename myapp myapp.exe
C:\Documents and Settings\Owner\temp>myapp
すべてがうまくいけば、「Hello, world」というラベルの付いたウィンドウがポップアップするはずです。