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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#
# tkentry.rb - Tk entry classes
# $Date: 1995/12/07 15:01:10 $
# by Yukihiro Matsumoto <matz@caelum.co.jp>
require 'tk.rb'
class TkEntry:TkLabel
def create_self
tk_call 'entry', @path
end
def scrollcommand(cmd)
configure 'scrollcommand', cmd
end
def delete(s, e=None)
if e
tk_send 'delete', s
else
tk_send 'delete', s, e
end
end
def cursor
tk_send 'index', 'insert'
end
def cursor=(index)
tk_send 'icursor', index
end
def index(index)
tk_send 'index', index
end
def insert(text, pos=None)
if pos
tk_send 'icursor', pos
end
tk_send 'insert', 'insert', text
end
def mark(pos)
tk_send 'scan', 'mark', pos
end
def dragto(pos)
tk_send 'scan', 'dragto', pos
end
def select_adjust(index)
tk_send 'select', 'adjust', index
end
def select_clear
tk_send 'select', 'clear', 'end'
end
def select_from(index)
tk_send 'select', 'from', index
end
def select_present()
tk_send('select', 'present') == 1
end
def select_range(s, e)
tk_send 'select', 'range', s, e
end
def select_to(index)
tk_send 'select', 'to', index
end
def xview(*index)
tk_send 'xview', *index
end
def value
tk_send 'get'
end
def value= (val)
tk_send 'delete', 0, 'end'
tk_send 'insert', 0, val
end
end
|
