Tcl/Tkのソースを表示

{{プログラミング言語}}
{{Infobox Software
| 名称 = {{lang|en|Tcl/Tk}}
| ロゴ = 
| スクリーンショット = 
| 説明文 = 
| 開発元 = 
| 最新版 = 8.6.8<ref>{{cite web |url=http://www.tcl.tk/software/tcltk/8.6.html |title=Tcl/Tk 8.6 |accessdate=2018/06/02}}</ref>
| 最新版発表日 = {{Release date|2017|12|22}}
| 最新評価版 = 
| 最新評価版発表日 = 
| 対応OS = [[クロスプラットフォーム]]
| 対応プラットフォーム = [[クロスプラットフォーム]]
| 種別 = 
| ライセンス = [[オープンソース]]
| 公式サイト = http://www.tcl.tk/
}}
{{Infobox programming language
| name                   = {{lang|en|Tcl}}
| logo                   = 
| paradigm               = [[手続き型]]
| released               = 1988年
| designer               = {{lang|en|John Ousterhout}}
| developer              = {{lang|en|John Ousterhout}}、{{lang|en|Tcl}} コアチーム
| latest_release_version = 8.6<ref>{{cite web | url=http://www.tcl.tk/software/tcltk/8.6.html | title=Latest Release: Tcl/Tk 8.6.0 (Dec 20, 2012) | date=2012-12-20 | accessdate=2013-01-04}}</ref>
| latest_release_date    = {{release date|2012|07|27}}
| typing                 = [[動的型付け]]
| implementations        = {{lang|en|ActiveTcl}}
| dialects               = 
| influenced_by          = {{lang|en|[[AWK]]}}、{{lang|en|[[LISP]]}}
| influenced             = {{lang|en|[[Windows PowerShell|PowerShell]]}}<ref>[http://blogs.msdn.com/powershell/archive/2008/05/25/powershell-and-wpf-wtf.aspx Windows PowerShell : PowerShell and WPF: WTF]</ref>、{{lang|en|Tea}}
| website                = [http://tcl.sourceforge.net/ <tt>tcl.sourceforge.net</tt>]
| file_ext               = .tcl
}}
{{読み仮名|{{lang|en|'''Tcl/Tk'''}}|ティクル・ティーケー}}は、[[スクリプト言語]] {{lang|en|'''Tcl'''}} と、その [[ウィジェット・ツールキット|GUIツールキット]] '''[[Tk (ツールキット)|Tk]]''' を指す。非常に強力な GUI ツールキットと、シンプルな文法をもつ言語により、GUI ツールを素早く作り上げるのに適した強力なスクリプティング環境である。

==概要==
{{lang|en|Tcl/Tk}} は、スクリプト言語 {{lang|en|Tcl}} とGUIツールキット Tk からなる 非常に強力なGUIスクリプティング環境である。現在、各種オペレーティングシステム（{{lang|en|[[UNIX]]}}、{{lang|en|[[Microsoft Windows|Windows]]}}、{{lang|en|[[Macintosh]]}}）上で動作する。

{{lang|en|Tcl}} 言語は、コマンド行のみで構造化文法をフォローしてしまう非常にシンプルな文法を特徴とする。Tk はクロスプラットフォームな GUI 環境としても有名で、{{lang|en|Tcl}} 言語に限らず、{{lang|en|[[Perl]]}}、{{lang|en|[[Python]]}}、{{lang|en|[[Ruby]]}} などの言語環境からも利用できる。

他にも ウェブブラウザ上で {{lang|en|Tcl/Tk}} を動作させるプラグイン {{読み仮名|{{lang|en|'''Tclet'''}}|ティクレット}} がある。

==背景==
{{lang|en|Tcl}} が[[カリフォルニア大学バークレー校]]のジョン・ケネス・オースターハウト博士<ref>{{lang-en-short|Dr. John Kenneth Ousterhout}}</ref>により最初に開発されたのは1988年の事である。当時アプリケーションプログラムに組み込まれる拡張用スクリプト言語には標準がなく、アプリケーション毎に独自の言語が実装されていた。そのためアプリケーション使用者はツール毎に異なるスクリプト言語の習得を余儀なくされた。この非効率さを嘆いたオースターハウトは、状況を打開するために {{lang|en|UNIX}} アプリケーションにおける標準となる拡張スクリプト言語をデザインしようと考えた。こうして作られたのが {{lang|en|Tcl}} の始まりである。そのため {{lang|en|Tcl}} はアプリケーションへの組み込みが容易であることを重視してデザインされた。具体的には処理系をライブラリとして提供することで[[C言語]]で書かれたアプリケーションに容易に組み込めることや、言語構造が簡素であり、かつ高い拡張性を持つこと、インタプリター言語であることが挙げられる。

Tk は {{lang|en|Tcl}} 用に開発された、非常に簡単なコードで GUI を作成できるツールキットである。1990年代初頭に {{lang|en|Tcl}} にバンドルされる形で公開された。[[アップル (企業)|アップル]]の {{lang|en|[[HyperCard]]}} に触発されて開発されたと言う。当初 {{lang|en|Tcl}} の有用な活用事例の一つとして紹介された Tk だが、その取り扱いやすさから {{lang|en|Tcl}} 言語と共に一躍人気に火がつく。{{lang|en|Tcl}} は当初の設計意図と異なり、アプリケーションの組み込み言語として使われるよりも、Tk と合わせた「{{lang|en|Tcl/Tk}}」の形の GUI スクリプティング環境として人気を博した。特に Tk の人気は高く、{{lang|en|Tcl}} にとどまらず {{lang|en|Perl}}（{{lang|en|[[Perl/Tk]]}}）、{{lang|en|Python}} （{{lang|en|[[Tkinter]]}}）、{{lang|en|[[Ruby]]}} （{{lang|en|[[Ruby/Tk]]}}）など、他の言語でも標準的な GUI キットとして Tk が利用された。

オースターハウトが[[サン・マイクロシステムズ]]に勤めていた1994-1998年は {{lang|en|Tcl/Tk}} は同社で開発が進められた。このころのサンは [[World Wide Web|WWW]] クライアント環境の制覇に向け邁進していた時期であり、{{lang|en|Tcl/Tk}} もその流れの上、その対象領域をウェブに広げていく。ウェブブラウザ上で Tk GUI を動作させるプラグイン「{{読み仮名|[[Tclet]]|ティクレット}}」や、ブラウザのスクリプト言語としての {{lang|en|Tcl}} の組み込み、国際化対応（内部処理の {{lang|en|UNICODE}} 化）、インタプリタからバイトコンパイラへの変更による実行速度の大幅な向上など、{{lang|en|Tcl/Tk}} はこの時期機能的にもっとも大きな進歩を果たした。しかし他技術との競合やブラウザでのサポートの薄さなどもあり、WWWを「第二の Tk」として人気を拡大することは出来なかった。

オースターハウトの退職に伴い、{{lang|en|Tcl/Tk}} の開発はサンの手を離れた。2000年からは {{lang|en|Tcl/Tk}} の開発は[[オープンソース]]にその場を移し、精力的に開発が続けられている。

2005年現在 {{lang|en|Tcl}} 言語は「{{lang|en|Tcl/Tk}}」の知名度とは裏腹に利用者数は少なく、{{lang|en|Perl}} や {{lang|en|Python}}、{{lang|en|Ruby}} に比べ劣勢と言わざるを得ない。特に日本国内での利用者数は少ない。ただし、[[EDA (半導体)|EDA]]ツールにおいては標準的なスクリプト言語として広く利用されているほか、[[電子国土Webシステム]]においても一部で {{lang|en|Tcl}} 言語が使われている。一方 Tk は、後発の [[GTK|GTK+]]、[[Qt]] と並び、[[軽量プログラミング言語]]における事実上の標準 GUI ツールキットの一つとなっており、広く利用されている。

なお、{{lang|en|Tcl}} 言語の名前は「ツールコマンド言語」を意味する英語「{{lang|en|tool command language}}」に由来し、Tk の名前は「ツールキット」を意味する英語「{{lang|en|toolkit}}」に由来する。

==特徴==
{{Main2|Tk については、 [[Tk (ツールキット)]] を}}
ここでは {{lang|en|Tcl}} 言語の特徴を記す。

{{lang|en|Tcl}} 言語の特徴は一言でいえば「全て文字列」である。{{lang|en|Tcl}} は、

*コマンド行の順次実行のみのシンプルな文法
*首尾一貫したリスト構造

の二つを組み合わせ、非常に小さいルールで広範囲の領域をカバーする点にある。コマンド行はひとつのリストであり、先頭の要素がコマンド、それ以降の要素がコマンドへの引数として扱われる。{{lang|en|[[LISP]]}} 言語と同様の一貫性を持つと言えるが、リストの要素分離記号がブランクやタブであるため、これらの文字が無視される一般のプログラム言語に慣れた人には「とまどい」を与えるかもしれない。

===リスト構造===
リストは文字列である。リストを構成する要素はブランクかタブで区切られる。ブランクやタブを要素に含めたい場合には、その要素をブレス（<code>{</code>、<code>}</code>）で挟めば良い。以下の文字列は三つの要素から成るリストである。

<source lang="tcl">
 This is {a pen}
</source>

===リストの抽出===
{{lang|en|Tcl}} パーサーがソースコードからコマンド行としてリストを取り出すとき、ひとつのリストの終端は改行コードかセミコロン（<code>;</code>）で判断する。しかし改行コードやセミコロンがブレスの内側にあれば、それをリストの終端記号とは見なさない。したがって、以下の3行の文字列は3つの要素から成るひとつのリストである。改行コードは3個あるが、最後の改行コードだけがリストの終端記号の役割を果たす。

<source lang="tcl">
 if {$a<0} {
   set a 0
 }
</source>

上記リストは {{lang|en|Tcl}} の <code>if</code> コマンドでありC言語の <code>if</code> 文に似ている。しかしブレスがリスト記述記号として採用されているので似ているだけである。上記の <code>if</code> コマンドを以下のように改行の位置を変えると、<code>if</code>コマンドの引数エラーになる。

<source lang="tcl">
 if {$a<0}
 {
   set a 0
 }
</source>

{{lang|en|Tcl}} パーサーは上記4行の文字列を2つのリストとして認識する。したがって先頭行の<code>if</code>コマンド行は引数がひとつだけしか与えられていないことになり、引数エラーが発生する。

ここで重要なのは、エラーを返したのは <code>if</code> コマンドであり、{{lang|en|Tcl}} パーサーが検出した「文法エラー」ではないということである。{{lang|en|Tcl}} には制御文などの「文」はない。分岐や繰り返しなどの実行制御も単にコマンドによって実現されているだけである。「{{lang|en|Tcl}} には細かなルールが無い」のであり、そこにはリスト構造と、以下に解説する「特殊記号」しかない。

===ブラケット記号（コマンド置換）===
{{lang|en|Tcl}} パーサーはリストの先頭要素を常にコマンド名として認識する。それ以外の要素はコマンドに渡すべき引数として認識する。しかし、その引数要素がブラケット（<code>[</code>、<code>]</code>）で挟まれていると、その中身をコマンド行と認識し、それを実行してから本来の引数値を求めてくれる。これが「コマンド置換」である。

<source lang="tcl">
 set a [expr 100*2]
</source>

===<code>$</code>記号（変数置換）===
{{lang|en|Tcl}} パーサーは変数機能の提供によりコマンド間でのデータの受け渡しも扱ってくれる。変数はsetコマンドにより生成される。そして、$記号が先頭に付いた要素を変数名とみなし、その値に要素全体を置換する。これが「[[変数置換]]」である。

<source lang="tcl">
 set a {This is a pen.}
 puts $a
</source>

変数置換はコマンド行の先頭要素に対しても機能する。つまりコマンド名を変数で与えることも可能である。

変数置換は1回しか実行されない。変数置換結果に文字「<code>$</code>」が含まれていても再置換が試みられることはない。

また、変数置換で得られた文字列にブランクが含まれていても、2つの引数としてではなく、ブランクが含まれた1つの引数として渡される。引数の分離（リストの認識）は変数置換前に行われるからである。もし置換結果から改めて引数分離を行わせたいなら <code>eval</code> コマンドを利用する。

===ダブルクォーテーション記号===

リスト構造で解説したように、ブレス（<code>{</code>、<code>}</code>）は、改行コードなどの特殊文字の機能を無効化する。この法則はコマンド置換子であるブラケットや、変数置換子である$記号に対しても貫かれる。そのため、下記のコードではコマンド置換も変数置換も行われない。

<source lang="tcl">
 puts {[expr 100*$num] 円}
</source>

そのため、実行結果として出力される文字列は以下のものになる。

 [expr 100*$num] 円

コマンド置換も変数置換も機能させ、かつブランクを含む文字列をひとつの引数として <code>puts</code> コマンドに渡すには、ブレスの代わりにダブルクォーテーション（<code>"</code>）で挟めば良い。

<source lang="tcl">
 puts "[expr 100*$num] 円"
</source>

num変数に3がセットされていればコマンドの実行結果として
 300 円
が出力される。

このように、ダブルクォーテーションの機能はブレス機能とほぼ同等であるが、コマンド置換と変数置換をTclパーサーに許すところが異なる。ダブルクォーテーションの中でのコマンド置換、変数置換は {{lang|en|Tcl}} の特長的な機能である。なお、ダブルクォーテーションとブレスの機能は、それらがリスト要素の先頭と末尾に記述された場合にのみ有効である。下の例では「<code>"</code>」は文字として扱われる。

<source lang="tcl">
 set text 石を投げたら"ゴツン"と音がした
</source>

===セミコロン記号（マルチコマンド）===
複数のコマンドを1行に記述したい場合はコマンド行をセミコロン（<code>;</code>）で区切れば良い。

<source lang="tcl">
 set a 100 ; set b 200; puts [expr $a * $b]
</source>

===#記号（注釈行）===
コマンドの位置に「<code>#</code>」を記述すると行末までコメントと見なされる。「コマンドの位置に」ということが重要であり、以下の最後のコードは「<code>#</code>」がコマンドの位置にないので誤りである。

<source lang="tcl">
 #初期値セット
 # set a 0
 set b 0 ; # 初期値
 set c 0   # 初期値
</source>

===バックスラッシュ記号===
ひとつのコマンドを複数行で記述したい場合は、行の末尾にバックスラッシュを付ける。

<source lang="tcl">
 command $arg1 $arg2 \
          $arg3 $arg4
</source>

$文字の前に\を置くと$置換子の機能を抑制して単なる文字として扱わせることができる。

<source lang="tcl">
 puts "金額＝\$100"
</source>

コマンド置換子（<code>[</code>、<code>]</code>）、ブレス（<code>{</code>、<code>}</code>）の前に置いた場合も同様である。
基本的にバックスラッシュにはC言語とほぼ同じ機能がある。例えば改行コードは「<code>\n</code>」と書ける。

===補足：引数をブレスで挟むことのもうひとつの意味===
{{lang|en|Tcl}} パーサーから渡された引数がコマンド内部で評価されるか否かは重要である。ここでの評価とはコマンド置換や変数置換のことである。例えば算術演算を行う <code>expr</code> コマンドは引数を内部で評価する。従って以下の2つのコマンドは同じ結果を返す。

<source lang="tcl">
 expr $a*$b
 expr {$a*$b}
</source>

{{lang|en|Tcl}} パーサーが行ってくれずとも、<code>expr</code>コマンドが内部で変数置換しているので同じ結果が得られるのである。<code>if</code>コマンドや<code>while</code>コマンドは第1引数として与えられた文字列を、コマンド内部で <code>expr</code> によって評価し、その結果を使う。

<source lang="tcl">
 set val true
 if $val {～処理～}
 while $val {～処理～} 
</source>

{{lang|en|Tcl}} パーサは第一引数の「<code>$val</code>」を評価して「<code>true</code>」（文字列）に書き換える。同様に第二引数「{～処理～}」を評価して、文字列リテラルなのでそのまま同じ値「{～処理～}」に書き換え、以下のようにする。

<source lang="tcl">
 if true {～処理～}
 while true {～処理～} 
</source>

{{lang|en|Tcl}} パーサはその後、<code>true</code> と <code>{～処理～}</code> を <code>if</code>、<code>while</code> コマンドに渡し、<code>if</code>、<code>while</code> コマンド側は受け取った文字列を <code>expr</code> コマンドに「<code>[expr true]</code>」として渡し、その結果をもって処理を続ける。気をつけなければならないのは <code>while</code> コマンドは <code>{～処理～}</code> をひと通り評価し終えた後、再度、第一引数を <code>expr</code> で評価するが、上記のコードでは与えられている値が <code>true</code> なので <code>{～処理～}</code> の中に「<code>set val false</code>」のような文があったとしても、第一引数で与えられた値そのものは変化しないので、ループを無限に繰り返すことになる（<code>{～処理～}</code> の中に <code>break</code> コマンドが含まれていない場合）。

<source lang="tcl">
 set val true
 if {$val} {～処理～}
 while {$val} {～処理～} 
</source>

この場合、{{lang|en|Tcl}} パーサは引数を順に評価し、第一引数として「<code>{$val}</code>」という4文字の文字列リテラルを、第二引数として「{～処理～}」を、<code>if</code>、<code>while</code> コマンドに渡す。<code>if</code>、<code>while</code> コマンド側は受け取った文字列を <code>expr</code> コマンドに「<code>[expr {$val}]</code>」として渡し、その結果をもって処理を続ける。<code>while</code> コマンドは <code>{～処理～}</code> をひと通り評価し終えた後、再度、第一引数を <code>expr</code> で評価するが、上記のコードでは与えられている値が <code>{$val}</code> なので <code>{～処理～}</code> の中で「<code>set val false</code>」のような文があれば、その評価値も <code>false</code> になって、その時点で繰り返し処理を終了する。

一方、<code>switch</code>コマンドの第1引数は内部では評価されない。したがって下記の2番目の記述は期待する結果が得られない。

<source lang="tcl">
 switch $val {...}
 switch {$val} {...}
</source>

もし引数をコマンド内部で評価してくれるならば、その引数はブレス({})で挟んで渡した方が効率が良い。Tclパーサーとコマンドの両方による多重評価処理を回避できるからである。このような理由により、<code>if</code>コマンドや<code>while</code>コマンドや<code>for</code>コマンドの引数は常にブレスで挟むべきである。特にループの条件式は必ずブレスで挟む必要がある。ブレスで挟まないと変数置換されてからループコマンドに渡されてしまうので、定数を並べた条件式になってしまい、無限ループをもたらす。

===コマンドの拡張===
コマンドには、{{lang|en|Tcl}} パーサーにあらかじめ実装されているビルトインコマンドと、ユーザーにより作成された拡張コマンドがある。ユーザーによる拡張コマンドの実装は簡単である。まず、C言語などで「コマンド本体関数」と「登録用関数」を記述し、ダイナミックリンクライブラリファイルに格納する。そして組み込みコマンドの <code>load</code> を用いて拡張コマンドを登録する。

<source lang="tcl">
 load hello.dll hello
</source>

<code>load</code> コマンドの引数には、「ライブラリファイル名」と「登録用コマンド名」を与える。<code>load</code> コマンドは、登録用コマンド名から「登録用関数」名を求め、これを実行してくれる。例えば <code>hello</code> コマンドであれば <code>Hello_Init</code> を実行してくれる。この「登録用関数」の中に本当の登録処理を記述しておく。従って、例えば <code>load</code> コマンドに渡したコマンド名にライブラリ名の意味を持たせ、「登録用関数」の中で複数のコマンドを登録してしまうことも可能である。

「本当の」コマンド登録はC言語のインターフェース用の関数の <code>Tcl_CreateCommand</code> や <code>Tcl_CreateObjCommand</code> を用いて行う。拡張コマンドの実体となる「コマンド本体関数」を、決められた型と引数に従って先に定義しておき、そのコマンド関数アドレスと公開コマンド名を引数に与えて実行すれば登録される。

コマンド登録関数
<source lang="C">
int Hello_Init (Tcl_Interp *interp) 
  {
  Tcl_CreateObjCommand (interp, "hello", Tcl_HelloCmd, NULL, NULL) ;
  return TCL_OK ;
  }
</source>

コマンド本体関数
<source lang="C">
int Tcl_HelloCmd (ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv []) 
  {
  ...
  return TCL_OK ;
  }
</source>

コマンド本体関数は、{{lang|en|Tcl}} パーサーからの引数を、引数の数（<code>argc</code>）と引数文字列配列（<code>argv</code>）で受け取る。ただし、引数を文字列で受け取るこの方式は <code>Tcl_CreateCommand</code> 関数で登録する場合であり、引数を {{lang|en|Tcl}} オブジェクトで受け取りたい場合には、上例のように <code>Tcl_CreateObjCommand</code> 関数で登録する。

===内部構造（{{lang|en|Tcl}} オブジェクト）===

{{lang|en|Tcl}} パーサーは、スクリプト文字列を受け取り、常に処理結果を文字列で返すように見える。これでは文字列の解析や文字コードとバイナリ値への変換が頻繁に行われていることになり、いかにも効率が悪く思える。しかし決してそのような単純なものではなく、内部では可能な限りバイナリ値を維持している。{{lang|en|Tcl}} スクリプトでバイナリ値も扱えるのはこのおかげである。

例えば下記のように変数に数値を与え、その計算結果を変数に格納するとき、おのおの変数の型は文字列と <code>double</code> の二つの型を持つ。文字列として参照されるときは文字列型として振る舞い、<code>double</code> として参照されるとき（計算式の中などで）は <code>double</code> 型として振る舞うことができる。

<source lang="tcl">
 set a 100.0
 set b 200.0
 set c [expr $a * $b]
</source>

{{lang|en|Tcl}} パーサー内部において変数は {{lang|en|Tcl}} オブジェクトとして存在している。{{lang|en|Tcl}} オブジェクトは <code>char *</code>、<code>int</code>、<code>double</code> の共用体を持った構造体であり、文字列への変換が要求されない限り、<code>int</code> 値は <code>int </code>値のまま、<code>double</code> 値は <code>double</code> 値のまま維持される。スクリプトでは変数の型宣言を行えないが、変数への値セットで型が仮定され、{{lang|en|Tcl}} オブジェクト間のデータ移動で無駄な型変換が行われないように配慮されている、ということである。

リストも同様に内部ではリスト型の {{lang|en|Tcl}} オブジェクトとして存在している。このような仕組みになっているので、リストを作成する時は <code>list</code> コマンドを用いるべきであることが分かる。また、巨大なリストを文字列として全体参照するのも効率を悪くするので慎重にすべきである。下記の例では変数 <code>listA</code> には文字列として格納されるが、<code>listB</code> には <code>int</code> 値のリストとして格納される。この後、これらの変数にリスト処理コマンドでアクセスすると、<code>listA</code> に対しては要素分解処理が行われるが、<code>listB</code> に対しては不要となる。

<source lang="tcl">
 set a 100
 set b 200
 set listA "$a $b"
 set listB [list $a $b]
</source>

前項で解説したコマンド登録関数の後者（<code>Tcl_CreateObjCommand</code>）は、{{lang|en|Tcl}} パーサーからの引数を、無駄に文字列変換することなく、{{lang|en|Tcl}} オブジェクトのままで受け取るコマンド関数を登録するためのものである。

返値も {{lang|en|Tcl}} オブジェクトを通じて返すことができる。下記は <code>long</code> 値をそのまま返す例である。

<source lang="c">
 /* long値を返す例 */
 Tcl_SetLongObj (Tcl_GetObjResult (interp), longVal) ;
</source>

返値のみならず、{{lang|en|Tcl}} オブジェクトは不要になったとき自動的に削除される仕組みがある。それは {{lang|en|Tcl}} オブジェクトが持つ「参照カウンタ」による制御である。アプリケーションで {{lang|en|Tcl}} オブジェクトを作成し、それを存続したければ参照カウンタを増加させておき（<code>Tcl_IncrRefCount</code>）、必要なしとなったところで減ずる（<code>Tcl_DecrRefCount</code>）ようにする。参照カウンタが減らされて <code>0</code> になったときにのみ、そのオブジェクトは削除される。つまり、存続と廃棄の要求を自分だけの都合で出しておくだけで、削除のタイミングがコントロールされるという仕組みである（スマートポインタ）。

変数のみならず、スクリプト自体も {{lang|en|Tcl}} オブジェクトとして存在している。

==脚注==
<references />

==外部リンク==
{{Portal|FLOSS|[[ファイル:FLOSS_logo.png|41px]]}}
*[http://www.tcl.tk/ Tcl Developer Exchange] - Tcl/Tk開発のホーム
*[http://www.freesoftnet.co.jp/tclkits/doc/TclCmdRef/tcl_contents_jp.htm Tcl 8.4.1　Manual Command Reference] - 日本語のTclリファレンス
*[http://vtcl.tcltk.cn/ Visual Tcl Binary Project]
*[http://ased.tcltk.cn/ ASED Tile Project]

{{プログラミング言語一覧}}
{{FLOSS-stub}}

[[Category:スクリプト言語|TCLTK]]
[[Category:グラフィカルユーザインタフェース|TCLTK]]