%
% events from Atos, default
% events here are generated by the Freeing subform
%
_App.EvFam !@

*panlevnt

%
% perform the response to the event
%
"free " _@ & &" " log()
<

%
% executable instructions sent by communicators
%
|Data
 *panldata

|Startup
_Ent.ExitData &" nowfree" logs

%
% the StdFree form has now initialized
%

|Ready

_Ent.ExitData &" ready " count - & logs
%
% the Bpanel 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

%
% do the deferred Init
%
% initialize vector
%
"Init" vector()
_Ent.ExitData &" done init " count - & logs

|Sel
_Ent.ExitData &" sel" logs

|Chg
_Ent.ExitData &" chg" logs

|Msg
 _Ent.ExitData entdec execstr

|Xml
%
% seed the original xml string ahead of the exec for xml*(
%
_Ent.ExitData entdec logs

|Click
 Task.@
%%% _Ent.ExitData trim token4 "deskclik" look pop

> pop