From 0a64817fb80016030c03518fb9459f63c11605ea Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 13 Aug 1999 05:37:52 +0000
Subject: remove marshal/gtk/kconv

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@518 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tkmngfocus.rb | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 ext/tk/lib/tkmngfocus.rb

(limited to 'ext/tk/lib/tkmngfocus.rb')

diff --git a/ext/tk/lib/tkmngfocus.rb b/ext/tk/lib/tkmngfocus.rb
new file mode 100644
index 0000000000..921fb646e7
--- /dev/null
+++ b/ext/tk/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
-- 
cgit v1.2.3