ext/tk/lib/tkmngfocus.rb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

#
#   tkmngfocus.rb : methods for Tcl/Tk standard library 'focus.tcl'
#                           by Hidetoshi Nagai <nagai@ai.kyutech.ac.jp>
#
require 'tk'

module TkManageFocus
  extend Tk

  TkCommandNames = [
    'tk_focusFollowMouse'.freeze, 
    'tk_focusNext'.freeze, 
    'tk_focusPrev'.freeze
  ].freeze

  def TkManageFocus.followsMouse
    tk_call 'tk_focusFollowsMouse'
  end

  def TkManageFocus.next(window)
    tk_tcl2ruby(tk_call('tk_focusNext', window))
  end
  def focusNext
    TkManageFocus.next(self)
  end

  def TkManageFocus.prev(window)
    tk_tcl2ruby(tk_call('tk_focusPrev', window))
  end
  def focusPrev
    TkManageFocus.prev(self)
  end
end