Cross Reference: /ast/src/lib/libtk/library/entry.tcl

Lines Matching refs:first

40 	    %W delete sel.first sel.last
59     %W delete sel.first sel.last
75     catch {%W icursor sel.first}
160 	%W delete sel.first sel.last
453 	if {([$w index sel.first] <= $insert)
455 	    $w delete sel.first sel.last
472 	$w delete sel.first sel.last
536     set first [expr $i-2]
537     if {$first < 0} {
540     set new [string index [$w get] [expr $i-1]][string index [$w get] $first]
541     $w delete $first $i