Lines Matching defs:lineNum
19 set lineNum [lindex $cursor 0]
20 set line [viGetLine $viScreenId $lineNum]
23 confNext $lineNum $line
25 sevNext $lineNum $line
27 priNext $lineNum $line
29 classNext $lineNum $line
31 catNext $lineNum $line
35 proc confNext {lineNum line} {
39 viSetLine $viScreenId $lineNum ">Confidential: no"
41 viSetLine $viScreenId $lineNum ">Confidential: yes"
45 proc sevNext {lineNum line} {
49 viSetLine $viScreenId $lineNum ">Severity: serious"
51 viSetLine $viScreenId $lineNum ">Severity: critical"
53 viSetLine $viScreenId $lineNum ">Severity: non-critical"
57 proc priNext {lineNum line} {
61 viSetLine $viScreenId $lineNum ">Priority: medium"
63 viSetLine $viScreenId $lineNum ">Priority: high"
65 viSetLine $viScreenId $lineNum ">Priority: low"
69 proc classNext {lineNum line} {
73 viSetLine $viScreenId $lineNum ">Class: doc-bug"
75 viSetLine $viScreenId $lineNum ">Class: change-request"
77 viSetLine $viScreenId $lineNum ">Class: support"
79 viSetLine $viScreenId $lineNum ">Class: sw-bug"
83 proc catNext {lineNum line} {
92 viSetLine $viScreenId $lineNum ">Class: [lindex $categories $curr]"