摘要: class Person { public variable name "" public variable phone "" public variable email "" constructor {args} { eval configure $args } }This class has three public attributes: the person's name, phone number and e-mail address. Any extra args passed to the constructor 阅读全文
posted @ 2011-04-24 20:44 greencolor 阅读(313) 评论(0) 推荐(0) 编辑
摘要: =>namespace current::DCS::SocketProtocol=>set m_theObject [[namespace current] ::#auto]::socketProtocol0=>set m_theObject [[namespace current] ::#auto]::socketProtocol1=>set m_theObject [[namespace current] ::#auto]::socketProtocol2=>set m_theObject [[namespace current] ::#auto]::sock 阅读全文
posted @ 2011-04-24 20:32 greencolor 阅读(135) 评论(0) 推荐(0) 编辑
摘要: Application DcssUserProtocolDCS::DcssUserProtocol dcss \ $dcssHostName \ $dcssPort \ -useSSL [::config getDcssUseSSL] \ -authProtocol $authProtocol \ -_reconnectTime 1000 \ -callback "" \ -networkErrorCallback ""class in DcssUserProtocolconstructor {server port args}------------- 阅读全文
posted @ 2011-04-24 17:49 greencolor 阅读(150) 评论(0) 推荐(0) 编辑
摘要: class ::classname{ private variable m_device private variable m_label public method getLabel { device } { return $m_label($device) } public method getDevice { label } { return $m_device($label) } constructor { mapList } { puts "constructor $this" puts "list: $mapList" array set m 阅读全文
posted @ 2011-04-24 15:06 greencolor 阅读(199) 评论(0) 推荐(0) 编辑