diff options
Diffstat (limited to 'ext/tk/sample/tkline.rb')
| -rw-r--r-- | ext/tk/sample/tkline.rb | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/ext/tk/sample/tkline.rb b/ext/tk/sample/tkline.rb deleted file mode 100644 index f823319f76..0000000000 --- a/ext/tk/sample/tkline.rb +++ /dev/null @@ -1,48 +0,0 @@ -# frozen_string_literal: false - -require "tkclass" - -$tkline_init = false -def start_random - return if $tkline_init - $tkline_init = true - if defined? Thread - Thread.start do - loop do - sleep 2 - Line.new($c, rand(400), rand(200), rand(400), rand(200)) - end - end - end -end - -Label.new('text'=>'Please press or drag button-1').pack - -$c = Canvas.new -$c.pack -$start_x = start_y = 0 - -def do_press(x, y) - $start_x = x - $start_y = y - $current_line = Line.new($c, x, y, x, y) - start_random -end -def do_motion(x, y) - if $current_line - $current_line.coords $start_x, $start_y, x, y - end -end - -def do_release(x, y) - if $current_line - $current_line.coords $start_x, $start_y, x, y - $current_line.fill 'black' - $current_line = nil - end -end - -$c.bind("1", proc{|e| do_press e.x, e.y}) -$c.bind("B1-Motion", proc{|x, y| do_motion x, y}, "%x %y") -$c.bind("ButtonRelease-1", proc{|x, y| do_release x, y}, "%x %y") -Tk.mainloop |