Lines Matching refs:index
161 set entryString [string range [$w get] [$w index sel.first] \
162 [expr {[$w index sel.last] - 1}]]
164 return [string repeat [string index [$w cget -show] 0] \
206 # Returns the index of the character just after the boundary.
209 set pos [$w index @$x]
217 ## See $index -- Make sure that the character at $index is visible.
219 proc ttk::entry::See {w {index insert}} {
221 set c [$w index $index]
222 # @@@ OR: check [$w index left] / [$w index right]
223 if {$c < [$w index @0] || $c >= [$w index @[winfo width $w]]} {
238 set pos [tcl_endOfWord [$w get] [$w index $start]]
251 set pos [tcl_startOfPreviousWord [$w get] [$w index $start]]
258 ## RelIndex -- Compute character/word/line-relative index.
260 proc ttk::entry::RelIndex {w where {index insert}} {
262 prevchar { expr {[$w index $index] - 1} }
263 nextchar { expr {[$w index $index] + 1} }
264 prevword { PrevWord $w $index }
265 nextword { NextWord $w $index }
267 end { $w index end }
268 default { error "Bad relative index $index" }
285 ## ExtendTo -- Extend the selection to the specified index.
290 # (2) if the index is outside the selection, grow the selection;
298 proc ttk::entry::ExtendTo {w index} {
299 set index [$w index $index]
300 set insert [$w index insert]
306 set selfirst [$w index sel.first]
307 set sellast [$w index sel.last]
309 if { ($index < $selfirst)
310 || ($insert == $selfirst && $index <= $sellast)
319 if {$anchor < $index} {
320 $w selection range $anchor $index
322 $w selection range $index $anchor
325 $w icursor $index
356 set State(anchor) [$w index insert]
434 ## CharSelect -- select characters between index $from and $to
445 ## WordSelect -- Select whole words between index $from and $to
462 proc ttk::entry::WordBack {text index} {
463 if {[set pos [tcl_wordBreakBefore $text $index]] < 0} { return 0 }
466 proc ttk::entry::WordForward {text index} {
467 if {[set pos [tcl_wordBreakAfter $text $index]] < 0} { return end }
488 set State(scanIndex) [$w index @0]
504 if {$left != [set newLeft [$w index @0]]} {
565 set x [expr {[$w index insert] - 1}]
570 if {[$w index @0] >= [$w index insert]} {