blob: 921fb646e7a9055f810741c7750d82d2dc4b254b (
plain)
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
|
#
# 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
|