proc DoRefresh {list} { VtListSetItem $list -itemList [GetPsList] }
VtListSetItem $list -itemList [GetPsList]
}