%
% set the tree node image of this xact
%
_Arching.PhysChain &"xact"
"xact" \_ & &"\Va.bmp"
dup exists
{
 60 60 rot
 _\ "Img" set
}
{
 pop
} ifelse