Это код сценария в gui.tcl:
label .login.nickLabel -text "User:"
entry .login.nick
label .login.hostLabel -text "Host:"
entry .login.host
chat::logic::login [.login.host get] [.login.nick get]
, а это код в logic.tcl:
proc chat::logic::login {hostName nickName} {
chat::model::getSock $hostName
...
}
, а это код в model.tcl:
proc chat::model:::getSock {hostName} {
variable sock
set sock [socket $hostName 9988]
fconfigure $sock -buffering line
return $sock
}
Когда я запускаю код, он сообщает об ошибке: неправильно # args: должно быть "chat :: model :: getSock hostName"
Как это исправить?