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

true exch *treeacts

Tree.Changed?
{

 "Save" *persists
}
{

 "Load" *persists
} ifelse

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

hide

"ritearea" "Default#Right" *treepers

"Load" *persists

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

%
% set drag and click vectors for right task tree
%
*hierdrah