Lines Matching full:port_set
6555 global port_reply port_set
6599 set port_set $guess
6627 entry .pp.f.e -width 8 -textvariable port_set -font $ffont
6677 regsub -all {^:} $port_set "" port_set
6678 regsub -all {[ \t]} $port_set "" port_set
6679 if {[regexp {^[0-9][0-9]*$} $port_set]} {
6680 if {$port_set < 0} {
6681 set port_set [expr 0 - $port_set]
6682 } elseif {$port_set < 200} {
6683 set port_set [expr $port_set + 5900]
6685 puts "$port_set:ssl${enable_ssl}:localhost$localhost:ft_$file_transfer"
