File: tkmngfocus.rb

package info (click to toggle)
ruby 1.4.3-6
  • links: PTS
  • area: main
  • in suites: potato
  • size: 4,068 kB
  • ctags: 7,509
  • sloc: ansic: 60,668; ruby: 23,106; yacc: 4,122; sh: 1,753; lisp: 997; makefile: 597; sed: 68; awk: 36; tcl: 31; perl: 17; python: 6
file content (27 lines) | stat: -rw-r--r-- 527 bytes parent folder | download 
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