startBluIce

setStandardOptions
getBluIceDirectories
DCS::Config config 

(set NickName)

loadConfig $beamline
createControlSystemInterface
startBluIce  ::config

::iwidgets::panedwindow .pw
.pw add BluIce
.pw add Logger -minimum 10
set statusBar [StatusBar .sb]
set bluice [BluIce  .pw.childsite.0.bluice]
set logView [DCS::LogView [.pw childsite 1].lv]
pack .pw -expand 1 -fill both
pack $bluice -expand 1 -fill both
pack $logView -expand 1 -fill both
pack $statusBar -expand 1 -fill x -side left

posted @ 2011-05-23 22:07  greencolor  阅读(131)  评论(0编辑  收藏  举报