summaryrefslogtreecommitdiff
path: root/jni/ruby/ext/tk/lib/tkextlib/tcllib/ntext.rb
blob: 7888ed487156b730b861746c929555c430a63067 (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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
#
#  tkextlib/tcllib/ntext.rb
#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
#
#   * Part of tcllib extension
#   * Ntext bindtag
#

require 'tk'
require 'tkextlib/tcllib.rb'

# TkPackage.require('ntext', '0.81')
TkPackage.require('ntext')

module Tk::Tcllib
  Ntext = TkBindTag.new_by_name('Ntext')
end

# variables
Tk::Tcllib::Ntext.instance_eval{
  # boolean
  @classicAnchor = TkVarAccess.new('::ntext::classicAnchor')
  @classicExtras  = TkVarAccess.new('::ntext::classicExtras')
  @classicMouseSelect = TkVarAccess.new('::ntext::classicMouseSelect')
  @classicWordBreak = TkVarAccess.new('::ntext::classicWordBreak')
  @classicWrap = TkVarAccess.new('::ntext::classicWrap')
  @overwrite = TkVarAccess.new('::ntext::overwrite')

  # regexp
  @newWrapRegexp = TkVarAccess.new('::ntext::newWrapRegexp')

  # variables (advanced use)
  @tcl_match_wordBreakAfter = TkVarAccess.new('::ntext::tcl_match_wordBreakAfter')
  @tcl_match_wordBreakBefore = TkVarAccess.new('::ntext::tcl_match_wordBreakBefore')
  @tcl_match_endOfWord = TkVarAccess.new('::ntext::tcl_match_endOfWord')
  @tcl_match_startOfNextWord = TkVarAccess.new('::ntext::tcl_match_startOfNextWord')
  @tcl_match_startOfPreviousWord = TkVarAccess.new('::ntext::tcl_match_startOfPreviousWord')
}

class << Tk::Tcllib::Ntext
  def wrapIndent(txt, *args)
    TK.tk_call('::next::wrapIndent', txt, *args)
  end

  def initializeMatchPatterns
    TK.tk_call('::next::initializeMatchPatterns')
    self
  end

  def createMatchPatterns(*args)
    TK.tk_call('::next::createMatchPatterns', *args)
    self
  end

  # functions (advanced use)
  #ntext::new_wordBreakAfter
  #ntext::new_wordBreakBefore
  #ntext::new_endOfWord
  #ntext::new_startOfNextWord
  #ntext::new_startOfPreviousWord

  # accessor
  def classicAnchor
    @classicAnchor.bool
  end
  def classicAnchor=(mode)
    @classicAnchor.bool = mode
  end

  def classicExtras
    @classicExtras.bool
  end
  def classicExtras=(mode)
    @classicExtras.bool = mode
  end

  def classicMouseSelect
    @classicMouseSelect.bool
  end
  def classicMouseSelect=(mode)
    @classicMouseSelect.bool = mode
  end

  def classicWordBreak
    @classicWordBreak.bool
  end
  def classicWordBreak=(mode)
    @classicWordBreak.bool = mode
  end

  def classicWrap
    @classicWrap.bool
  end
  def classicWrap=(mode)
    @classicWrap.bool = mode
  end

  def overwrite
    @overwrite.bool
  end
  def overwrite=(mode)
    @classic.bool = mode
  end

  def newWrapRegexp
    @newWrapRegexp.value
  end
  def newWrapRegexp=(val)
    @newWrapRegexp.value = val
  end

  def tcl_match_wordBreakAfter
    @tcl_match_wordBreakAfter.value
  end
  def tcl_match_wordBreakAfter=(val)
    @tcl_match_wordBreakAfter.value = val
  end

  def tcl_match_wordBreakBefore
    @tcl_match_wordBreakBefore.value
  end
  def tcl_match_wordBreakBefore=(val)
    @tcl_match_wordBreakBefore.value = val
  end

  def tcl_match_endOfWord
    @tcl_match_endOfWord.value
  end
  def tcl_match_endOfWord=(val)
    @tcl_match_endOfWord.value = val
  end

  def tcl_match_startOfNextWord
    @tcl_match_startOfNextWord.value
  end
  def tcl_match_startOfNextWord=(val)
    @tcl_match_startOfNextWord.value = val
  end

  def tcl_match_startOfPreviousWord
    @tcl_match_startOfPreviousWord.value
  end
  def tcl_match_startOfPreviousWord=(val)
    @tcl_match_startOfPreviousWord.value = val
  end
end