Lines Matching refs:ans
1361 set ans [tk_dialog .confirm "[m {Confirm Deletion - RP-PPPoE}]" "[m {Are you sure you wish to delete the connection}] `$conn'?" warning 0 No Yes]
1362 if {$ans} {
2128 set ans {}
2129 if {[catch {lappend ans ConnectionName [$w.conName get]}]} {
2130 lappend ans ConnectionName [$w.conName cget -text]
2132 lappend ans UserName [$w.user get]
2133 lappend ans NetworkName [$w.network get]
2134 lappend ans Password [$w.pass get]
2135 lappend ans Interface [$w.ifname get]
2136 lappend ans DNSType [$w.dns cget -text]
2137 lappend ans DNS1 [$w.dns1 get]
2138 lappend ans DNS2 [$w.dns2 get]
2139 lappend ans NonrootOK $OPTS(nonroot)
2140 lappend ans Sync $OPTS(sync)
2141 lappend ans FirewallType [$w.fw cget -text]
2142 lappend ans ServiceName [$w.servicename get]
2143 lappend ans ACName [$w.acname get]
2146 set name [value $ans ConnectionName]
2152 set type [value $ans DNSType]
2154 set dns [value $ans DNS1]
2158 set dns [value $ans DNS2]
2163 return $ans
2315 set ans {}
2327 set ans [string range $rest 0 [expr $nextquote-1]]
2329 return [list $ans $rest]
2339 return [list $ans $rest]
2345 append ans $char
2347 return [list $ans $rest]
2425 set ans ""
2428 append ans $char
2430 append ans "\\$char"
2433 return $ans