%
% stack: global-tree-url
%
% focus on the named pep
%
"\" slicex
dup !Drop.Tree
*treesafe
%
% extract the node ordinal
%
"/" slicex
dup !Drop.Ordinal
!\
%
% identify the value name
%
"|||" slice
dup !Drop.ValName
\_ !Drop.Value
!Drop.Node
"Save" *persists
%
% load the tree indicated by the drop selection
%
._MepSpec
@@
Tree.Load
%
% insure proper marks are loaded
%
*loadmark
%
% cycle through the dropdown lookup, yields all nodes
% that exist within this tree that were a match for the search
%
empty
_Drop.Tree _Drop.Look <> pop
{
 isnull ?
 "\" Str.RevRight "/" Str.Left
 "Selected" exch Tree.!Mark
} loop
pop