From: nagai@...
Date: 2002-04-26T12:12:55+09:00
Subject: Re: Tk under Ruby [newbie to ruby]

Hi, 

From: "Kontra, Gergely" <kgergely@mlabdial.hit.bme.hu>
Subject: Re: Tk under Ruby [newbie to ruby]
Date: Thu, 25 Apr 2002 21:54:48 +0900
Message-ID: <Pine.LNX.4.21.0204251451510.21246-100000@mlabdial.hit.bme.hu>
> Err. I haven't find any documentation about Tk.after
> Can you give me a very short example, which eg. reads from a socket, and
> writes it to a text widget?

For example, 
---------------------------------------
require 'tk'
require 'socket'

# generate widgets
lbl = TkLabel.new(nil, 'text'=>'no connection').pack
txt = TkText.new.pack
interval = [100,500]
tmr = TkAfter.new(proc{interval.push(interval.shift); interval[0]}, -1, 
                  proc{lbl.foreground '#ff0000'}, 
                  proc{lbl.foreground '#220000'})

# socket open
gate = TCPServer.new(33333)
Thread.new{
  loop do
    sock = gate.accept
    lbl.text 'connecting'
    tmr.start
    while msg = sock.gets
      txt.insert('end', msg)
    end
    sock.close
    tmr.stop
    lbl.text 'no connection'
    lbl.foreground 'black'
  end
}

Tk.mainloop
---------------------------------------
-- 
                                  Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)