=>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
转载
2011-04-24 20:32:00
168阅读
2评论
info proc info commands
转载
2011-05-04 20:35:00
434阅读
2评论
if [catch {load $library dcs_c_library} err] {puts "-----------------------------------------------------------------------------"puts $err }
转载
2011-04-25 12:25:00
191阅读
2评论
package require Itclitcl::class Person { public variable name "" public variable phone "" public variable email "" constructor {args} {set aaa "sd"eval configure $args }destructor {}}Person aaa -name "aa" -phone "1243" -email "ab@cc.co
转载
2011-04-25 12:22:00
176阅读
2评论
fifile atime name ?time? file attributes name file attributes name ?option? file attributes name ?option value option value...? file channels ?pattern? file copy ?-force? ?--? source target file copy ?-force? ?--? source ?source ...? targetDir file delete ?-force? ?--? pathname ?pathname ... ? file
转载
2011-03-27 19:21:00
117阅读
2评论
lappend - 将元素添加到列表末尾 语法lappend varName ?value value value ...?
转载
2011-03-27 18:55:00
117阅读
2评论
package require Itclitcl::class sampleconf { ;# a sample class with a single public variable public variable publicv ;# this var is adjusted using the configure -publicv... constructor {} { } method setpublicv {dn} { set publicv "$dn" puts $dn } method shwopublicv {} { puts $publicv } }# c
转载
2011-05-10 14:36:00
167阅读
2评论
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
转载
2011-04-24 15:06:00
443阅读
2评论
摘要Abstract：Tcl/Tck脚本可以很容易实现用户自定义的命令，方便的创建图形化的用户界面GUI，所以Tcl和Tk的应用领域几乎覆盖了图形和工程应用的全部范围，包括计算机辅助设计、软件开发、测试、仪器控制、科学可视化及多媒体方面。即可以使用Tcl/Tk实现AVEVA中的PML类似的功能，允许用户自己编写简单程序实现程序的二次开发。 关键字Key Words：AVEVA, PDMS, PML
转载
2021-08-17 13:43:08
488阅读
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
转载
2011-04-24 20:44:00
138阅读
2评论
Linux system is known for its powerful capabilities for developers and programmers due to its open-source nature and wide range of features. One of the popular programming languages used in Linux is T
原创
2024-03-29 10:13:36
188阅读
关于本教程 谁应该学习本教程？ 本教程是针对那些具有一种或多种编程或脚本语言经验的人员设计的。可以在几种平台（包括 Win32 和 MacOS 以及几个 *NIX 环境）上使用 Tcl/Tk，本教程是在运行安装了 GNU/Linux 的环境中编写的。 首先，我将介绍 Tcl/Tk 并概述该语言的一小段历史。然后，回顾 Tcl/Tk 脚本语言和解释器的关键功能，讨论该语言的一些扩展，并研
主页: http://www.tcl.tkhttp://www.tcl.tk/software/tcltk/download.html解压缩源码包tarzxvf tcl8.6.1-src.tar.gztarzxvf
tk8.6.1-src.tar.gz2. 安装cd tcl8.6.1cd unix./configure --prefix=/usr/tcl
--enable-sharedmake
原创
2015-06-23 17:11:46
2071阅读
package require Img set image [image create photo -file /home/name/Desktop/Untitled.bmp] label .txt -text 'aaa'label .l -image $image pack .lpack .txt
转载
2011-07-22 15:46:00
139阅读
2评论
class Singleton { private common _instance {} ;# static instance variable # # Define a "static method" Instance. # proc Instance {} { if { $_instance == {} } { set _instance [Singleton ABC] } return $_instance } # end of Instance constructor {} { set caller [info level [expr [info level] -
转载
2011-05-15 13:08:00
131阅读
2评论
Application DcssUserProtocolDCS::DcssUserProtocol dcss \ $dcssHostName \ $dcssPort \ -useSSL [::config getDcssUseSSL] \ -authProtocol $authProtocol \ -_reconnectTime 1000 \ -callback "" \ -networkErrorCallback ""class in DcssUserProtocolconstructor {server port args}-------------
转载
2011-04-24 17:49:00
356阅读
2评论
set package_loading_result(img::jpeg) [catch {package require img::jpeg 1.3}]set package_loading_result(img::gif) [catch {package require img::gif 1.3}]set package_loading_result(img::png) [catch {package require img::png 1.3}]# Check for package loading successset l_failures 0foreach i_package [arr
转载
2011-04-20 14:00:00
148阅读
2评论
The method to get Date Tcltkproc GetDate { args } { #---------------------------------------------------------------#d_sum Return the date/time appropriately formatted#d_desc Uses Tcl clock command. Return the current time if the -clock \argument is not used. See Tcl clock command for explanation of
转载
2011-04-19 15:33:00
152阅读
2评论
class classname{public method shutdownconstructor { args } {}}body classname::constructor { args } {# Prevent killing of main windowwm protocol [winfo toplevel $itk_component(hull)] WM_DELETE_WINDOW [code $this shutdown]}proc classname::shutdown{ if {![closeSession]} {# If the user didn't cancel
转载
2011-07-24 15:24:00
113阅读
2评论
proc Report { text args }{ set logfile [GetSystemVar SESSION_LOG] if { $logfile != "" } { WriteFile $logfile "$text" }}proc WriteFile { filename text args } { set file_mode "a+" for { set i 0 } { $i < [llength $args] } { incr i } { set arg [lindex $args $i] switch -r
转载
2011-04-15 00:12:00
192阅读
2评论
