1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
|
(tof)
2003/07/25 Hidetoshi NAGAI
本ドキュメントには古い tcltk ライブラリ，tcltklib ライブラリの説明
が含まれていますが，その記述内容は古いものとなっています．
tcltk ライブラリ（tcltk.rb）は現在ではメンテナンスが事実上行われて
いないため，古いドキュメントの説明がそのまま有効です．それに対し，
tcltklib ライブラリについては，現在の Ruby/Tk（tk.rb 以下のライブラ
リ群）を稼働させるための中心としてメンテナンスされているため，少々
違いが生じています．
そこで，まず古い説明文書を示した後，現在の tcltklib ライブラリにつ
いての説明を加えます．
以下がライブラリの古い説明文書です．
==============================================================
MANUAL.euc
Sep. 19, 1997 Y. Shigehiro
以下, 「tcl/tk」という表記は, tclsh や wish を実現している, 一般でいう
ところの tcl/tk を指します. 「tcltk ライブラリ」, 「tcltklib ライブラ
リ」という表記は, 本パッケージに含まれる ruby 用のライブラリを指します.
<< tcltk ライブラリ >>
tcl/tk の C ライブラリを利用するための高(中?)水準インターフェースを提
供します.
このライブラリは ruby から tcl/tk ライブラリを利用するためのもので, 内
部で tcltklib ライブラリを利用しています.
[説明]
tcl/tk インタプリタでは, ウィジェットに何か指示を送るには, ウィジェッ
ト名に続いてパラメータを書きます. したがって, ウィジェットがオブジェク
トであり, それに対してメソッドを送っている, とみなすことができます. さ
て, tcl/tk インタプリタでは, 組み込みコマンドも, 前述のウィジェットと
同じような書式の命令で実行されます. すなわち, コマンドもオブジェクトで
あると考えることができます.
このような考えに基づき, tcltk ライブラリでは, tcl/tk のコマンドやウィ
ジェットに対応するオブジェクトを生成します. オブジェクトに対するメソッ
ド呼び出しは, e() メソッドにより実行されます. 例えば, tcl/tk の info
コマンドに対応する ruby のオブジェクトが info という名前であるとすると,
tcl/tk の
info commands
という命令は tcltk ライブラリでは
info.e("commands")
と記述されます. また, 「.」というウィジェット (wish 実行時に自動的に生
成されるルートウィジェット) に対応する ruby のオブジェクトが root とい
う名前であるとすると,
. configure -height 300 -width 300
という tcl/tk の命令は
root.e("configure -height 300 -width 300")
と記述されます. このような記述は, 見ためには美しくありませんが, そして,
スクリプトを読む人には見づらいかも知れませんが, 実際にスクリプトを書い
てみると予想外に手軽です.
[使用法]
1. ライブラリを読み込む.
require "tcltk"
2. tcl/tk インタプリタを生成する.
ip = TclTkInterpreter.new()
3. tcl/tk のコマンドに対応するオブジェクトを変数に代入しておく.
# コマンドに対応するオブジェクトが入った Hash を取り出す.
c = ip.commands()
# 使いたいコマンドに対応するオブジェクトを個別の変数に代入する.
bind, button, info, wm = c.indexes("bind", "button", "info", "wm")
4. 必要な処理を行う.
詳しくは, サンプルを参照のこと.
5. 準備ができたら, イベントループに入る.
TclTk.mainloop()
(( 以下, モジュール, クラス等の説明を書く予定.))
<< tcltklib ライブラリ >>
tcl/tk の C ライブラリを利用するための低水準インターフェースを提供しま
す.
コンパイル/実行には, tcl/tk の C ライブラリが必要です.
[説明]
このライブラリを用いると, ruby から tcl/tk の C ライブラリを利用できま
す. 具体的には, ruby インタプリタから tcl/tk インタプリタを呼び出すこ
とができます. さらに, その(ruby インタプリタから呼び出した) tcl/tk イ
ンタプリタから, 逆に ruby インタプリタを呼び出すこともできます.
[使用法]
require "tcltklib" すると, 以下のモジュール, クラスが利用可能です.
モジュール TclTkLib
tcl/tk ライブラリを呼び出すメソッドを集めたモジュールです. ただし,
tcl/tk インタプリタ関係のメソッドはクラス TclTkIp にあります.
モジュールメソッド mainloop()
Tk_MainLoop を実行します. 全ての tk のウインドウが無くなると終了
します(例えば, tcl/tk で書くところの "destroy ." をした場合等).
引数: 無し
戻り値: nil
クラス TclTkIp
インスタンスが tcl/tk のインタプリタに対応します. tcl/tk のライブ
ラリの仕様通り, インスタンスを複数個生成しても正しく動作します(そ
んなことをする必要はあまり無いはずですが). インタプリタは wish の
tcl/tk コマンドを実行できます. さらに, 以下のコマンドを実行できま
す.
コマンド ruby
引数を ruby で実行します(ruby_eval_string を実行します). 引数
は 1 つでなければなりません. 戻り値は ruby の実行結果です.
ruby の実行結果は nil か String でなければなりません.
クラスメソッド new()
TclTkIp クラスのインスタンスを生成します
引数: 無し
戻り値 (TclTkIp): 生成されたインスタンス
メソッド _eval(script)
インタプリタで script を評価します(Tcl_Eval を実行します). 前述
のように, ruby コマンドにより script 内から ruby スクリプトを実
行できます.
引数: script (String) - インタプリタで評価するスクリプト文字列
戻り値 (String): 評価結果 ((Tcl_Interp *)->result)
メソッド _return_value()
直前の Tcl_Eval の戻り値を返します. 0(TCL_OK) で正常終了です.
引数: 無し
戻り値 (Fixnum): 直前の Tcl_Eval() が返した値.
==============================================================
以下が本ドキュメント作成時点での tcltklib ライブラリの説明です．
==============================================================
モジュール TclTkLib
: 個々の Tcl/Tk インタープリタに依存しない処理 ( == イベントルー
: プに関する処理 ) を呼び出すメソッドを定義したモジュール．
モジュール TclTkLib::EventFlag
: do_one_event を呼び出す際の処理対象イベントを指定するための
: フラグ ( WINDOW|DONT_WAIT というようにビット演算子で連結して
: 指定 ) を定数として定義したモジュール．以下の定数が含まれる．
定数 NONE
: いかなる種類のイベントも処理対象としない ( == 0 )
定数 WINDOW
: window イベントを処理対象とする
定数 FILE
: file イベントを処理対象とする
定数 TIMER
: timer イベントを処理対象とする
定数 IDLE
: アイドルループ処理 ( 再描画など，他の種類のイベントが発生
: していないときに行われる処理 ) を処理対象とする
定数 ALL
: すべての種類のイベントを処理対象とする
: WINDOW|FILE|TIMER|IDLE と同じ
定数 DONT_WAIT
: 処理対象イベントが存在しない場合に，イベント発生を待たず
: に do_one_event を終了 ( false を返す ) する
モジュールメソッド
mainloop(check_root = true)
: イベントループを起動する．check_root が true であれば，
: root widget が存在する限り，このメソッドは終了しない．
: check_root が false の場合は，root widget が消滅しても
: このメソッドは終了しない ( root widget が消滅しても，
: WINDOW 以外のイベントは発生しうるため )．終了には，外部
: からの働き掛け ( スレッドを活用するなど ) が必要．
mainloop_watchdog(check_root = true)
: 通常のイベントループでは，イベント処理の内容によっては
: デッドロックを引き起こす可能性がある (例えばイベントに
: 対するコールバック処理中で widget 操作をし，その終了を
: 待つなど)．このメソッドは，そうしたデッドロックを回避す
: るための監視スレッド付きでイベントループを起動する
: ( 監視スレッドを生成した後にイベントループを実行する )．
: 引数の意味は mainloop と同じである．
do_one_event(flag = TclTkLib::EventFlag::ALL)
: 処理待ちのイベント 1 個を実行する．
: イベントを処理した場合は true を返す．
: フラグで DONT_WAIT を指定していない場合，フラグで処理対
: 象となっている種類のイベントが発生するまで待ち続ける．
: DONT_WAIT を指定していた場合，処理対象イベントがなくても
: すぐに終了し false を返す．
set_eventloop_tick(timer_tick)
: イベントループと同時に別スレッドが稼働している場合に，時
: 間に基づいた強制的なスレッドスイッチングをどの程度の頻度
: ( 時間間隔 ) で発生させるかをミリ秒単位の整数値で指定する．
: 0 を指定すると，この強制的なスイッチングは行われない．
: 標準では 0 に設定されており，イベント処理数に基づくスイッ
: チングだけが行われる ( see set_eventloop_weight )．
: ただし，稼働しているスレッドがイベントループだけの場合，
: timer_tick を 0 に設定することはできない．もし設定されて
: いたら，200 ms ( see NO_THREAD_INTERRUPT_TIME ) に自動設
: 定される．
: 詳細な説明は略すが，これは CPU パワーを節約しつつ安全で
: 安定した動作を実現するために実装した仕様である．
get_eventloop_tick
: timer_tick の現在値を返す．
set_no_event_wait(no_event_wait)
: 複数のスレッドが稼働している場合で，処理待ちイベントが全
: く存在しなかった際に sleep 状態に入る時間長を指定する．
: 稼働スレッドがイベントループだけの場合には意味をなさない．
: デフォルトの値は 20 (ms)
get_no_event_wait
: no_event_wait の現在値を返す．
set_eventloop_weight(loop_max, no_event_tick)
: 複数のスレッドが稼働している際に Ruby/Tk のイベントルー
: プに割り当てる比重を定めるためのパラメータを設定する．
: 稼働スレッドがイベントループだけの場合には意味をなさない．
: 一度のスレッド切り替えの間に処理するイベントの最大数と，
: 処理待ちのイベントが存在しない際の加算数とを設定する．
: 処理待ちイベントが存在しない場合は no_event_wait ( see
: set_no_event_wait ) だけの間 sleep 状態に入る．
: デフォルトではそれぞれ 800 回と 10 回，つまり，800 個のイ
: ベント (アイドルイベントを含む) を処理するとか，イベント
: が全く発生しないままに 80 回の処理待ちイベント検査が完了
: するとかでカウントが 800 以上になるとスレッドスイッチング
: が発生することになる．
get_eventloop_weight
: 現在の loop_max と no_event_tick との値を返す．
: ( see set_eventloop_wait )
mainloop_abort_on_exception=(bool)
: Tk インタープリタ上で例外を発生した際に，イベントループを
: エラー停止させるかどうかを指定する．true を指定した場合は
: エラー停止するが，false の場合は例外を無視してイベントルー
: プを継続する．さらに nil の場合は警告モードでない限りはエ
: ラーメッセージの出力すら省略して，例外を無視する．
: デフォルトでは true に設定されている．
: １個のインタープリタだけを使っている場合にはエラー時にその
: まま停止しても通常は問題ないが，複数のインタープリタが同時
: に動作している場合には，それらを管理するイベントループは１
: 個だけであるため，いずれかのインタープリタのエラーが原因で，
: 他のインタープリタの処理継続が不可能になることがある．その
: ような場合でもエラーを無視してイベントループが稼働を続ける
: ことで，他のインタープリタが正常に動作し続けることができる．
mainloop_abort_on_exception
: Tk インタープリタ上で例外を発生した際に，イベントループをエ
: ラー停止させるかどうかの設定状態を true/false で得る．
クラス TclTkIp
クラスメソッド
new(ip_name=nil, options='')
: TclTkIp クラスのインスタンスを生成する．
: ip_name に文字列を与えた場合は，それが winfo interps などで
: 表示される名前になる．
: options には，-geometry や -use など，wish のコマンドライン
: 引数として与えるオプションと同様の情報を文字列として与える．
: 与えられた情報は，root widget 生成の際に用いられる．
: ( e.g. TclTkIp.new('FOO', '-geometry 500x200 -use 0x2200009') )
インスタンスメソッド
create_slave(name, safe=false)
: レシーバを親とする name という名前のスレーブインタープリタを
: 生成する．
: safe には生成するインタープリタを safe インタープリタとする
: かを指定する．デフォルトは false ということになっているが，
: たとえ明確に false を指定していたとしても，親となるインター
: プリタが safe インタープリタであれば，その設定を引き継いで
: safe インタープリタとして生成される．
make_safe
: Tcl/Tk インタープリタを safe インタープリタに変更する．
: 戻り値はレシーバであるインタープリタ自身である．
: 失敗した場合は RuntimeError の例外を発生する．
safe?
: Tcl/Tk インタープリタを safe インタープリタであるかを調べる．
: safe インタープリタであれば true を返す．
delete
: Tcl/Tk インタープリタを delete する．
: delete されたインタープリタは，以後一切の操作ができなくなり，
: コマンドを送っても例外を発生するようになる．
deleted?
: Tcl/Tk インタープリタがすでに delete されているかを調べる．
: delete 済みでコマンドを受け付けない状態になっているならば
: true を返す．
restart
: Tcl/Tk インタープリタの Tk 部分の初期化，再起動を行う．
: 一旦 root widget を破壊した後に再度 Tk の機能が必要と
: なった場合に用いる．
_eval(str)
_invoke(*args)
: Tcl/Tk インタープリタ上で評価を行う．
: _eval は評価スクリプトが一つの文字列であることに対し，
: _invoke は評価スクリプトの token ごとに一つの引数とな
: るように与える．
: _invoke の方は Tcl/Tk インタープリタの字句解析器を用い
: ないため，評価の負荷がより少なくてすむ．ただし，その代
: わりに auto_load のような機構は働かず，load 等によって
: Tcl/Tk インタープリタ上に既に登録済みのコマンドしか呼
: び出すことができない．
: _eval では auto_load 機構が働くため，一度 _eval を実行
: して登録に成功しさえすれば，以降は _invoke でも利用で
: きるようになる．
_toUTF8(str, encoding)
_fromUTF8(str, encoding)
: Tcl/Tk が内蔵している UTF8 変換処理を呼び出す．
_return_value
: 直前の Tcl/Tk 上での評価の実行結果としての戻り値を返す．
mainloop : 引数を含めて TclTkLib.mainloop に同じ
mainloop_watchdog : 引数を含めて TclTkLib.mainloop_watchdog に同じ
do_one_event : 引数を含めて TclTkLib.do_one_event に同じ
set_eventloop_tick : 引数を含めて TclTkLib.set_eventloop_tick に同じ
get_eventloop_tick : 引数を含めて TclTkLib.get_eventloop_tick に同じ
set_eventloop_weight : 引数を含めて TclTkLib.set_eventloop_weight に同じ
get_eventloop_weight : 引数を含めて TclTkLib.set_eventloop_weight に同じ
mainloop_abort_on_exception
: 引数を含めて TclTkLib.mainloop_abort_on_exception に同じ
mainloop_abort_on_exception=
: 引数を含めて TclTkLib.mainloop_abort_on_exception= に同じ
クラス TkCallbackBreak < StandardError
クラス TkCallbackContinue < StandardError
: これらはイベントコールバックにおいて，コールバック処理を適切に中
: 断したり，次のバインドタグのバインディング処理に進めたりすること
: を可能にするための例外クラスである．
: コールバックで break や continue を実現するためには，コールバック
: である Ruby 手続きが Tcl/Tk インタープリタ側に適切なリターンコー
: ドを返す必要がある．Ruby の手続きが普通に値を返すのでは，それが普
: 通の戻り値であるのか否かを区別ができないため，例外発生を利用した
: 実装を行っている．
(eof)
|
