1#! /usr/local/bin/ruby
2
3require "tk"
4
5def drawlines()
6  print Time.now, "\n"
7
8  for j in 0 .. 99
9    print "*"
10    $stdout.flush
11    if (j & 1) != 0
12      col = "blue"
13    else
14      col = "red"
15    end
16    for i in 0 .. 99
17#      TkcLine.new($a, i, 0, 0, 500 - i, "-fill", col)
18    end
19  end
20
21  print Time.now, "\n"
22
23  for j in 0 .. 99
24    print "*"
25    $stdout.flush
26    if (j & 1) != 0
27      col = "blue"
28    else
29      col = "red"
30    end
31    for i in 0 .. 99
32      TkcLine.new($a, i, 0, 0, 500 - i, "-fill", col)
33    end
34  end
35
36  print Time.now, "\n"
37#  Tk.root.destroy
38end
39
40$a = TkCanvas.new{
41  height(500)
42  width(500)
43}
44
45$b = TkButton.new{
46  text("draw")
47  command(proc{drawlines()})
48}
49
50TkPack.configure($a, $b, {"side"=>"left"})
51
52Tk.mainloop
53
54# eof
55