| # | Line 43 | Line 43 | proc addview {{pos end}} { # add current view | |
|---|---|---|
| 43 | return -1 | |
| 44 | } | |
| 45 | set curmess {} | |
| 46 | < | set n [lsearch -glob $radvar(view) "$viewname *"] |
| 46 | > | set n [lsearch -exact $radvar(view) $viewname] |
| 47 | > | if {$n < 0} { |
| 48 | > | set n [lsearch -glob $radvar(view) "$viewname *"] |
| 49 | > | } |
| 50 | if {$n >= 0} { | |
| 51 | set radvar(view) [lreplace $radvar(view) $n $n] | |
| 52 | if {"$pos" != "end" && $pos > $n} {incr pos -1} | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |