Lines Matching full:port_set
6566 " global port_reply port_set\n"
6610 " set port_set $guess\n"
6638 " entry .pp.f.e -width 8 -textvariable port_set -font $ffont\n"
6688 " regsub -all {^:} $port_set \"\" port_set\n"
6689 " regsub -all {[ \\t]} $port_set \"\" port_set\n"
6690 " if {[regexp {^[0-9][0-9]*$} $port_set]} {\n"
6691 " if {$port_set < 0} {\n"
6692 " set port_set [expr 0 - $port_set]\n"
6693 " } elseif {$port_set < 200} {\n"
6694 " set port_set [expr $port_set + 5900]\n"
6696 " puts \"$port_set:ssl${enable_ssl}:localhost$localhost:ft_$file_transfer\"\n"
