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
|
(tof)
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() ֤.
(eof)
|
