まつもと ゆきひろです．

In message "[ruby-list:1469] wish ..."
    on 96/12/24, Noritugu Nakamura <nnakamur / tamaru.kuee.kyoto-u.ac.jp> writes:

|中村です。
|
|いくつか要望・願望です。
|
|○ ruby version 1.00 が出る際には、
|動作実績マシン一覧をつけて
|もらえないでしょうか？

ええと，松本も全部は把握していないんです．

私の手元にあるrubyの実績のあるマシンというと

  * i486-linux-aout
  * SunOS 4.1.3
  * Solaris 2.4
  * AIX 4.1

くらいでしょうか．あと

  * i486-linux-ELF
  * i486-linux-freebsd
  * hppa-hpux
  * nextstep  

などでも動くと思われます．情報のある人は追加してください．

|○ sample の Ruby/Tk に textvariable
|を使ったものを入れてくれると、うれしいです。
|使いたいのに、単に私が良く分かっていないと
|いうだけです。。。

うーむ，もう忘れてしまった．^^;;;

こんな感じでどうでしょう．tktimer.rbの改造です．
--
#!/usr/local/bin/ruby
# This script generates a counter with start and stop buttons.

require "tk"
$ticktext =  '0.00'
$label = TkLabel.new {
  textvariable :$ticktext
  relief 'raised'
  width 10
  pack('side'=>'bottom', 'fill'=>'both')
}

TkButton.new {
  text 'Start'
  command proc {
    if $stopped
      $stopped = FALSE
      tick
    end
  }
  pack('side'=>'left','fill'=>'both','expand'=>'yes')
}
TkButton.new {
  text 'Stop'
  command proc{
    $stopped = TRUE
  }
  pack('side'=>'right','fill'=>'both','expand'=>'yes')
}

$seconds=0
$hundredths=0
$stopped=TRUE

def tick
  if $stopped then return end
  Tk.after 50, proc{tick}
  $hundredths+=5
  if $hundredths >= 100
    $hundredths=0
    $seconds+=1
  end
  $ticktext = format("%d.%02d", $seconds, $hundredths)
end

root = Tk.root
root.bind "Control-c", proc{root.destroy}
root.bind "Control-q", proc{root.destroy}
Tk.root.focus
Tk.mainloop
--

ただし，tk.rbが思いきりバグってましたので，以下のパッチを当
てないと動きません．

--- lib/tk.rb~	Mon Nov 11 18:41:13 1996
+++ lib/tk.rb	Tue Dec 24 20:07:24 1996
@@ -486,12 +486,12 @@
     tk_call 'label', @path
   end
   def textvariable(v)
-    v = v.id2name unless v.kind_of "String"
+    v = v.id2name unless v.kind_of? String
     vn = @path + v
-    vset = format("global {%s}; set {%s}", vn, vn)
-    tk_call vset, eval(v).inspect
+    vset = format("global {%s}; set {%s} %%s", vn, vn)
+    tk_write vset, eval(v).inspect
     trace_var v, proc{|val|
-	tk_call vset, val.inspect
+      tk_write vset, val.inspect
     }
     configure 'textvariable', vn
   end
@@ -520,7 +520,7 @@
     tk_send 'select'
   end
   def variable(v)
-    v = v.id2name unless v.kind_of "String"
+    v = v.id2name unless v.kind_of? String
     if v =~ /^\$/
       v = $'
     else

|# http://www.ruby.or.jp/ は、まだないよう。。

欲しいですねえ．
                                お金がないよう…．
                                まつもと ゆきひろ /:|)