summaryrefslogtreecommitdiff
path: root/lib/tkentry.rb
blob: dbd848d0cad9dd4803197c6305da638b57d983d7 (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
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