(tof) 2003/06/19 Hidetoshi NAGAI �ܥɥ�����ȤˤϸŤ� tcltk �饤�֥�ꡤtcltklib �饤�֥������� ���ޤޤ�Ƥ��ޤ��������ε������ƤϸŤ���ΤȤʤäƤ��ޤ��� �ޤ������ߤ� Ruby/Tk ���濴�Ǥ��� tk.rb �� wish ��ƤӽФ�����Ϥ� ����tcltklib �饤�֥��� wrap ����ư����ΤȤʤäƤ��ޤ������� ���ᡤ�Ť��������ҤǽҤ٤��Ƥ���褦�ʥץ��������̿��ˤ�륪���� �إåɤ�¸�ߤ��ޤ��� ���ߤ� tcltklib �饤�֥��Ǥ⡤Tcl/Tk �� C �饤�֥����󥯤��� ľ�ܤ�ư�������Ȥǡ������Хإåɤ򲡤����Ĥ� Tcl/Tk ���󥿡��ץ꥿ �Τۤ�����ǽ�ʳ�ĥ�饤�֥���ޤ�ˤ�Ȥ�������Ʊ���Ǥ����������� �������Ϥۤܡ�tk.rb �ʲ��Υ饤�֥������Ū��Ư�����뤿��Τ�Ρ� �ȸ��ʤ���Ƥ��ꡤ������Ū�ǥ��ƥʥ󥹤���Ƥ��ޤ��� tk.rb �ιⵡǽ����ȼ�äơ�����Υ饤�֥��Ǥ��� tcltk �饤�֥�� ��tcltk.rb�ˤϤ���¸�߰յ��򸺤��Ƥ��ꡤ���ߤǤϥ��ƥʥ󥹤ϹԤ� ��Ƥ��ޤ��� �ʤ����Ť������ǤϥХ���ǥ��󥰤ˤ����륹����ץȤ��ɲäϤǤ��ʤ��� �ȤȤʤäƤ��ޤ��������ߤ� tk.rb �ǤϤ�����ǽ�Ǥ��뤳�Ȥ���­���� �����ޤ��� �ʲ����饤�֥��θŤ�����ʸ��Ǥ��� ============================================================== 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)