%
% save contents of the left tree
%
% stack: left-tree-name
%

true exch *treeacts

Tree.Changed?
{

 "Save" *persists
}
{

 "Load" *persists
} ifelse

"Default\Left.tlt" oflist Tree.Save pop

hide

"leftarea" "Default#Left" *treepers

"Load" *persists

%
% no dragging in the left task tree as default
%
*dragsoff

%
% set drag and click vectors for left task tree
%
*hierdrag