%
% the Dpanel tree is ready, initialized
% now commands to the form can proceed, start by rooting the tree
% with the mep name of this task
%

_@
%%% Tree.Rooting
dup
_\ ^"node " logs
%%% Tree.MakeRoot
"Roots" get
"roots" log)(
 {
  0 Tree.!Text 0
 }
 {
  -1 newnode *makeroot
 } ifelse
 !\ 0 "_Level" \!
 !\\ _\ !root
false !Tree.Editing
false !Tree.Valuing
%
% do the deferred initialize vector
%
"Init" vector()