From: matz@... (Yukihiro Matsumoto)
Date: 1997-10-23T11:36:35+09:00
Subject: [ruby-list:5113] Re: ruby & tk(wish)

まつもと ゆきひろです

In message "[ruby-list:5112] ruby & tk(wish)"
    on 97/10/23, Tateishi Takaaki <tateishi@sy.is.noda.sut.ac.jp> writes:

|立石＠理科大情報です。
|
|rubyでtkを使うときにはwishにパイプを通して
|使っていますよね？

ええ，現在の実装はそうです．将来はきっと変わると思います．

|wishでは結構オブジェクト指向的な文法になって
|いると思うのでそのほうが使いやすいというのが
|僕の思うところなんですが、皆さんはどうなんでしょう？

私はtclがあんまり好きでないですからねえ．好みはあるでしょう．
でも立石さんと同じことを考える人は他にもいて，阪大の重広さん
がtcltklibという拡張モジュールを作成中です．

こんな感じで使うようです．そのうち正式リリースなるのでしょう
か？ ＞ 重広さん

#! /usr/local/bin/ruby

require "tcltk"

def drawlines()
  print Time.now, "\n"

  for j in 0 .. 99
    print "*"
    $stdout.flush
    if (j & 1) != 0
      col = "blue"
    else
      col = "red"
    end
    for i in 0 .. 99
#      $a.e("create line", i, 0, 0, 500 - i, "-fill", col)
    end
  end

  print Time.now, "\n"

  for j in 0 .. 99
    print "*"
    $stdout.flush
    if (j & 1) != 0
      col = "blue"
    else
      col = "red"
    end
    for i in 0 .. 99
      $a.e("create line", i, 0, 0, 500 - i, "-fill", col)
    end
  end

  print Time.now, "\n"
#  $ip.commands()["destroy"].e($root)
end

$ip = TclTkInterpreter.new()
$root = $ip.rootwidget()
$a = TclTkWidget.new($ip, $root, "canvas", "-height 500 -width 500")
$c = TclTkCallback.new($ip, proc{drawlines()})
$b = TclTkWidget.new($ip, $root, "button", "-text draw -command", $c)

$ip.commands()["pack"].e($a, $b, "-side left")

TclTk.mainloop

# eof