# | 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 |