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
|
(tof)
tcltk �饤�֥��
tcltklib �饤�֥��
Sep. 19, 1997 Y. Shigehiro
�ʲ�, ��tcl/tk�פȤ���ɽ����, tclsh �� wish ��¸����Ƥ���, ���̤Ǥ���
�Ȥ����� tcl/tk ��ؤ��ޤ�. ��tcltk �饤�֥���, ��tcltklib �饤�֥�
��פȤ���ɽ����, �ܥѥå������˴ޤޤ�� ruby �ѤΥ饤�֥���ؤ��ޤ�.
[�ե�����ˤĤ���]
README.euc : ���Υե�����(����, ��ħ, ���ȡ������ˡ).
MANUAL.euc : �ޥ˥奢��.
lib/, ext/ : �饤�֥��μ���.
sample/ : �ޥ˥奢������Υ���ץ�ץ������.
sample/sample0.rb : tcltklib �饤�֥��Υƥ���.
sample/sample1.rb : tcltk �饤�֥��Υƥ���.
tcl/tk (wish) �ǤǤ������ʤ��Ȥ���̤�Ƥߤޤ���.
sample/sample2.rb : tcltk �饤�֥��Υ���ץ�.
maeda shugo (shugo@po.aianet.ne.jp) ��ˤ��
(`rb.tk' �ǽ�Ƥ���) ruby �Υ���ץ�ץ������
http://www.aianet.or.jp/~shugo/ruby/othello.rb.gz
�� tcltk �饤�֥���Ȥ��褦��, ����Ū���ѹ����Ƥߤޤ���.
demo/ : 100 �ܤ����� 100 �������ǥ�ץ������.
�ǽ�˶��롼�פλ��֤�¬�ꤷ, ³���Ƽºݤ�����������֤�¬�ꤷ�ޤ�.
tcl/tk ��(��)����ΤȤ��� backing store ��Ȥ鷺��Χ���� 10000 ��(?)
��������Τ�, (��)�����Ϥ���, �ޥ����ʤ�Ť��ʤ�ޤ�.
demo/lines0.tcl : wish �ѤΥ�����ץ�.
demo/lines1.rb : `tk.rb' �ѤΥ�����ץ�.
demo/lines2.rb : tcltk �饤�֥���ѤΥ�����ץ�.
[����]
����ѥ���/�¹Ԥˤ�, tcl/tk �� C �饤�֥�꤬ɬ�פǤ�.
���Υ饤�֥���,
ruby-1.0-970701, ruby-1.0-970911, ruby-1.0-970919
FreeBSD 2.2.2-RELEASE
����Ӥ��Υѥå����� jp-tcl-7.6.tgz, jp-tk-4.2.tgz
�Ǻ���/ư���ǧ���ޤ���. ¾�δĶ��Ǥ�ư��뤫�ɤ����狼��ޤ���.
TclTkLib.mainloop ��¹���� Control-C �������ʤ��Τ����ؤʤΤ�, ruby
�Υ������ͤ�, #include "sig.h" ���� trap_immediate �����Ƥ���
����, ruby �� README.EXT �ˤ�Ƥʤ��Τ�, ����ʤ��Ȥ��ɤ��Τ�
�ɤ����狼��ޤ���.
-d ���ץ����ǥǥХå������ɽ�������뤿���, ruby �Υ������ͤ�,
debug �Ȥ�������ѿ��Ȥ��Ƥ��ޤ���, ruby �� README.EXT �ˤ��
�ʤ��Τ�, ����ʤ��Ȥ��ɤ��Τ��ɤ����狼��ޤ���.
extconf.rb �Ͻޤ�����, (���������ʰ�̣��)������ɤ��Τ��ɤ�ʬ����
�ޤ���.
[��ħ]
ruby ���� tcl/tk �饤�֥������ѤǤ��ޤ�.
tcl/tk ���ץ�Υ�����ץȤ�, ����Ū�� tcltk �饤�֥���Ѥ� ruby
������ץȤ��Ѵ��Ǥ��ޤ�.
(`tk.rb' �Ȥΰ㤤)
1. tcl/tk ���ץ�Υ�����ץȤ�, �ɤΤ褦��, tcltk �饤�֥���Ѥ�
ruby ������ץȤ��Ѵ�����뤫������Ǥ����, �ޥ˥奢���ब̵������
���� `tk.rb' �Ȥϰۤʤ�
tcl/tk �Υޥ˥奢��䥪��饤��ɥ�����Ȥ��Ѥ���
��Ψ�ɤ��ץ�����ߥ�Ԥ����Ȥ��Ǥ��ޤ�.
������ˡ���狼��ʤ�, ���ޥ�ɤ�Ϳ����ѥ������狼��ʤ�...
- Canvas.new { ... } ��, �ʤ����ƥ졼���֥��å�����??
- Canvas �� bbox �Ͽ��ͤΥꥹ�Ȥ��֤��Τ�, xview ��ʸ������֤���??
��, ��������, �饤�֥��Υ��������ɤ�������ɬ�פϤ���ޤ���.
2. �ġ��ε�ǽ(���ץ����)����̽����ˤ�ꥵ�ݡ��Ȥ��Ƥ���, ���Τ��
�ݡ��Ȥ��Ƥ��ʤ���ǽ�ϻȤ����Ȥ��Ǥ��ʤ�(�����ϻȤ��ʤ����Ȥ�ʤ���
�Ǥ���) `tk.rb' �Ȥϰۤʤ�, tcl/tk ���ץ�Dz�ǽ�ʤ��Ȥ�
�ۤȤ��
ruby �����¹ԤǤ��ޤ�. ����, ruby ����¹ԤǤ��ʤ����Ȥ���ǧ����
�Ƥ���Τ�,
bind ���ޥ�ɤǥ�����ץȤ��ɲä��빽ʸ
��bind tag sequence +script��
^
�ΤߤǤ�.
- `. configure -width' �褦�Ȥ���, `Tk.root.height()' �Ƚ�
���Τ�, `undefined method `height'' ���ܤ��Ƥ��ޤä�. tk.rb ��
�ɤ�Ǥߤ�, ������. �Ǥ��ʤ��Τ�...
�Ȥ������ȤϤ���ޤ���.
3. wish �ץ�������ư���ץ��������̿��� wish �����Ѥ��� `tk.rb' �Ȥ�
�ۤʤ�, tcl/tk �� C �饤�֥�����
����®�� (�Ȥ��äƤ�, �פä�����®���ʤ��Ǥ���)
������Ԥ��ޤ�.
4. `tk.rb' �ۤ�, ����ʥ����ե������������Ƥ��ʤ�����, tcl/tk ��
�ץ��������
�����鲿�ޤǼ�ʬ�ǵ���
���ʤ���Фʤ�ޤ���(��������, tcl/tk �饤�֥��λ����̤�,
tcl/tk ���ץ��ʣ���������뤳�Ȥ�Ǥ��ޤ���).
�����ե�������(�����餯) ruby �λ��ۤ˱�ä���ΤǤϤ���ޤ���.
�ޤ�, ������ץȤε��Ҥ�
��������
�Ǥ�. ������ץȤ�, �츫, �ɤߤŤ餤��ΤȤʤ�ޤ�. ��, �ͤˤȤ�
�Ƥ�, ����ۤ��Ѥ路����ΤǤϤʤ��Ȼפ��ޤ�.
[���ȡ������ˡ]
0. ruby �Υ������ե�����(ruby-1.0-�ʤ�.tgz)��Ÿ�����Ƥ����ޤ�.
1. ruby-1.0-�ʤ�/ext �� ext/tcltklib �ԡ����ޤ�.
cp -r ext/tcltklib ???/ruby-1.0-�ʤ�/ext/
2. ruby �Υ��ȡ���ˡ�˽��� make ���ޤ�.
3. ruby �Υ饤�֥���־�� lib/* �ԡ����ޤ�.
cp lib/* /usr/local/lib/ruby/
(eof)
|