constructor with args tcl tk

Application DcssUserProtocol

DCS::DcssUserProtocol dcss \
   $dcssHostName \
   $dcssPort \
         -useSSL [::config getDcssUseSSL] \
   -authProtocol $authProtocol \
   -_reconnectTime 1000 \
   -callback "" \
   -networkErrorCallback ""

class in DcssUserProtocol

constructor  {server port args}

---------------------------------

new a class named as dcss, which has the properity as DcssUserProtocol

server    $dcssHostName

port       $dcssPort

args       -useSSL [::config getDcssUseSSL]   -authProtocol $authProtocol  -_reconnectTime 1000  -callback ""   -networkErrorCallback ""

原文地址:https://www.cnblogs.com/greencolor/p/2026328.html