Lines Matching refs:v
42 if {[info exists v]} {unset v}
54 set v(db) $db
79 set v(editmenu) $editmenu
80 set v(history) 0
81 set v(historycnt) 0
82 set v(current) -1
83 set v(prompt) $prompt
84 set v(prior) {}
85 set v(plength) [string length $v(prompt)]
86 set v(x) 0
87 set v(y) 0
88 set v(mode) column
89 set v(header) on
93 $w.t insert end $v(prompt)
195 if {$v(historycnt)>0} {
196 set last [lindex $v(history) [expr $v(historycnt)-1]]
198 lappend v(history) $line
199 incr v(historycnt)
202 set v(history) [list $line]
203 set v(historycnt) 1
205 set v(current) $v(historycnt)
218 if {$v(prior)==""} {
221 set cmd $v(prior)\n$line
223 if {[string index $cmd 0]=="." || [$v(db) complete $cmd]} {
233 set v(prior) {}
234 $w insert end $v(prompt)
236 set v(prior) $cmd
237 regsub -all {[^ ]} $v(prompt) . x
253 set mode $v(mode)
254 set header $v(header)
257 regexp {^.[a-z]+ +([a-z]+)} $cmd all v(mode)
263 regexp {^.[a-z]+ +([a-z]+)} $cmd all v(header)
270 $v(db) eval {PRAGMA database_list} {
285 $v(db) eval {PRAGMA database_list} {
299 $v(db) eval {PRAGMA database_list} {
312 $v(db) eval $cmd x {
331 $v(db) eval $cmd x {
370 set y [$v(db) eval $cmd]
391 $v(db) eval $cmd x {
403 if {$v(current)<=0} return
404 incr v(current) -1
405 set line [lindex $v(history) $v(current)]
413 if {$v(current)>=$v(historycnt)} return
414 incr v(current) 1
415 set line [lindex $v(history) $v(current)]
437 set v(mouseMoved) 0
438 set v(pressX) $x
469 if {[$w compare $cur != $anchor] || (abs($v(pressX) - $x) >= 3)} {
470 if {$v(mouseMoved)==0} {
473 set v(mouseMoved) 1
482 if {$v(mouseMoved)} {
494 set v(y) $y
495 set v(x) $x
504 set v(y) $y
505 set v(x) $x
515 if {$v(y)>=[winfo height $w]} {
517 } elseif {$v(y)<0} {
522 sqlitecon::SelectTo $w $v(x) $v(y)
523 set v(timer) [after 50 sqlitecon::motor $w]
530 catch {after cancel $v(timer)}
531 catch {unset v(timer)}
599 set m $v(editmenu)