%
% start the task tree, initial user topic interface
% use Default as the task tree name
% create the default task tree
%
"taskarea" "Default"
%
% stack: area-vec pep
%
!@

.00 .00 2.5 1.0

*taskarea

_@ -1

% x-perw y-perw w-perw h-perw x-per y-per w-per h-per mep-ident mep-ordinal -->

this) Mep.!Mep "StdTree" App.SubOn

% x-perw y-perw w-perw h-perw x-per y-per w-per h-per -->

perscreen App.DimSub

% x-perw y-perw w-perw h-perw -->

Tree.Dims

%
% add to the peps collection
%
_@ "Add" *persists pop
%
% is new in current peps must set the event
% for Dpanel communication now
%
% event handler for all requests from StdTree
%
"Request| !Task.Request *treeevnt
"
Mep.Can

"Requesr| !Task.Request
"
Mep.Can
_@ "Inject" *persists pop

%
% force the use of exit button to leave the program
% by causing no action when back button pushed (Task.*Stay)
% use default tree name to establish vector ownership
%
"Task.*Stay" _@ dup owning
false !Marking
false !Inform
"Desk" !Help.Url
"Comm" _@ false *panelflt
*helpstar(
%
% insure tree saving upon exit
%
%%%"autosavx" vend(

@@