%
% insure current tree selected node is valid
%
selected
nanzero

dup all\# ge
{
%
% selected node out of range
%
 pop 0
}
{
 
} ifelse
%
% set selected node value, visible tree selection not performed
%
selnode