summaryrefslogtreecommitdiff
path: root/lib/tkmngfocus.rb
diff options
context:
space:
mode:
Diffstat (limited to 'lib/tkmngfocus.rb')
-rw-r--r--lib/tkmngfocus.rb27
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/tkmngfocus.rb b/lib/tkmngfocus.rb
new file mode 100644
index 00000000000..921fb646e7a
--- /dev/null
+++ b/lib/tkmngfocus.rb
@@ -0,0 +1,27 @@
+#
+# tkmngfocus.rb : methods for Tcl/Tk standard library 'focus.tcl'
+# 1998/07/16 by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
+#
+require 'tk'
+
+module TkManageFocus
+ extend Tk
+
+ def TkManageFocus.followsMouse
+ tk_call 'tk_focusFollowsMouse'
+ end
+
+ def TkManageFocus.next(window)
+ tk_call 'tk_focusNext', window
+ end
+ def focusNext
+ TkManageFocus.next(self)
+ end
+
+ def TkManageFocus.prev(window)
+ tk_call 'tk_focusPrev', window
+ end
+ def focusPrev
+ TkManageFocus.prev(self)
+ end
+end