摘要:
class Destroyer {inherit ::itk::Widget constructor {args} { } destructor {killFast} private method killFast {} { global errorInfo #check for an error message that is always there on clean shutdown if { [string first .help_shell $errorInfo] == -1 } { #print the last error puts $errorInfo } #kill this 阅读全文
摘要:
body createDataprocessTab {} { set childsite [$itk_component(notebook) add Dataprocess -label "Dataprocess"] itk_component add dataprocessTab { label $itk_interior.dataprocessTab } { keep -background keep -font }#$itk_component(hutchTab) addChildVisibilityControl $itk_component(notebook) a 阅读全文
摘要:
$itk_componentarray abort .sb.stop activeButton.sb.active clientStatusLabel.sb.cs destroyer .sb.destroyer hull .sb l_shutter .sb.l_shutter login .sb.login shutter .sb.shutter spear .sb.spear sys_status .sb.sysStatus time .sb.t 阅读全文
摘要:
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] - 阅读全文
摘要:
BluIce classBluIce .pw.pane0.childsite.bluicehull .pw.pane0.childsite.bluicenotebook.pw.pane0.childsite.bluice.n /from the BluIce create a new childsite /named as: .pw.pane0.childsite.bluice.n.canvas.notebook.cs.page1.cs HutchTab class .pw.pane0.childsite.bluice.n.canvas.notebook.cs.page1.cs.hHutchO 阅读全文
摘要:
using System.Net;using System.Windows.Forms;string url = "http://www.com";string result = null;try{ WebClient client = new WebClient(); result = client.DownloadString( url );}catch (Exception ex){ // handle error MessageBox.Show( ex.Message );} 阅读全文
摘要:
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_ 阅读全文
摘要:
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 阅读全文
摘要:
deviceFactory0 cget -option deviceFactory0 configure ?-option? ?value -option value...? deviceFactory0 createCassetteOwnerString name ?arg arg ...? deviceFactory0 createCoreDevices deviceFactory0 createDefaultSignals deviceFactory0 createEncoder name ?arg arg ...? deviceFactory0 createHardwareContr. 阅读全文
摘要:
dcss abort dcss addAttribute attribute_ accessor_ dcss addLoginWidget widget_ dcss announceDestruction dcss announceExist dcss becomeActive dcss becomePassive dcss breakConnection dcss cget -option dcss configure ?-option? ?value -option value...? dcss connect dcss dcsConfigure dcss exportSubCompone 阅读全文