2011年5月10日
extraDevice
摘要： configbody DCS::MotorViewEntry::extraDevice { if {$itk_option(-extraDevice) == $lastExtraDevice} { return } set m_extraDeviceReady 0 if {$lastExtraDevice != ""} {::mediator unregister $this $lastExtraDevice scaledPosition }if { $itk_option(-extraDevice) != "" } { set device $itk_ 阅读全文
posted @ 2011-05-10 15:38 greencolor 阅读(185) 评论(0) 推荐(0) 编辑
configbody tcl tk
摘要： 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 阅读全文
posted @ 2011-05-10 14:36 greencolor 阅读(213) 评论(0) 推荐(0) 编辑