summaryrefslogtreecommitdiff
path: root/lib/tk.rb
diff options
context:
space:
mode:
Diffstat (limited to 'lib/tk.rb')
-rw-r--r--lib/tk.rb22
1 files changed, 20 insertions, 2 deletions
diff --git a/lib/tk.rb b/lib/tk.rb
index 13cb49beaa..f44a1fe4a8 100644
--- a/lib/tk.rb
+++ b/lib/tk.rb
@@ -903,7 +903,7 @@ class TkVariable
@trace_var.each_with_index{|i,e|
if idx < 0 && e[0] == opts && e[1] == cmd
idx = i
- continue
+ next
end
e[0].each_byte{|c| newopts += c.chr unless newopts.index(c)}
}
@@ -937,7 +937,7 @@ class TkVariable
@trace_elem[elem].each_with_index{|i,e|
if idx < 0 && e[0] == opts && e[1] == cmd
idx = i
- continue
+ next
end
}
if idx >= 0
@@ -1322,6 +1322,24 @@ module TkWinfo
def winfo_viewable
TkWinfo.viewable self
end
+ def TkWinfo.pointerx(window)
+ number(tk_call('winfo', 'pointerx', window.path))
+ end
+ def winfo_pointerx
+ TkWinfo.pointerx self
+ end
+ def TkWinfo.pointery(window)
+ number(tk_call('winfo', 'pointery', window.path))
+ end
+ def winfo_pointery
+ TkWinfo.pointery self
+ end
+ def TkWinfo.pointerxy(window)
+ list(tk_call('winfo', 'pointerxy', window.path))
+ end
+ def winfo_pointerxy
+ TkWinfo.pointerxy self
+ end
end
module TkPack