Lines Matching refs:newvalue
124 method C-str {o newvalue} {
127 set mysrc $newvalue
131 method C-var {o newvalue} {
135 if {![uplevel \#0 {info exists $newvalue}]} {
136 return -code error "Bad variable \"$newvalue\", does not exist"
139 set mysrc $newvalue
143 method C-chan {o newvalue} {
144 if {![llength [file channels $newvalue]]} {
145 return -code error "Bad channel handle \"$newvalue\", does not exist"
149 set mysrc $newvalue
153 method C-file {o newvalue} {
154 if {![file exists $newvalue]} {
155 return -code error "File \"$newvalue\" does not exist"
157 if {![file readable $newvalue]} {
158 return -code error "File \"$newvalue\" not readable"
160 if {![file isfile $newvalue]} {
161 return -code error "File \"$newvalue\" not a file"
165 set mysrc $newvalue