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_option(-extraDevice)
        ::mediator register $this $device scaledPosition handleExtraDevice
 }
    set lastExtraDevice $itk_option(-extraDevice)
}

posted @ 2011-05-10 15:38  greencolor  阅读(185)  评论(0编辑  收藏  举报