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

转载于:https://www.cnblogs.com/greencolor/archive/2011/05/23/2054784.html